| |
 | CATIA V5 Grundkurs | Einsteiger - 5 Std. 15 Min 48 |
| |
 | Mit der Kisters 3DViewStation komplexeste 3D CAD-Daten beherrschen, eine Pressemitteilung
|
Autor
|
Thema: Macro zum Umwandeln von Koordinaten (1219 mal gelesen)
|
Joerg777 Mitglied Konstrukteur
 Beiträge: 2 Registriert: 01.04.2014 Dell Precision T7500 Intel Xeon E5620@ 2.40GHZ, 12GB Ram
|
erstellt am: 01. Apr. 2014 07:17 <-- editieren / zitieren --> Unities abgeben:         
Hallo, ich habe ein Macro geschrieben welches 3D Punkte aus einer Polyline herausschreibt und diese in einer Koordinaten Tabelle in einer 2D Zeichnung einfügt. Leider schreibt das Macro mir nur die Fahrzeuglage Koordinaten heraus. Ich möchte gerne Wissen ob es eine Funktion gibt diese Koordinaten umzuwandeln das diese in der Null-Lage angezeigt werden. Desweiteren Suche ich einen Macro-Befehl der mir die Punkte die ich herausgeschrieben habe in einer 2D Zeichnung mit einem Maßpfeil anzieht und durchnummeriert.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
       
 Beiträge: 12054 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 01. Apr. 2014 07:24 <-- editieren / zitieren --> Unities abgeben:          Nur für Joerg777
Servus Willkommen im Forum. zu 1) dazu musst du wohl Koordinaten umrechnen (Koordinaten-Transformation, siehe auch Foren und Internetsuche) zu 2) geht ggf auch ohne Makro: falls die Punkte als 3D-Punkte vorliegen kannst du in der Drawing die Funktion "Tabelle der Koordinatenbemassung" verwenden.
Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Joerg777 Mitglied Konstrukteur
 Beiträge: 2 Registriert: 01.04.2014 Dell Precision T7500 Intel Xeon E5620@ 2.40GHZ, 12GB Ram
|
erstellt am: 01. Apr. 2014 08:12 <-- editieren / zitieren --> Unities abgeben:         
|
bgrittmann Moderator Konstrukteur
       
 Beiträge: 12054 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 01. Apr. 2014 08:23 <-- editieren / zitieren --> Unities abgeben:          Nur für Joerg777
Servus Grob müsst es so gehen: -> Text erstellen ( zB Set MyText = MyView.Texts.Add("ComplexText", 0., 0.)) -> Leader zum Text erstellen (zB Set MyLeader = MyText.Leaders.Add(20., 50) Gruß Bernd
------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |