---

Hallo,

ich möchte gerne den Ursprungspunkt und den Einheitsvektor einer
Arbeitsachse mit VBA bestimmen. Es gibt die Methode:
GetData( OriginPoint As Point, Axis As UnitVector).
Wie kann ich sie anwenden ?

Dim oAxe As AssemblyWorkAxisDef
Call oAxe.GetData(oPoint,oUnitVector) oder
Set odata = oAxe.GetData(oPoint, oUnitVector)

hat nicht funktioniert.

Vielen Danke für Ihre Hilfe im voraus
Marwene

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code:

---

Sub test_axe()
    Dim oAxe As WorkAxis
    Set oAxe = ThisApplication.ActiveDocument.ComponentDefinition.WorkAxes(1)
   
    Dim oPoint As Point
    Set oPoint = oAxe.Definition.OriginPoint
   
    Dim oVector As UnitVector
    Set oVector = oAxe.Definition.Axis
End Sub

---

HTH

------------------
Grüße daywa1k3r

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP