Hallo zusammen,
Ich habe folgendes Problem:
Ich habe ein Product mit einer Menge Parts drinnen.
Dabei sind die Koordinatensysteme der Parts nicht Deckungsgleich mit dem globalen Koordinatensystem, sondern sind entsprechend verschoben/verdreht.
Allerdings benötige ich jetzt diese Verschiebungen der Parts, um damit weiter zu arbeiten. Da es recht zeitaufwendig ist, dies alles per Hand auszumessen will ich dazu ein macro schreiben.
Vom Prinzip erstelle ich eine Liste der selektierten parts, gehe mit einer Schleife durch die Liste durch, bestimme die Position des Parts und schreibe sie raus.
Probleme habe ich vorerst bei der Positionsbestimmung, Wie lautet hier der benötigte Befehl:
Sub CATMain()
Dim partposition (2) 'für die x y und z Position
Set selectedParts = Catia.ActiveDocument.Selection
Dateiname = Inputbox("Dateiname","Bitte geben sie den Dateinamen ein","Name")
For i = 1 to selectedParts.Count
'wie bekomme ich die Positionen der einzelnen Parts?
'und wie bekomme ich sie in mein Array gespeichert?
Next
End Sub
Vielen Dank im Vorraus!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP