{==============================================================} {=== Netzwerkdrucker definieren ====} {==============================================================} DEFINE Plot_druckertyp_def IF (Plot_druckertyp = 'A4') RUN 'net use /delete lpt2' RUN 'net use lpt2 \\edv40vm\i001' {**Netzwerkdrucker fÏr DIN-A4**} ELSE_IF (Plot_druckertyp = 'A3') RUN 'net use /delete lpt2' RUN 'net use lpt2 \\edv39vm\d002' {**Netzwerkdrucker fÏr DIN-A3**} ELSE_IF (Plot_druckertyp = 'A2') RUN 'net use /delete lpt2' RUN 'net use lpt2 \\edv5VM\M014' {**Netzwerkdrucker fÏr A2 bis A0**} ELSE_IF (Plot_druckertyp = 'A1') RUN 'net use /delete lpt2' RUN 'net use lpt2 \\edv5VM\M014' {**Netzwerkdrucker fÏr A2 bis A0**} ELSE_IF (Plot_druckertyp = 'A0') RUN 'net use /delete lpt2' RUN 'net use lpt2 \\edv5VM\M014' {**Netzwerkdrucker fÏr A2 bis A0**} ELSE DISPLAY '** kein Netwerkdrucker definiert' END_IF END_DEFINE {==============================================================} {=== D E F A U L T S ====} {==============================================================} PLOTTER_TYPE ADD HPGL2_RTL FRONT_STRING (chr(27)+"E"+ {Reset Printer} chr(27)+"&l4H"+ {Use A4 paper tray} chr(27)+"&l26A"+ {Set Pageformat to A4} chr(27)+"&l3o0E"+ {Set to Landscape mode} chr(27)+"*p50Y"+ {Set cursor and orgin to max lower left corner} chr(27)+"*ct5710Y"+ {Set printable area in dcipoints} chr(27)+"%0B") {Enter to HPGL/2 mode} APPEND_STRING (";") {Terminate HPGL files for HPGL2 devices} 'LJ5000/A4' PLOTTER_TYPE ADD HPGL2_RTL FRONT_STRING (chr(27)+"E"+ {Reset Printer} { chr(27)+"&l1H"+ } {Use A3 paper tray} chr(27)+"&l27A"+ {Set Pageformat to A3} chr(27)+"&l3o0E"+ {Set to Landscape mode} chr(27)+"*p0Y"+ {Set cursor and orgin to max lower left corner} chr(27)+"*ct8215Y"+ {Set printable area in dcipoints} chr(27)+"%0B") {Enter to HPGL/2 mode} APPEND_STRING (";") {Terminate HPGL files for HPGL2 devices} 'LJ5000/A3' DEFINE Plot_laserjet_defaults LET Nt_plot_option NT_PLOT_OPTION_B_AND_W 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 1 PLOT_TRANSFORMATION ALL { red range } .5 1. .0 .5 .0 .5 {0 width lines} 0 0 {same line type} SAME penwidth .10 {pen number} 1 PLOT_TRANSFORMATION ALL { green range } .0 .5 .5 1. .0 .5 SAME 1 PLOT_TRANSFORMATION ALL { green range } .0 .5 .5 1. .0 .5 {0 width lines} 0 0 {same line type} SAME penwidth .10 {pen number} 1 PLOT_TRANSFORMATION ALL { yellow range } .5 1. .5 1. .0 .5 SAME 1 PLOT_TRANSFORMATION ALL { yellow range } .5 1. .5 1. .0 .5 {0 width lines} 0 0 {same line type} SAME penwidth .10 {pen number} 1 PLOT_TRANSFORMATION ALL { blue range } .0 .5 .0 .5 .5 1. SAME 1 PLOT_TRANSFORMATION ALL { blue range } .0 .5 .0 .5 .5 1. {0 width lines} 0 0 {same line type} SAME penwidth .10 {pen number} 1 PLOT_TRANSFORMATION ALL { magenta range } .5 1. .0 .5 .5 1. SAME 1 PLOT_TRANSFORMATION ALL { magenta range } .5 1. .0 .5 .5 1. {0 width lines} 0 0 {same line type} SAME penwidth .50 {pen number} 1 PLOT_TRANSFORMATION ALL { cyan range } .0 .5 .5 1. .5 1. SAME 1 PLOT_TRANSFORMATION ALL { cyan range } .0 .5 .5 1. .5 1. {0 width lines} 0 0 {same line type} SAME penwidth .10 {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 .25 {pen number} 1 PLOT_TRANSFORMATION PHANTOM CYAN SAME 0 LET Plot_pix_color_option 0 END_DEFINE { Plot_black_and_white } Plot_laserjet_defaults DEFINE Plot_designjet_defaults LET Nt_plot_option NT_PLOT_OPTION_B_AND_W 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 1 PLOT_TRANSFORMATION ALL { red range } .5 1. .0 .5 .0 .5 {0 width lines} 0 0 {same line type} SAME penwidth .20 {pen number} 1 PLOT_TRANSFORMATION ALL { green range } .0 .5 .5 1. .0 .5 SAME 1 PLOT_TRANSFORMATION ALL { green range } .0 .5 .5 1. .0 .5 {0 width lines} 0 0 {same line type} SAME penwidth .20 {pen number} 1 PLOT_TRANSFORMATION ALL { yellow range } .5 1. .5 1. .0 .5 SAME 1 PLOT_TRANSFORMATION ALL { yellow range } .5 1. .5 1. .0 .5 {0 width lines} 0 0 {same line type} SAME penwidth .20 {pen number} 1 PLOT_TRANSFORMATION ALL { blue range } .0 .5 .0 .5 .5 1. SAME 1 PLOT_TRANSFORMATION ALL { blue range } .0 .5 .0 .5 .5 1. {0 width lines} 0 0 {same line type} SAME penwidth .20 {pen number} 1 PLOT_TRANSFORMATION ALL { magenta range } .5 1. .0 .5 .5 1. SAME 1 PLOT_TRANSFORMATION ALL { magenta range } .5 1. .0 .5 .5 1. {0 width lines} 0 0 {same line type} SAME penwidth 1.0 {pen number} 1 PLOT_TRANSFORMATION ALL { cyan range } .0 .5 .5 1. .5 1. SAME 1 PLOT_TRANSFORMATION ALL { cyan range } .0 .5 .5 1. .5 1. {0 width lines} 0 0 {same line type} SAME penwidth .20 {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 .40 {pen number} 1 PLOT_TRANSFORMATION PHANTOM CYAN SAME 0 LET Plot_pix_color_option 0 END_DEFINE Plot_designjet_defaults {==============================================================} {=== Definition der umschaltbaren Hintergrundfarben ==} {==============================================================} DEFINE Plot_farbe_aus RGB_COLOR 0.8 0.8 0.8 END_DEFINE DEFINE Plot_farbe_ein RGB_COLOR 0.8 0.4 0.3 END_DEFINE {==============================================================} {=== P L O T T E R M E N Û ====} {==============================================================} DEFINE Sm_plot_layout_name Sm_plot_layout END_DEFINE DEFINE Sm_plot_layout CURRENT_MENU 'Sm_plot' CURRENT_SCREEN 1 MENU_LAYOUT Menu_position RIGHT Layout_body_1 Menu_home_point_top MENU_STATUS FIX LET Sm_plot_layout_name 'Spezial_sm_plot' END_DEFINE DEFINE Spezial_sm_plot LET Lastmen 'Tm_plot' LET Plot_pdf_auswahl 0 LET Plot_pdf_masstab 0 LET Plot_laser_auswahl 0 IF (I_port) Check_i_port END_IF LET Plot_masstab ('Faktor ' + (STR (Sys_plot_plotscale))) IF (NOT I_port) MENU_BUFFER ON CURRENT_MENU Sm_plot_layout T_clear_menu Menu_tables_control_icons MENU Colo0 Bcol5 CENTER 'PLOT' 'Reset_sys_plot_configuration' 1 3 MENU Colo1 Plot_farbe_aus 'Einpassen '\ 'Set_Sys_plot_plotscale 0 Spezial_sm_plot' 3 1 MENU Colo1 Plot_farbe_aus Plot_masstab\ 'Plot_masstab_def Spezial_sm_plot' 3 2 MENU Colo0 Bcol4 ' A4 ' 'Plot_a4' 5 1 MENU Colo0 Bcol4 ' A3 ' 'Plot_a3' 6 1 MENU Colo0 Bcol4 ' A2 ' 'Plot_a2' 7 1 MENU Colo0 Bcol4 ' A1 ' 'Plot_a1' 8 1 MENU Colo0 Bcol4 ' A0 ' 'Plot_a0' 9 1 MENU Colo0 Bcol7 'RESET ' 'Reset_sys_plot_configuration\ INPUT "Plotprogramm'" 23 1 MENU Colo0 Bcol5 ' STANDARD' 'Sm_plot' 25 1 MENU Colo0 Bcol5 'PLOTMENÛ ' 'Sm_plot' 25 2 END_IF Plot_farbumschaltung END_DEFINE {==============================================================} {=== Hervorhebung der MenÏfelder ===} {==============================================================} DEFINE Plot_farbumschaltung INQ_ENV 4 IF (INQ 17 = 1) MENU Colo1 Plot_farbe_ein 'Einpassen' 'Set_Sys_plot_plotscale 0 Spezial_sm_plot' 3 1 MENU Colo1 Plot_farbe_aus Plot_masstab 'Plot_masstab_def Spezial_sm_plot' 3 2 ELSE MENU Colo1 Plot_farbe_aus 'Einpassen' 'Set_Sys_plot_plotscale 0 Spezial_sm_plot' 3 1 MENU Colo1 Plot_farbe_ein Plot_masstab 'Plot_masstab_def Spezial_sm_plot' 3 2 END_IF END_DEFINE {==============================================================} {=== Macro zum Einstellung des MaÞstabes ===} {==============================================================} DEFINE Plot_masstab_def LOCAL Masstab IF (Sys_plot_plotscale) READ NUMBER 'Plotskalierung eingeben' DEFAULT Sys_plot_plotscale Masstab ELSE READ NUMBER 'Plotskalierung eingeben' Masstab END_IF LET Plot_masstab (' ' + (STR (Masstab))) Set_sys_plot_plotscale Masstab Sm_plot_pp_update Spezial_sm_plot END_DEFINE {==============================================================} {=== Standardeinstellungen Laserjet ===} {==============================================================} DEFINE Plot_laserjet_a4_init LET Plot_format 4 LET Plot_druckertyp 'A4' Plot_druckertyp_def Select_plot_config "'LaserJet 5000 (A4)'" Set_sys_plot_configuration "'LaserJet 5000 (A4)'" Set_sys_plot_type 'LJ5000/A4' Set_sys_plot_filename_generate 1 Set_sys_plot_filename_prefix 'c:/temp/PLOT' END_DEFINE DEFINE Plot_laserjet_a3_init LET Plot_format 3 LET Plot_druckertyp 'A3' Plot_druckertyp_def Select_plot_config "'LaserJet 5000 (A3)'" Set_sys_plot_configuration "'LaserJet 5000 (A3)'" Set_sys_plot_type 'LJ5000/A3' Set_sys_plot_filename_generate 1 Set_sys_plot_filename_prefix 'c:/temp/PLOT' END_DEFINE {==============================================================} {=== Druckroutine LaserJet ===} {==============================================================} DEFINE Plot_laserjet_drucken Plot_laserjet_defaults Sm_plot_pp_update Spezial_sm_plot Plot_plot RUN 'print /D:lpt2 c:\temp\PLOT*' PURGE_FILE 'c:/temp/PLOT*' CONFIRM Select_plot_config 'GDI Printer' Spezial_sm_plot {*rÏcksetzen auf Standard*} END_DEFINE {==============================================================} {=== Druckprogramme fÏr Laserjet A4/A3 ===} {==============================================================} DEFINE Plot_a4 Plot_laserjet_a4_init Set_sys_plot_stop_on_error 1 {bei Fehler Stop} INQ_ENV 7 LET P1 (INQ 101) LET P2 (INQ 102) LET X (X_OF P2 - X_OF P1) LET Y (Y_OF P2 - Y_OF P1) IF (Y > X) Set_sys_plot_rot (-(pi / 2)) ELSE Set_sys_plot_rot 0 END_IF Set_sys_plot_center on {Mitte} IF (Plot_pdf_masstab = 1) Set_sys_plot_plotscale 1 {1:1} ELSE END_IF LET Sys_plot_source ALL {Alles} LET Sys_plot_as_displayed 0 {Zeichnung} Plot_pix_color 0 {Schwarz/WeiÞ} Set_sys_plot_format "A4" Plot_define_format_viewport Sm_plot_pp_update Plot_define_format_viewport Plot_laserjet_drucken END_DEFINE DEFINE Plot_a3 Plot_laserjet_a3_init Set_sys_plot_stop_on_error 1 {bei Fehler Stop} Set_sys_plot_rot 0 {Drehwinkel 0} Set_sys_plot_center on {Mitte} IF (Plot_pdf_masstab = 1) Set_sys_plot_plotscale 1 {1:1} ELSE END_IF LET Sys_plot_source ALL {Alles} LET Sys_plot_as_displayed 0 {Zeichnung} Plot_pix_color 0 {Schwarz/WeiÞ} Set_sys_plot_format "A3" Plot_define_format_viewport Sm_plot_pp_update Plot_define_format_viewport Plot_laserjet_drucken END_DEFINE {==============================================================} {==============================================================} {=== Standardeinstellungen Designjet ===} {=== ===} {=== hier eigene Einstellungen fÏr die Netzwerkdrucker ===} {=== vornehmen ! ===} {==============================================================} DEFINE Plot_designjet_init Plot_druckertyp_def Select_plot_config "'DesignJet 750C R'" Set_sys_plot_configuration "'DesignJet 750C R'" Set_sys_plot_type 'DJET750/R' Set_sys_plot_filename_generate 1 LET Sys_plot_filename_prefix 'c:/temp/PLOT' END_DEFINE {==============================================================} {=== Druckroutine Designjet ===} {==============================================================} DEFINE Plot_designjet_drucken Plot_designjet_defaults Sm_plot_pp_update Spezial_sm_plot Plot_plot RUN 'print /D:lpt2 c:\temp\PLOT*' PURGE_FILE 'c:/temp/PLOT*' CONFIRM Select_plot_config 'GDI Printer' Spezial_sm_plot {*rÏcksetzen auf Standard*} END_DEFINE {==============================================================} {=== Druckprogramme fÏr Designjet A2/A1/A0 ===} {==============================================================} DEFINE Plot_a2 LET Plot_druckertyp 'A2' Plot_designjet_init Set_sys_plot_default 'QL1;' Set_sys_plot_stop_on_error 1 {bei Fehler Stop} Set_sys_plot_rot 0 {Drehwinkel 0} Set_sys_plot_center on {Mitte} LET Sys_plot_source ALL {Alles} LET Sys_plot_as_displayed 0 {Zeichnung} Plot_pix_color 0 {Schwarz/WeiÞ} Set_sys_plot_format "A2" Plot_define_format_viewport Sm_plot_pp_update Plot_define_format_viewport Plot_designjet_drucken END_DEFINE DEFINE Plot_a1 LET Plot_druckertyp 'A1' Plot_designjet_init Set_sys_plot_default 'QL1;' Set_sys_plot_stop_on_error 1 {bei Fehler Stop} Set_sys_plot_rot 0 {Drehwinkel 0} Set_sys_plot_center on {Mitte} LET Sys_plot_source ALL {Alles} LET Sys_plot_as_displayed 0 {Zeichnung} Plot_pix_color 0 {Schwarz/WeiÞ} Set_sys_plot_format "A1" Plot_define_format_viewport Sm_plot_pp_update Plot_define_format_viewport Plot_designjet_drucken END_DEFINE DEFINE Plot_a0 LET Plot_druckertyp 'A0' Plot_designjet_init Set_sys_plot_default 'QL1;' Set_sys_plot_stop_on_error 1 {bei Fehler Stop} Set_sys_plot_rot 0 {Drehwinkel 0} Set_sys_plot_center on {Mitte} LET Sys_plot_source ALL {Alles} LET Sys_plot_as_displayed 0 {Zeichnung} Plot_pix_color 0 {Schwarz/WeiÞ} Set_sys_plot_format "A0" Plot_define_format_viewport Sm_plot_pp_update Plot_define_format_viewport Plot_designjet_drucken END_DEFINE {==============================================================} {=== M A C R O E N D E ===} {==============================================================}