Hallo Andreas,
willst Du analysieren oder einen neuen Sketch erzeugen und ihm mit dem Makro eine Stützebene zuweisen? Ist vielleicht wichtig, dass Du das nochmal beschreibst.
Falls Du eine neue Skizze auf eine Ebene legen willst musst Du das Stützelement zuvor als Objekt definieren:
Dim Bauteil as Part
Set Bauteil = CATIA.ActiveDocument.Part '--Part deklarieren
Dim UrsprungsElemente, Ebene
Set UrsprungsElemente = Bauteil.OriginElements
Set Ebene = UrsprungsElemente.PlaneYZ '--YZ-Ebene deklarieren
Dim Skizze As Sketch
Set Skizze = Skizzen.Add (Ebene) '--Skizze mit Sützebene deklarieren.
Gruß aus dem wilden Süden,
fireman
------------------
Neugier ist der erste Schritt des Fortschritts
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP