Hilfe bei ME10 Makro Stiftlinien ändern (PTC/PTC Creo Elements/Direct Drafting)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für PTC CREO

	Altair ernennt MAIT zum Channel Partner für DACH, Benelux und Liechtenstein, eine Pressemitteilung Meldungen abonnieren
Autor	Thema: Hilfe bei ME10 Makro Stiftlinien ändern (1050 / mal gelesen)
MarcoJ Mitglied CAD-System-Admin und Konstrukteur Beiträge: 49 Registriert: 31.10.2006	erstellt am: 22. Apr. 2016 09:13 <-- editieren / zitieren --> Unities abgeben: Hallo, ich benötige eine kleine Hilfe bei einem ME10-Makro. Ich möchte mit einem Makro eine vorhandene Linie die Linienart und Linienfarbe gleichzeitig ändern. DEFINE Stiftlin_Aend2 CHANGE_COLOR (RED) CHANGE_LINETYPE (DASHED) END_DEFINE Bei dieser Schreibweise des obigen Makros ändert er nur die Linienart, also den letzten Befehl in dem Makro (Change_Linetype). Wie kann ich das Makro schreiben, dass beide Befehle ausgeführt werden. Ich bin ein Neuling in Sachen Makros. Vielen Dank. Grüße Marco ------------------ Buss SMS Canzler GmbH Konstruktion www.sms-vt.com Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
MarcoJ Mitglied CAD-System-Admin und Konstrukteur Beiträge: 49 Registriert: 31.10.2006 Intel(R) Core(TM) i9-10900X CPU @ 3.70GHz 64 GB RAM SWX2023 SP3.0 Enterprise PDM 2023 SP3.0 ME10 v8.7g NVIDIA Quadro RTX4000 8GB Win10 Pro(64bit)	erstellt am: 22. Apr. 2016 09:34 <-- editieren / zitieren --> Unities abgeben: Hat sich erledigt! hätte etwas besser suchen sollen. Mit diesem Makro funktioniert es: DEFINE Stiftlin_Aend1 LOCAL P1 LOCAL P2 LOOP READ PNT 'Element antippen oder Elemente wählen' P1 INQ_ELEM P1 IF ((INQ 403 = C_LINE) OR (INQ 403 = C_CIRCLE)) BEEP ELSE_IF (INQ 403 = END) READ PNT 'gegenüberliegenden Eckpunkt des Rahmens wählen' RUBBER_BOX P1 P2 CHANGE_LINETYPE SOLID P1 P2 END CHANGE_COLOR WHITE P1 P2 END ELSE CHANGE_LINETYPE SOLID P1 END CHANGE_COLOR WHITE P1 END END_IF END_LOOP END_DEFINE DEFINE Stiftlin_Aend2 LOCAL P1 LOCAL P2 LOOP READ PNT 'Element antippen oder Elemente wählen' P1 INQ_ELEM P1 IF ((INQ 403 = C_LINE) OR (INQ 403 = C_CIRCLE)) BEEP ELSE_IF (INQ 403 = END) READ PNT 'gegenüberliegenden Eckpunkt des Rahmens wählen' RUBBER_BOX P1 P2 CHANGE_LINETYPE DASHED P1 P2 END CHANGE_COLOR RED P1 P2 END ELSE CHANGE_LINETYPE DASHED P1 END CHANGE_COLOR RED P1 END END_IF END_LOOP END_DEFINE DEFINE Stiftlin_Aend3 LOCAL P1 LOCAL P2 LOOP READ PNT 'Element antippen oder Elemente wählen' P1 INQ_ELEM P1 IF ((INQ 403 = C_LINE) OR (INQ 403 = C_CIRCLE)) BEEP ELSE_IF (INQ 403 = END) READ PNT 'gegenüberliegenden Eckpunkt des Rahmens wählen' RUBBER_BOX P1 P2 CHANGE_LINETYPE DOT_CENTER P1 P2 END CHANGE_COLOR RED P1 P2 END ELSE CHANGE_LINETYPE DOT_CENTER P1 END CHANGE_COLOR RED P1 END END_IF END_LOOP END_DEFINE Danke an thomas.h Linienart und Farbe ändern (4. Beitrag) Grüße Marco ------------------ Buss SMS Canzler GmbH Konstruktion www.sms-vt.com Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
r.hoffmann Mitglied Techniker Beiträge: 128 Registriert: 07.12.2006 OSD 13.2 20.4	erstellt am: 24. Apr. 2016 15:48 <-- editieren / zitieren --> Unities abgeben: Nur für MarcoJ Hallo Marco, darf es etwas universeller sein? Auf meiner Seite findest Du unter http://www.me10-makros.de/eva_col_lin_2.php ein ähnliches Makro, bei dem Du Linienart und -farbe vorher wählen kannst. Bei Deiner Lösung gäbe es theoretisch 64 mögliche Kombinationen. Wer will dann noch wissen, was das Makro Stiftlin_Aend1 oder Stiftlin_Aend2 für Werte benutzt. Gruß Robert ------------------ Homepage: www.me10-makros.de [Diese Nachricht wurde von r.hoffmann am 24. Apr. 2016 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)