(defun c:PDF ( / )
  (foreach layoutname (vl-remove "Model" (layoutlist))
    (command "._layout" "set" layoutname)
    (command "_plot"
	     "_y"       ; Detailed plot configuration? [Yes/No] <No>: y
	     layoutname ; Enter a layout name or [?] <4111>:
	     "PDFcreator.pc3"  ; Enter an output device name or [?] <Plt.pc3>:
	     "A1" ; Enter paper size or [?] <ISO expand A1 (594.00 x 841.00 MM)>:
	     "Millimeters" ;Enter paper units [Inches/Millimeters] <Inches>:
	     "Landscape" ; Enter drawing orientation [Portrait/Landscape] <Landscape>:
	     "No" ; Plot upside down? [Yes/No] <No>:
	     "_e" ; Enter plot area [Display/Extents/Layout/View/Window] <Extents>: e
	     "1000=1" ; Enter plot scale (Plotted Millimeters=Drawing Units) or [Fit] <1000=1>: 
	     "_c" ; Enter plot offset (x,y) or [Center] <Center>: c
	     "_y" ; Plot with plot styles? [Yes/No] <Yes>:
	     "A1.ctb" ; Enter plot style table name or [?] (enter . for none) <A1.ctb>:
	     "_y" ; Plot with lineweights? [Yes/No] <Yes>:
	     "_n" ; Scale lineweights with plot scale? [Yes/No] <No>:
	     "_n" ; Plot paper space first? [Yes/No] <No>:
	     "_n" ;Hide paperspace objects? [Yes/No] <No>:
	     "_y" (strcat "c:\\pdfplot\\" (substr (setq str (getvar "dwgname")) 1 (- (strlen str) 4)) "-" layoutname)  ;Write the plot to a file [Yes/No] <Y>:
	     "_n" ; Save changes to page setup [Yes/No]? <N>
	     "_y" ;Proceed with plot [Yes/No] <Y>:
	     )
    )
  (princ "\nComplete...")
  (princ)
  )