Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de
  CATIA V5 Allgemein
  Makro um die Positionen von mehreren Parts in ein textfile zu schreiben

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für CATIA & Co.
  
erp4cad: Das ERP für komplexe CAD-Projekte!, eine Pressemitteilung
Autor Thema:  Makro um die Positionen von mehreren Parts in ein textfile zu schreiben (820 mal gelesen)
Korys1981
Mitglied
Ingenieur

Sehen Sie sich das Profil von Korys1981 an!   Senden Sie eine Private Message an Korys1981  Schreiben Sie einen Gästebucheintrag für Korys1981

Beiträge: 2
Registriert: 06.08.2013

erstellt am: 06. Aug. 2013 18:30    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

bgrittmann
Moderator
Konstrukteur


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 12054
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 06. Aug. 2013 19:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Korys1981 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2025 CAD.de | Impressum | Datenschutz