Guten Morgen,
anbei der Strukturbaum mit dem "Split151".
Das ganze steht in einem Script.
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim bodies1 As Bodies
Set bodies1 = part1.Bodies
Dim body1 As Body
Set body1 = bodies1.Item("Part01_mounted_1.1")
Dim shapes1 As Shapes
Set shapes1 = body1.Shapes
Dim split1 As Shape
Set split1 = shapes1.Item("Split.119")
split1.SplittingSide = catNegativeSide
Dim part2 As Part
Set part2 = partDocument1.Part
Dim bodies2 As Bodies
Set bodies2 = part2.Bodies
Dim body2 As Body
Set body2 = bodies2.Item("Part01_mounted_1.3")
Dim shapes2 As Shapes
Set shapes2 = body2.Shapes
Dim split2 As Shape
Set split2 = shapes2.Item("Split.120")
split2.SplittingSide = catNegativeSide
Dim part3 As Part
Set part3 = partDocument1.Part
Dim bodies3 As Bodies
Set bodies3 = part3.Bodies
Dim body3 As Body
Set body3 = bodies3.Item("Part01_mounted_1.4")
Dim shapes3 As Shapes
Set shapes3 = body3.Shapes
Dim split3 As Shape
Set split3 = shapes3.Item("Split.123")
split3.SplittingSide = catPositiveSide
Dim part4 As Part
Set part4 = partDocument1.Part
Dim bodies4 As Bodies
Set bodies4 = part4.Bodies
Dim body4 As Body
Set body4 = bodies4.Item("Part01_mounted_1.2")
Dim shapes4 As Shapes
Set shapes4 = body4.Shapes
Dim split4 As Shape
Set split4 = shapes4.Item("Split.121")
split4.SplittingSide = catPositiveSide
Set body1 = bodies1.Item("Part01_mounted")
Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = body1.HybridBodies
Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Seam_mounted")
Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes
Dim hybridShapeSplit1 As HybridShape
Set hybridShapeSplit1 = hybridShapes1.Item("Split.150")
hybridShapesplit1.Orientation = 1
Set part1 = partDocument1.Part
Set bodies1 = part1.Bodies
Set body1 = bodies1.Item("Part01_mounted")
Set hybridBodies1 = body1.HybridBodies
Set hybridBody1 = hybridBodies1.Item("Seam_mounted")
Set hybridShapes1 = hybridBody1.HybridShapes
Set hybridShapeSplit1 = hybridShapes1.Item("Split.151")
Set hybridShapes1 = hybridShapeSplit1.Parent
Set visPropertySet1 = hybridShapesSplit1.VisProperties
visPropertySet1.SetShow 0
Set body3 = bodies3.Item("Part01_mounted")
Dim hybridBodies3 As HybridBodies
Set hybridBodies3 = body1.HybridBodies
Dim hybridBody3 As HybridBody
Set hybridBody3 = hybridBodies3.Item("Seam_mounted")
Dim hybridShapes3 As HybridShapes
Set hybridShapes3 = hybridBody3.HybridShapes
Dim hybridShapeSplit3 As HybridShape
Set hybridShapeSplit3 = hybridShapes3.Item("Split.152")
visPropertySet3.SetShow 0
Gruß
[Diese Nachricht wurde von Tamo am 21. Feb. 2012 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP