VBA-Befehl zum Aktualisieren der Liste der mechanisch geschweißten Teile

3D Design Volume Model
1

Ich habe ein Makro erstellt, um die SmartProperties automatisch für jeden mechanisch geschweißten Artikel zu starten.

Es funktioniert gut.
 

Auf der anderen Seite ist es notwendig, die Liste der mechanisch geschweißten Artikel vorher zu aktualisieren, sonst funktioniert es nicht...

Kennt jemand den VBA-Befehl (oder das Makro), um dieses Update durchzuführen?

 

(Ich habe bereits versucht, ein Makro aufzunehmen und auf den Befehl zu klicken, aber es bleibt nichts im erstellten Makro übrig...)

 

Danke für Ihre Hilfe

 

PS: Ich bin auf SolidWorks 2013

2

Hallo

 

Es gibt ein VBA-Beispiel in der SolidWorks Hilfe!

 

http://help.solidworks.com/2013/English/api/sldworksapi/Update_Weldment_Cut_List_and_Fire_Post-Notify_Event_Example_VB.htm

3

Tatsächlich sieht es so aus, als ob der 1. Link für "Fire Post-Notify Event Example" steht.

 

In diesem Forum wird über das Update gesprochen:

https://forum.solidworks.com/thread/47038

4

Danke für Ihre Hilfe.

Ich habe das gefunden: https://forum.solidworks.com/thread/69294

 

Ein bisschen präziser als Ihres.

Aber ich bleibe beim "saltMgr" hängen... Worum geht es?

5

Die Zeile Set selMgr = Part.SelectionManager ermöglicht es Ihnen lediglich, das Teil im selMgr-Objekt zu "holen" (sozusagen auszuwählen).

Dies ist für den reibungslosen Ablauf des Makros notwendig.

6

Das hat nicht funktioniert...

 

 

Dimmteil als ModelDoc2
MyPart als PartDoc dimmen
MyCutlist als BodyFolder dimmen
MyFeature als Feature dimmen

    Set swapp = Application.SldWorks
    Set Part = swapp. ActiveDoc (Englisch)
    Wenn Teil nichts ist, dann sub beenden
    Wenn Part.GetType <> 1 ist, beenden Sie Sub
  
    Set myPart = Teil
    Set selMgr = Part.SelectionManager
    Wenn myPart.IsWeldment = false, dann sub beenden
    Set myFeature = myPart.FeatureByName("Volumenkörper")
    Legen Sie myCutlist = myFeature.GetSpecificFeature2 fest
    myCutlist.UpdateCutList

7

"Solid Bodies" heißt der Ordner auf Englisch!

http://help.solidworks.com/2012/English/SolidWorks/sldworks/Organizing_Solid_Bodies.htm

Haben Sie "Solid Bodies" durch den Namen Ihres Ordners ersetzt (z. B. "Body List" oder "Welded Parts List")?

 

 

8

Nein, auch mit dem französischen Namen funktioniert es nicht.
Also habe ich eine Makrosuche im Ordner CutList mit Ihrem ersten Link durchgeführt.

Jetzt funktioniert es an der Spitze, danke

____________________________________

Sub maj()
    Auch wenn nicht sw ist nichts
        Wenn swFeat.GetTypeName2 = "SolidBodyFolder", dann
                    Dim swBodyFolder als SldWorks.BodyFolder
                    Legen Sie swBodyFolder = swFeat.GetSpecificFeature2 fest
                    swBodyFolder.UpdateCutList
        Ende, wenn
            Set swFeat = swFeat.GetNextFeature
    Wend
Ende Sub

1 „Gefällt mir“
9

-