Hallo liebe community,
ich habe da ein merkwürdiges problem.
Ich habe zwei wellen über die Shapefactory erzeugt, basierend auf Skizzen welche in in der Factory 2D erstellt habe.
Hier der entsprechende Code:
Sub Catmain()
Dim oDoc As PartDocument
Set oDoc = CATIA.Documents.Add("Part")
Dim oPArt As Part
Set oPArt = oDoc.Part
Dim HKoerper As Body
Set HKoerper = oPArt.MainBody
oPArt.InWorkObject = HKoerper
Dim osketch As sketch
Dim XYplane As Reference
Set yzPlane = oPArt.OriginElements.PlaneYZ
Set osketch = oPArt.MainBody.Sketches.Add(yzPlane)
osketch.OpenEdition
Dim oLine As Line2D
Set oLine = osketch.Factory2D.CreateLine(0, 0, 0, 100)
Set oLine = osketch.Factory2D.CreateLine(0, 100, 100, 100)
Set oLine = osketch.Factory2D.CreateLine(100, 100, 100, 0)
Set oLine = osketch.Factory2D.CreateLine(0, 0, 100, 0)
osketch.CenterLine = oLine
osketch.CloseEdition
Dim oShape As ShapeFactory
Set oShape = oPArt.ShapeFactory
Dim oShaft As Shaft
Set oShaft = oShape.AddNewShaft(osketch)
Dim oSketch2 As sketch
Set oSketch2 = oPArt.MainBody.Sketches.Add(yzPlane)
oSketch2.OpenEdition
Dim oLine2 As Line2D
Set oLine2 = oSketch2.Factory2D.CreateLine(100, 0, 100, 200)
Set oLine2 = oSketch2.Factory2D.CreateLine(100, 200, 200, 200)
Set oLine2 = oSketch2.Factory2D.CreateLine(200, 200, 200, 0)
Set oLine2 = oSketch2.Factory2D.CreateLine(0, 0, -100, 0)
oSketch2.CenterLine = oLine2
oSketch2.CloseEdition
Dim oShape2 As ShapeFactory
Set oShape2 = oPArt.ShapeFactory
Dim oShaft2 As Shaft
Set oShaft2 = oShape.AddNewShaft(oSketch2)
oPArt.Update
End Sub
Das Problem ist, das die zuordnung im Strukturbaum bei der zweiten Welle nicht stimmt (siehe Bild).
Ich habe keine Ahnnung woran das liegt.
Kann mir vieleicht einer helfen?
Danke schonmal im vorraus.
Cohixu
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP