Makro zum Benennen einer Liste von Teilen, die in ein Blech eingeschweißt sind

Out of category
1

Hallo ihr alle

Ich suche über ein Makro, um automatisch eine Eigenschaft (in meinem Fall die Variable DESCRIPTION) meiner Liste der geschweißten Teile auszufüllen.

Meine geschweißte Teileliste besteht aus dem Haupt- und dem Einfügeblech aus einer Bibliotheksfunktion

 

Ich habe herausgefunden, wie man den Variablennamen in jedem zu schweißenden Teil hinzufügt, aber ich weiß nicht, wie ich die Informationen aus den Konstruktionsbibliotheken abrufen kann.

In der Bibliothek gibt es in jeder Konfiguration eine DESCRIPTION-Eigenschaft. Ist es wiederherstellbar?

Oder den Namen der Bibliothekskonfiguration.

Ich hänge mein Makro, mein Bibliotheksstück und die SW-Datei an

 

Vielen Dank im Voraus für Ihre Hilfe

 

Cdlt

 

Yannick

 

 

 


cutlist.zip
2

Hallo
Ich weiß nicht, wie ich die Beschreibung der Teile automatisch aus der Bibliothek importieren kann.
Auf der anderen Seite kann dies per Makro erfolgen:
- Gehen Sie durch die Funktionen, um jedes Bibliotheksstück zu finden
- Extrahieren Sie den Dateipfad und den Namen der eingefügten Konfiguration.
- Öffnen Sie die Datei, um die Beschreibung zu finden, die der Konfiguration entspricht
- Finden Sie das Schweißteil, das der Funktion entspricht
- Schreiben Sie die Beschreibung in das Schweißteil 

1 „Gefällt mir“
3

Vielen Dank für das Feedback  , Jerome

 

Leider habe ich nicht die Fähigkeiten.

Ich habe das Makro gestartet, aber ich stecke bereits beim Extrahieren des Namens der Bibliothek fest. 

 

 

Unternummer recherche_fonction_biblio()

       Dim swApp als SldWorks.SldWorks
       Dim swModel As SldWorks.ModelDoc2
       Dim swFeat As SldWorks.feature
       Dim swSubFeat als SldWorks.feature
       


       Legen Sie swApp = Application.SldWorks fest
       Festlegen von swModel = swApp.ActiveDoc
       Set swFeat = swModel.FirstFeature

       Tun Sie es nicht, obwohl es nicht ist, ist nichts
           if swFeat.GetTypeName2() = "Crimpmutter,Stahl" dann
               
               swSubFeat. (Pfad  &   Name)
        
       Ende, wenn
               
       Schleife
Ende Sub

4

Ein kleiner Trick, das Hinzufügen von debug.print, um zu sehen, wie es aussieht, hilft sehr beim Debuggen.

debug.print swFeat.GetTypeName2()

Und Sie sehen alle Werte paradiert und ob Sie in Ihre Schleife eintreten oder nicht.

https://www.developpez.net/forums/d1358915/logiciels/microsoft-office/access/vba-access/explication-debug-print/