VBA-Bearbeitung im Schleifenkontext

Macro
1

Hallo ihr alle

Ich suche nach einer Möglichkeit, alle Teile einer Assembly im Kontext zu bearbeiten, ich habe den folgenden Code, der es mir ermöglicht, alle Teile einer Assembly zu öffnen.
Aber ich kann es nicht ändern.

Code-Start:

Set swApp = Application.SldWorks
    
    Set Assembly = swApp.ActiveDoc
    Set myAsy = Assembly

    myCmps = myAsy.GetComponents(False)
    For i = 0 To UBound(myCmps)
        Set myCmp = myCmps(i)
        If (myCmp.GetSuppression = 3) Or (myCmp.GetSuppression = 2) Then
            Set CmpDoc = myCmp.GetModelDoc
           
            Document = CmpDoc.GetPathName
          
                    Set swModel = swApp.ActivateDoc(Document)

Statt

 Set CmpDoc = myCmp.GetModelDoc
           
            Document = CmpDoc.GetPathName
          
                    Set swModel = swApp.ActivateDoc(Document)

Ich habe versucht:

myCmp.EditPart

Aber es funktioniert nicht.
Haben Sie eine Idee?

2

Eher partedit2, oder?:
https://help.solidworks.com/2023/english/api/sldworksapi/solidworks.interop.sldworks~solidworks.interop.sldworks.iassemblydoc~editpart2.html?verRedi
Ich vermute, Sie möchten sie nacheinander im Kontext bearbeiten, nicht alle gleichzeitig (sonst nicht möglich).

1 „Gefällt mir“