Edycja VBA w kontekście pętli

Macro
1

Cze wszystkim

Szukam sposobu na edycję wszystkich części zespołu w kontekście, mam poniżej kod, który pozwala mi otworzyć wszystkie części zespołu.
Ale nie mogę tego zmienić.

Początek kodu:

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)

Zamiast

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

Próbowałem:

myCmp.EditPart

Ale to nie działa.
Masz pomysł?

2

Raczej partedit2 prawda?:
https://help.solidworks.com/2023/english/api/sldworksapi/solidworks.interop.sldworks~solidworks.interop.sldworks.iassemblydoc~editpart2.html?verRedi
Domyślam się, że chcesz edytować je w kontekście jeden po drugim, a nie wszystkie w tym samym czasie (inaczej nie jest to możliwe).

1 polubienie