---

Hallo,
möchte mittels eines Makros ein Achsensystem auswählen und auf dessen
XY-Ebene ein Skizze erzeugt werden soll. Leider weiß ich nicht, wie
ich die Reference auf die XY-Ebene eines gewählten Achsensystems bekomme?
Vielleicht weiß es ja jemand von Euch?

Hier mein Code:

Sub CATMain()

Dim aPart As Document.Part
Set aPart = CATIA.ActiveDocument.Part

Dim hb As HybridBodies
Set hb = aPart.HybridBodies

Dim oKoerper1 As HybridBody
Set oKoerper1 = hb.Add()

Dim Was(0)
Was(0) = "AxisSystem"

Dim UserSel as Selection
Set UserSel = CATIA.ActiveDocument.selection
UserSel.Clear

Dim Auswahl as CATBStr
Auswahl = UserSel.SelectElement(Was, "Achsensystem wählen!", False)

Dim NameAxis
NameAxis = UserSel.Item(1).Value.Name

MsgBox(NameAxis&" wurde ausgewählt!")

Dim RefEbene As Reference
Set RefEbene = aPart.CreateReference???? 'XY-Ebene des gewählten Achsensystems!

Dim Skizzen as Sketches
Set Skizzen = oKoerper1.HybridSketches

Dim APSkizze as Sketch
Set APSkizze = Skizzen.Add (RefEbene)

Dim Wzk as Factory2D
Set Wzk  = APSkizze.OpenEdition

Dim Linie as Line2D
Set Linie = Wzk.CreateLine (-50, 50, 100, 100)

APSkizze.CloseEdition

End Sub

Vielen Dank,
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP