Hallo Zusammen,
ich würde gerne für einen "Axis to Axis" Befehl per VBA ein Koordinatensystem erstellen. Beim erstellen des Koordinatensystem werden die vorher erzeugten Linien nicht in den Befehl implementiert. Die Linien, der Punkt, das Koordiantensystem (ohne Referenzen) und die AxistoAxis transformation werden erstellt. Nur die Referenzen für das Koordiantensystem funktioniert nicht.
Würde mich freuen wenn mir jemand weiterhelfen könnte.
Der Code ist:
Public Selected_starting_point As Object
Public Selected_write_direction As Object
Public Selected_surface As Object
Public Selected_tooling_direction As Object
Private Sub Axis_Click()
Set docs = CATIA.Documents
Set cad2 = CATIA.ActiveDocument
Set sel2 = cad2.Selection
Set hsf2 = cad2.Part.HybridShapeFactory
Set hb1 = cad2.Part.HybridBodies
Set vis2 = cad2.Selection.VisProperties
Set spa2 = cad2.GetWorkbench("SPAWorkbench")
Set prt2 = cad2.Part
Set bodies1 = prt2.Bodies
Set Axis_Systems = prt2.AxisSystems
Set hb2 = prt2.HybridBodies.Add()
Set axis_origin = Axis_Systems.Add()
prt2.UpdateObject axis_origin
Set InTangency = hsf2.AddNewLineTangency(Selected_write_direction, Selected_starting_point, 10#, -10#, False)
hb2.AppendHybridShape InTangency
Set InNormal = hsf2.AddNewLineNormal(Selected_surface, Selected_starting_point, 10#, -10#, False)
hb2.AppendHybridShape InNormal
Set axis_letter = Axis_Systems.Add()
axis_letter.OriginType = catAxisSystemOriginByPoint
axis_letter.OriginPoint = Selected_starting_point
axis_letter.XAxisType = catAxisSystemAxisSameDirection
axis_letter.XAxisDirection = InTangency
axis_letter.YAxisType = 0
axis_letter.ZAxisType = catAxisSystemAxisSameDirection
axis_letter.ZAxisDirection = InNormal
axis_letter.IsCurrent = False
prt2.Update axis_letter
Set reference1 = prt2.CreateReferenceFromObject(char_sur(k))
Set reference2 = prt2.CreateReferenceFromObject(axis_origin)
Set reference3 = prt2.CreateReferenceFromObject(axis_letter)
Set AxisToAxis1 = hsf2.AddNewAxisToAxis(reference1, reference2, reference3)
hb2.AppendHybridShape AxisToAxis1
prt2.Update
End Sub
Vielen Dank im Voraus.
------------------
---
nichts geschieht ohne risiko aber ohne risiko geschieht nichts
[Walter Scheel]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP