Hallo,
kann mir bitte jemand mitteilen, warum der folgende Code nicht funktioniert? Vielen Dank schon mal im voraus.
'Punkt erstellen
Dim HybridShapeFactory1 As HybridShapeFactory
Set HybridShapeFactory1 = CATIA.ActiveDocument.Part.HybridShapeFactory
Dim Point1 As Point
Set Point1 = HybridShapeFactory1.AddNewPointCoord(0, 0, 0)
Point1.Compute
HybridBody2.AppendHybridShape Point1
Point1.Name = "Nullpunkt"
'Ebene erstellen
Dim OriginElements1 As OriginElements
Set OriginElements1 = CATIA.ActiveDocument.Part.OriginElements
Dim Plane1 As Plane
Set Plane1 = HybridShapeFactory1.AddNewPlaneOffsetPt(OriginElements1.PlaneZX, Point1)
Plane1.Compute
HybridBody2.AppendHybridShape Plane1
Plane1.Name = "zx-Ebene"
'Linie erstellen
Dim Line1 As Line
Set Line1 = HybridShapeFactory1.AddNewLinePtDir(Point1, CATIA.ActiveDocument.Part.OriginElements.PlaneYZ, 0, 20, True)
Line1.Compute
HybridBody2.AppendHybridShape Line1
Line1.Name = "x-Line"
Das Problem ist dabei offensichtlich die Zeile:
Set Line1 = HybridShapeFactory1.AddNewLinePtDir(Point1, CATIA.ActiveDocument.Part.OriginElements.PlaneYZ, 0, 20, True)
(Nur zur Info: Der Punkt und die Ebene werden einwandfrei erstellt - nur die Linie eben nicht...)
Danke und Gruß
Martin
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP