Hallo qli!
Habe leider im Moment nicht viel Zeit zum Probieren! Bei mir scheint es aber so nicht zu funktionieren:
Sub CATMain()
Dim Was(0)
Was(0) = "Product"
Dim UserSel
Set UserSel = CATIA.ActiveDocument.selection
UserSel.Clear
Dim Auswahl, myProd
Auswahl = UserSel.SelectElement(Was, "Product wählen!", False)
Set myProd = UserSel.Item(1).Value
myProd.ActivateDefaultShape
End Sub
Es ändert sich nach Makrolauf nichts am Status des gewählten Parts und es kommt aber auch keine Fehlermeldung!
Trotzdem erstmal vielen Dank!
------------------
-------------------------------------------------
Gruß,
AlfaRomeo75 
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP