Ich hoffe das ist so richtig. Ich habe Catia R10/P3 und habe das Makro im Generative Shape Design aufgezeichnet.
MFG Jan
Sub CATMain()
Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies
Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Geöffneter Körper.1")
Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes
Dim hybridShapeSplit1 As HybridShapeSplit
Set hybridShapeSplit1 = hybridShapes1.Item("Trennen.1")
Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(hybridShapeSplit1)
Dim hybridShapeFactory1 As HybridShapeFactory
Set hybridShapeFactory1 = part1.HybridShapeFactory
Dim hybridShapeOffset1 As HybridShapeOffset
Set hybridShapeOffset1 = hybridShapeFactory1.AddNewOffset(reference1, 20#, True, 0.01)
hybridBody1.AppendHybridShape hybridShapeOffset1
part1.InWorkObject = hybridShapeOffset1
part1.Update
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP