;;; ;
((defun c:DoIt ()
(if (> (cadr (getvar "EXTMAX")) ; if y-coord greater than
(car (getvar "EXTMAX")) ; x-coord
) ;_ end of >
(setq Orientatie "p") ; set portrait
(setq Orientatie "l") ; if not set landcape
) ;_ end of if
(if (= (getvar "pstylemode") 0) ; if pstyle=R14
(command "convertpstyles") ; change to 2000/2002
) ;_ end of if
(command "-plot" ; command to plot without GUI
"y" ; Detailed plot configuration?
"model" ; Enter a layout name
"NLP12280.pc3" ; Enter an output device name
"A4" ; Enter paper size
"m" ; Enter paper units
Orientatie ; Enter drawing orientation
"n" ; Plot upside down?
"e" ; Enter plot area
"f" ; Enter plot scale
"0,0" ; Enter plot offset
"y" ; Plot with plot styles?
"_zwart.ctb" ; Enter plot style table name
"yes" ; Plot with lineweights?
"n" ; Remove hidden lines?
"n" ; Write the plot to a file
"n" ; Save changes to model tab
"y" ; Proceed with plot
) ;_ end of command
(princ) ; close silently
) ;_ end of defun
;|«Visual LISP© Format Options»
(100 2 40 2 T "end of " 80 9 0 0 nil T T nil T)
;*** DO NOT add text below the comment! ***|;
Met bovenstaande als voorbeeld zou het moeten lukken.
Deze BaBe print alles op A4 en in landscape.
Lukt het niet, verander dan de plotscale.
Succes,
Joop
