---

Hallo Kollegen, ich brauche eure Hilfe!

Ich möchte die Koordinaten der Achsensysteme aller Parts vom Hauptprodukt bezüglich des globalen Koordinatensystems auslesen. Folgendes habe ich mir dazu überlegt:

Sub CATMain()

Analysieren(CATIA.ActiveDocument.Product)

End Sub

Sub Analysieren (P As Product)
Set oRefDoc = p.ReferenceProduct.Parent 
If TypeName(oRefDoc) = "PartDocument" Then 
    Set part1 = oRefDoc.Part 
    Dim axisSystems1 As AxisSystems
    Set axisSystems1 =part1.AxisSystems
    Dim axisSystem1 As AxisSystem
    Dim Coordinaten(2)
    for j=1 to axisSystems1.count
    Set axisSystem1 = axisSystems1.Item(j)
    axisSystem1.GetOrigin Coordinaten
    msgbox "Koordinaten:  "&Coordinaten(0)&" "&Coordinaten(1)&" "&Coordinaten(2)
    next
end if

Dim PP As Products
Dim I As Integer
Set PP = P.Products
I = 0
Do While I < PP.Count
I = I + 1
Analysieren PP.Item(I)
Loop
End Function

Bei dieser Lösung bekomme ich aber immer nur die Koordinaten des jeweiligen Achsensystem zum jeweiligen lokalen Koordinatensystem des Parts und nicht zum globalen Koordinatensystem des Hauptproduktes.
Für Lösungsvorschläge wäre ich euch sehr dankbar!
Vielen Dank im Voraus!

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

---

Hallo CatiaV5User,

ich behaupte mal, dass sich die Angabe "GetOrigin" immer nur auf das Element bezieht, in dem das "AxisSystem" auch wirklich existiert. Und es existiert nun mal nur im Part, da ich es auch nur dort erzeugen kann.
Folglich musst Du die Koordinaten des Nullpunktes des Achsensystems mit der Transformations-Matrix des Parts innerhalb des Products "multiplizieren", um die "absoluten" Koordinaten zu bekommen. (siehe auch http://ww3.cad.de/foren/ubb/Forum137/HTML/001169.shtml#000002)

mfg,
Lusilnie

------------------

Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

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