Weiters musst du die Selection immer in der obersten Instanz definieren!
Damit die Selection immer korrekt arbeitet solltest du nicht ins Part Design sondern ins Assembly wechseln!
Also:
Set MySelection = CATIA.ActiveDocument.Selection
und
If (CATIA.GetWorkbenchId <> "Assembly") Then
Call CATIA.ActiveDocument.Activate
Call CATIA.StartWorkbench("Assembly")
End If
Das Part Objekt findest du mit Myselektion.FindObject("CATIAProduct")
Zuvor muss irgendwas vom Part selektiert sein
Musst halt noch überprüfen obs wirklich das Part und nicht eine Baugruppe.
Oder du läufst den Baum von oben durch.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP