| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für PTC CREO |
|
Autor
|
Thema: Linenart und Linienfarbe ändern (2197 mal gelesen)
|
ls
Mitglied
Konstrukteur Systembetreuer
   Beiträge: 37
Registriert: 23.05.2002
|
erstellt am: 18. Aug. 2004 08:46  <-- editieren / zitieren -->   Unities abgeben:          
Hallo ME10-Freunde Ich brauche eure Hilfe ?!? Wir setzen Windows XP Pro mit ME10 Version 12.01D ein.
Wie kann ich ein Makro schreiben, welches bei einem Klick auf eine bestehende Geometrie-Linien die Linienart "solid" und die Farbe "weiss" zuweist, bei zwei Klicks auf die Linien soll sie "dashed" und "gelb" werden und bei drei Klicks soll sie "strich-punkt" und "gelb" sein? Kann mir da jemand helfen??? Ich danke euch für alle sinnvollen Feedbacks. Gruss
ls
------------------
Gruss
ls Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thömu
Mitglied
Konstrukteur
Beiträge: 283
Registriert: 09.04.2003 SolidWorks 09 SP3
Catia V5 R16
Pro/E WF3
Hardeware, je nach PC...
Zuhause das gute alte OSM PE und OSD 15.5D als Demo
|
erstellt am: 18. Aug. 2004 09:24 <-- editieren / zitieren --> Unities abgeben: Nur für ls 
Hallo Probier mal das. Solange du klickst, wechseln die Attribute, egal ob du auf eine Geo klickst oder daneben. Schleife mit END beenden.
-------------------
DEFINE Linienwechsel LOCAL Farbe
LOCAL Linienart
LOCAL P INQ_ENV 3
LET Farbe (INQ 201)
LET Linienart (INQ 301) LOOP RGB_COLOR Farbe LINEPATTERN Linienart
READ PNT 'WEISS VOLLLINIE' P
WHITE SOLID
PUT_PROPERTIES P END RGB_COLOR Farbe LINEPATTERN Linienart
READ PNT 'GELB GESTRICHELT' P
YELLOW DASHED
PUT_PROPERTIES P END RGB_COLOR Farbe LINEPATTERN Linienart
READ PNT 'GELB STRICHPUNKT' P
YELLOW DOT_CENTER
PUT_PROPERTIES P END END_LOOP END_DEFINE ------------------
mfg Thömu Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
woho
Mitglied
Technik CAD
Beiträge: 1468
Registriert: 05.09.2000 von SolidDesigner ab 1.0
ueber Precision Engineering Dynamic Modeling
ueber CoCreate Modeling
bis Creo Elements/Direct 19.x
|
erstellt am: 18. Aug. 2004 09:39 <-- editieren / zitieren --> Unities abgeben: Nur für ls
Hier eine Moeglichkeit DEFINE L_und_f_aendern
LOOP
REPEAT
READ PNT 'Element antippen fuer Wechsel zu weiss vollgezogen' P
INQ_ELEM P
LET Geo_element (INQ 403)
UNTIL ((Geo_element=
LINE) OR (Geo_element=
ARC) OR (Geo_element=
CIRCLE) OR (Geo_element=
SPLINE))
CHANGE_COLOR
WHITE P
END
CHANGE_LINETYPE
SOLID P
END
READ PNT 'Wechsel zu gelb strichliert - irgendwo hintippen' Dummy
CHANGE_COLOR
YELLOW P
END
CHANGE_LINETYPE
DASHED P
END
READ PNT 'Wechsel zu gelb strichpunktiert - irgendwo hintippen' Dummy
CHANGE_COLOR
YELLOW P
END
CHANGE_LINETYPE
DOT_CENTER P
END
END
END_LOOP
END_DEFINE Gruss WoHo
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Klaus Lörincz
Mitglied
Consultant
Beiträge: 533
Registriert: 06.08.2003 OSD M = aktuell
OSD D = aktuell
OS M = aktuell
auf WIN und HP-UX
|
erstellt am: 18. Aug. 2004 10:17 <-- editieren / zitieren --> Unities abgeben: Nur für ls
Hallo IS, Frage: Warum das ganze nicht in ein kontextsensitives Menü einbauen? Die Erstellung dieser Menüs ist unter Windows kein Problem. Grüßle
Klaus
------------------
Klaus Lörincz
0174 3439 428
Sindelfingen
Germany Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
H.annes
Mitglied
CAD-Pfriemler
Beiträge: 482
Registriert: 02.07.2001 ME10 8.7 - PTC DirectDrafting 19.00; OSM 15.xx - PTC DM 19.xx
|
erstellt am: 18. Aug. 2004 10:29 <-- editieren / zitieren --> Unities abgeben: Nur für ls
oder nimm dies: 
DEFINE Linetypecolor1
LOCAL P
LOOP
READ PNT "Element für WHITE/SOLID antippen:" P
TRAP_ERROR
CHANGE_LINETYPE SOLID P
CHANGE_COLOR WHITE P
IF (CHECK_ERROR) END_IF
END_LOOP
END_DEFINE
DEFINE Linetypecolor2
LOCAL P
LOOP
READ PNT "Element für YELLOW/DASHED antippen:" P
TRAP_ERROR
CHANGE_LINETYPE DASHED P
CHANGE_COLOR YELLOW P
IF (CHECK_ERROR) END_IF
END_LOOP
END_DEFINE DEFINE Linetypecolor3
LOCAL P
LOOP
READ PNT "Element für YELLOW/DOT_CENTER antippen:" P
TRAP_ERROR
CHANGE_LINETYPE DOT_CENTER P
CHANGE_COLOR YELLOW P
IF (CHECK_ERROR) END_IF
END_LOOP
END_DEFINE
Das mit Dreifachklick geht m.W. nicht. Du kannst aber die rechte Maustaste dreifach belegen: normaler Klick, Shift und Alt, und zwar so:
DEFINE_MOUSE_KEY 3 PLAIN "Linetypecolor1"#M
DEFINE_MOUSE_KEY 3 SHIFT "Linetypecolor2"#M
DEFINE_MOUSE_KEY 3 ALT "Linetypecolor3"#M
Hannes
------------------
i hob oiwei glaubt i datrogats goa nia. hiaz hob i's datrogn - oba frogts mi net wia. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ls
Mitglied
Konstrukteur Systembetreuer
Beiträge: 37
Registriert: 23.05.2002
|
erstellt am: 18. Aug. 2004 10:33 <-- editieren / zitieren --> Unities abgeben:
Wie stellst du dir das vor? Das ganze kommst von früher, als wir noch auf dem Unix arbeiteten. Wir haben nämlich vor zwei Wochen einen kompletten Wechsel von Unix auf Windows vollzogen. Gruss
ls ------------------
Gruss
ls Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
H.annes
Mitglied
CAD-Pfriemler
Beiträge: 482
Registriert: 02.07.2001 ME10 8.7 - PTC DirectDrafting 19.00; OSM 15.xx - PTC DM 19.xx
|
erstellt am: 18. Aug. 2004 10:50 <-- editieren / zitieren --> Unities abgeben: Nur für ls
Zitat:
Original erstellt von ls:
Wie stellst du dir das vor?
Das ganze kommst von früher, als wir noch auf dem Unix arbeiteten. Wir haben nämlich vor zwei Wochen einen kompletten Wechsel von Unix auf Windows vollzogen.
Gruss
ls
und in UX habt ihr Doppel- & Dreifachklick implementiert? Das würde MICH interessieren! btw: Darren Litherland hat mal sowas geschrieben. Schau mal auf seiner Homepage http://www.nethut.net/~me10/index.html unter "Free ME10 Macros". Hannes ------------------
i hob oiwei glaubt i datrogats goa nia. hiaz hob is datrogn - oba frogz mi net wia. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
