Hallo noxx,
ich habe dir nur den Teil aufgeschrieben, der deine Anfrage betraf.
Am besten Du zeichnest erstmal ein Macro auf:
Tools/Macro/StartRecording
Dann machst Du das, was am Ende rauskommen soll in der richtigen Reihenfolge, und am ende drückst du wieder "Stop"
Los geht es in etwa so:
Sub CATMain()
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim hybridShapeFactory1 As Factory
Set hybridShapeFactory1 = part1.HybridShapeFactory
Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies
Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Referenz") 'Hier der Name vom openBody mit den Punkten
Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes
dann hier die einzelnen Punkte mit Referenzen(reference1,reference2...)' ich weiß ja nicht wie die bei Dir aussehen und heißen
jetzt was schon in der ersten Antwort steht
End Sub
Wenn du Fehler hast, mach ein lesbares Bild davon und häng es mit dran
Gruß
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP