---

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

---

Servus
Willkommen im Forum. Bitte Systeminfo ausfüllen.
Dieses Thema gehört eher ins CATIA V5 Programmierung-Forum.
Wie du die Postion von Einzelteilen und Unterbaugruppen herauslesen kannst siehe hier.
Wie du die Daten zB in eine txt-Datei bekommst siehe VB(A)-Tutorials oder Bücher.

Gruß
Bernd

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

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