Du kannst direkt deine xy-Ebene in die Selection (ohne User - Interaktion) hinzufügen über selection.add
Beispiel:
Sub CATMain()
Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim originElements1 As OriginElements
Set originElements1 = part1.OriginElements
Dim hybridShapePlaneExplicit1 As HybridShapePlaneExplicit
Set hybridShapePlaneExplicit1 = originElements1.PlaneXY
Dim selection As selection
Set selection = partDocument1.selection
selection.Clear
selection.Add hybridShapePlaneExplicit1
'jetzt kannst du dein StartCommand einfuegen
End Sub
------------------
Grüße aus dem Thurgau
Thomas
+++++++++++++++++++++++++++++++++
CATIA - eine Laune der Natur ...
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP