---

hallo zusammen,
ich soll für unsere firma ein me10 makro schreiben, welches z.b. rote linien in einer zeichnung rot druckt und den rest schwarz. leider habe ich bisher keine erfahrung in der makro progr. für me10, da ich eigentlich in asp.net zuhaus bin.
im internet hab ich den folgenden code gefuden, der alles farbig ausdruckt. allerdings kann ich damit nicht viel anfangen... kann mir jemand ein paar hinweise dazu geben, was er genau macht?
kann man diesen code für meine anforderung abwandeln?

gruss andreas.

---------------------------------------------
DEFINE Plot_pen_color
LET Nt_plot_option NT_PLOT_OPTION_PEN_COLOR
true_color_plotting off
PLOT_TRANSFORMATION ALL { all colors } .0 1. .0 1. .0 1. SAME 1
{ Color mapping for a RGB color cube devided into 8 color ranges }
PLOT_TRANSFORMATION ALL { black range } .0 .5 .0 .5 .0 .5 SAME 1
PLOT_TRANSFORMATION ALL { red range } .5 1. .0 .5 .0 .5 SAME 2
PLOT_TRANSFORMATION ALL { red range } .5 1. .0 .5 .0 .5 {0 width lines} 0 0 {same line type} SAME penwidth .35 {pen number} 2
PLOT_TRANSFORMATION ALL { green range } .0 .5 .5 1. .0 .5 SAME 3
PLOT_TRANSFORMATION ALL { green range } .0 .5 .5 1. .0 .5 {0 width lines} 0 0 {same line type} SAME penwidth .35 {pen number} 3
PLOT_TRANSFORMATION ALL { yellow range } .5 1. .5 1. .0 .5 SAME 4
PLOT_TRANSFORMATION ALL { yellow range } .5 1. .5 1. .0 .5 {0 width lines} 0 0 {same line type} SAME penwidth .25 {pen number} 4
PLOT_TRANSFORMATION ALL { blue range } .0 .5 .0 .5 .5 1. SAME 5
PLOT_TRANSFORMATION ALL { blue range } .0 .5 .0 .5 .5 1. {0 width lines} 0 0 {same line type} SAME penwidth .70 {pen number} 5
PLOT_TRANSFORMATION ALL { magenta range } .5 1. .0 .5 .5 1. SAME 6
PLOT_TRANSFORMATION ALL { magenta range } .5 1. .0 .5 .5 1. {0 width lines} 0 0 {same line type} SAME penwidth .35 {pen number} 6
PLOT_TRANSFORMATION ALL { cyan range } .0 .5 .5 1. .5 1. SAME 7
PLOT_TRANSFORMATION ALL { cyan range } .0 .5 .5 1. .5 1. {0 width lines} 0 0 {same line type} SAME penwidth .25 {pen number} 7
PLOT_TRANSFORMATION ALL { white range } .5 1. .5 1. .5 1. SAME 0
{ Special mappings for BLACK, WHITE etc. }
PLOT_TRANSFORMATION ALL { black color } BLACK SAME 0
PLOT_TRANSFORMATION ALL { white color } WHITE SAME 1
PLOT_TRANSFORMATION ALL { white color } .5 1. .5 1. .5 1. {0 width lines} 0 0 {same line type} SAME penwidth .50 {pen number} 1
PLOT_TRANSFORMATION PHANTOM CYAN SAME 0
LET Plot_pix_color_option 1
END_DEFINE { Plot_pen_color }
---------------------------------------------

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

---

So sollte es gehen. Alle Stifte bis auf den roten auf 1 (schwarz) setzen.

DEFINE Plot_pen_color_red
LET Nt_plot_option NT_PLOT_OPTION_PEN_COLOR
true_color_plotting off
PLOT_TRANSFORMATION ALL { all colors } .0 1. .0 1. .0 1. SAME 1
{ Color mapping for a RGB color cube devided into 8 color ranges }
PLOT_TRANSFORMATION ALL { black range } .0 .5 .0 .5 .0 .5 SAME 1
PLOT_TRANSFORMATION ALL { red range } .5 1. .0 .5 .0 .5 SAME 2
PLOT_TRANSFORMATION ALL { red range } .5 1. .0 .5 .0 .5 {0 width lines} 0 0 {same line type} SAME penwidth .35 {pen number} 2
PLOT_TRANSFORMATION ALL { green range } .0 .5 .5 1. .0 .5 SAME 3
PLOT_TRANSFORMATION ALL { green range } .0 .5 .5 1. .0 .5 {0 width lines} 0 0 {same line type} SAME penwidth .35 {pen number} 1
PLOT_TRANSFORMATION ALL { yellow range } .5 1. .5 1. .0 .5 SAME 4
PLOT_TRANSFORMATION ALL { yellow range } .5 1. .5 1. .0 .5 {0 width lines} 0 0 {same line type} SAME penwidth .25 {pen number} 1
PLOT_TRANSFORMATION ALL { blue range } .0 .5 .0 .5 .5 1. SAME 5
PLOT_TRANSFORMATION ALL { blue range } .0 .5 .0 .5 .5 1. {0 width lines} 0 0 {same line type} SAME penwidth .70 {pen number} 1
PLOT_TRANSFORMATION ALL { magenta range } .5 1. .0 .5 .5 1. SAME 6
PLOT_TRANSFORMATION ALL { magenta range } .5 1. .0 .5 .5 1. {0 width lines} 0 0 {same line type} SAME penwidth .35 {pen number} 1
PLOT_TRANSFORMATION ALL { cyan range } .0 .5 .5 1. .5 1. SAME 7
PLOT_TRANSFORMATION ALL { cyan range } .0 .5 .5 1. .5 1. {0 width lines} 0 0 {same line type} SAME penwidth .25 {pen number} 1
PLOT_TRANSFORMATION ALL { white range } .5 1. .5 1. .5 1. SAME 0
{ Special mappings for BLACK, WHITE etc. }
PLOT_TRANSFORMATION ALL { black color } BLACK SAME 0
PLOT_TRANSFORMATION ALL { white color } WHITE SAME 1
PLOT_TRANSFORMATION ALL { white color } .5 1. .5 1. .5 1. {0 width lines} 0 0 {same line type} SAME penwidth .50 {pen number} 1
PLOT_TRANSFORMATION PHANTOM CYAN SAME 0
LET Plot_pix_color_option 1
END_DEFINE

------------------
Gruß,
Peter

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

---

danke :-)

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