VBA-bewerking in luscontext

Macro
1

Hoi allemaal

Ik ben op zoek naar een manier om alle onderdelen van een assemblage in context te bewerken, ik heb de onderstaande code waarmee ik alle onderdelen van een assemblage kan openen.
Maar ik kan het niet veranderen.

Start van de code:

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)

In plaats van

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

Ik heb het geprobeerd:

myCmp.EditPart

Maar het werkt niet.
Heb je een idee?

2

Liever partedit2 toch?:
https://help.solidworks.com/2023/english/api/sldworksapi/solidworks.interop.sldworks~solidworks.interop.sldworks.iassemblydoc~editpart2.html?verRedi
Ik denk dat je ze een voor een in context wilt bewerken, niet allemaal tegelijk (anders niet mogelijk).

1 like