Hallo,
ich habe folgendes Problem:
Ich habe Punkte in CATIA auf denen ich ein Axensystem mit einem Makro erstellen möchte. Dabei soll automatisch auf den Punkten das Koordinatensystem mit einer vordefinierten Drehung erstellt werden (EulerAxis).
Das funktioniert jedoch immer nur an bestimten Punkten.
Wie kann ich den Code verallgemeinern, damit die Achsensysteme nicht auf vordefinierten Punkten sondern auf allen Punkten erstellt werden?
Die Punkte sind bei mir im Quellcode als Points deklariert.
...hier nun ein Auszug aus dem Code für die Ausrichtung:
Set axisSystems1 = part1.AxisSystems
Set axisSystem1 = axisSystems1.Add()
axisSystem1.Type = catAxisSystemEulerAngles
Set parameters1 = part1.Parameters
Set angle1 = parameters1.Item("PART1\Axis System.3\EulerAngle1")
angle1.Value = 10.000000
Set parameters2 = part1.Parameters
Set angle2 = parameters2.Item("PART1\Axis System.3\EulerAngle2")
angle2.Value = 20.000000
Set parameters3 = part1.Parameters
Set angle3 = parameters3.Item("PART1\Axis System.3\EulerAngle3")
angle3.Value = 30.000000
axisSystem1.OriginType = catAxisSystemOriginByPoint
Set hybridBodies1 = part1.HybridBodies
Set hybridBody1 = hybridBodies1.Item("Geometrical Set.1")
Set hybridShapes1 = hybridBody1.HybridShapes
Set hybridShapePointCoord1 = hybridShapes1.Item("lo2")
Set reference1 = part1.CreateReferenceFromObject(hybridShapePointCoord1)
axisSystem1.OriginPoint = reference1
axisSystem1.XAxisType = 1 'catAxisSystemAxisSameDirection
axisSystem1.YAxisType = 1 'catAxisSystemAxisSameDirection
axisSystem1.ZAxisType = 1 'catAxisSystemAxisSameDirection