Servus!
Ich möchte ein Achsensystem auf einen EndPunkt einer Linie erzeugen, welche gleichzeitig die Z-Achse des Achsensystems definiert.
siehe Code ...
Set axisSystems1 = part1.AxisSystems
Dim axisSystemAuge As AxisSystem
Set axisSystemAuge = axisSystems1.Add()
axisSystemAuge.OriginType = catAxisSystemOriginByPoint
axisSystemAuge.OriginPoint = Ref_PointAuge
axisSystemAuge.ZAxisType = catAxisSystemAxisOppositeDirection
axisSystemAuge.ZAxisDirection = Ref_ViewHoriz
part1.UpdateObject axisSystemAuge
axisSystemAuge.IsCurrent = False
axisSystemAuge.Name = "AxisSystem_Auge"
part1.Update
...
das funktioniert auch soweit, doch wenn ich die Richtung (Ref_ViewHoriz) im Part später ändere, bleibt zwar das Achsensystem auf dem Endpunkt der Linie/Richtung, doch die Z-Achse weicht von der Linie ab, bzw. hält die Richtung der Erstellung bei.
Meine Frage ist, wie kann ich das Achsensystem dauerhaft auf die Richtung festzurren!?
Besten Dank schon mal für eure Hilfe.
Gruß
AL-Fonse
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP