---

Hi,
nachdem ich das erste Mal schon so tolle Hilfe hier bekommen habe und gerade verzweifel, wende ich mich nochmal an euch 

Ich will per Macro die Orientierung der einzelnen Ursprung-Achsensysteme der Parts gegenüber dem Product auslesen. Wie ist das möglich. Gerade versuche ich von einem Part die OriginElements auszulesen mit dem Code:

Sub CATMain()

    Dim oPart As Object
    Set oPart = CATIA.ActiveDocument.Part

    Dim Vec(3)
    Dim plnXY As Variant
    Set plnXY = oPart.OriginElements.PlaneXY
    plnXY.GetFirstAxis Vec
   
End Sub

Allerdings bekomme ich hier immer die Meldung "Object doesn't support this property or method" sobald ich plnXY.GetFirstAxis Vec ausführe.

Wisst Ihr woran das liegen könnte?

Besten Dank Euch!

Chris

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

---

Servus
IMHO ist es am einfachsten über "GetComponents" die Position des Parts im Product zu bestimmen, dabei erhältst du die Position und die Ausrichtung (Vektorkomponenten der X-, Y- und Z-Achse. zB

Code:

---

Sub CATMain()

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

Dim RootProduct As Product
Set RootProduct = productDocument1.Product

Dim RootProducts As Products
Set RootProducts = RootProduct.Products

Dim PartProduct As Product
Set PartProduct = RootProducts.Item("Part1.1")

Dim iAxisComponentsArray(11)

PartProduct.Position.GetComponents iAxisComponentsArray

End Sub

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Super, vielen vielen Dank. Das hat perfekt funktioniert! 

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