(defun c:DoIt ()
  (if (= (getvar "pstylemode") 0)
    (command "convertpstyles")
  ) ;_ end of if
  (command "-layer"
	   "plot"
	   "plot"
	   "OudeCode"
	   ""
  ) ;_ end of command
  (command "-plot"			; command to plot without GUI  
	   "y"				; Detailed plot configuration? 
	   "model"			; Enter a layout name          
	   "BP08201_A4.pc3"		; Enter an output device name  
	   "A4"				; Enter paper size             
	   "m"				; Enter paper units            
	   "l"				; 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)
) ;_ 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! ***|;