;;;                                     				;
;;; Meerdere tekeningen tegelijk verwerken				;
;;; >>>> Printen op A3 op de Canon 1ste verdieping <<<<			;
;;; >>>> Alle layouts <<<<						;
;;;                                     				;
;;; Name:	BaBe_Plot-All-Layouts.lsp				;
;;; Ver :	V2.0                                			;
;;; Date:	01-02-2003						;
;;; RevDate:	08-03-2006						;
;;;                                     				;



(defun c:DoIt ()
  (if (= (getvar "pstylemode") 0)
    (command "convertpstyles")
  ) ;_ end of if
  (setq volgnr 0)
  (setq all_layouts (layoutlist))
  (setq l (vl-list-length all_layouts))
  (while (< volgnr l)
    (setq a_layout (nth volgnr all_layouts))
    (setq str (strcat "Now plotting layout: " a_layout))

    (print str)
    (setq volgnr (1+ volgnr))
    (command "-plot"			;Plot-command				;
	     "y"			;Detailed plot configuration?		;
	     a_layout			;Enter a layout name			;
	     "NLP12280"			;Enter an output device name		;
	     "A3"			;Enter paper size			;
	     "m"			;Enter paper units			;
	     "l"			;Enter drawing orientation		;
	     "n"			;Plot upside down?			;
	     "e"			;Enter plotarea				;
	     "f"			;Enter plot scale			;
	     "0,0"			;Enter plot offset			;
	     "y"			;Plot with plot styles			;
	     "_zwart.ctb"		;Enter plot style table name		;
	     "y"			;plot with lineweights			;
	     "n"			;Scale lineweights with plot scale?	;
	     "n"			;Plot paper space first?		;
	     "n"			;Remove hiddenlines?			;
	     "n"			;Write the plot to a file		;
	     "n"			;Save changes to layout?		;
	     "y"			;Proceed with plot?			;
	    ) ;_ end of command
  ) ;_ end of while

) ;_ end of defun
;|«Visual LISP© Format Options»
(100 2 40 2 T "end of " 80 9 0 0 2 T T nil T)
;*** DO NOT add text below the comment! ***|;