Batch print lisp not working correctly- V15
Can't get this to work right, I'm not a lisp guru so maybe someone out there can offer some insight? I'm trying to print a multitude of drawings (hard copy) using "detailed print configuration" but Brics is ignoring some of the settings like printer, landscape, letter & etc. I know publish is an option but it doesn't let you do any fine tuning from within itself.
Here's the program bplot2:
Code bplot2:
(defun C:BPLOT2 (/ )
(if (not dos_dir) (arxload "DOSLib15x64.brx"))
(setq files (dos_getfilem "Select files to print.." "C:\\""Drawing Files (*.dwg)|*.dwg"))
(setq dwgpath (car files))
(if (/= files nil)
(progn
(foreach dwgfile (acad_strlsort (cdr files))
(command ".open" (strcat dwgpath dwgfile))
(command
"_.plot"
"_yes" ; Detailed plot configuration? /No:
"Previous plot" ; Enter a layout name or [?] :
"Default Windows System printer.pc3" ; Enter an output device name or [?] :
"" ; Enter paper size or [?] :
"" ; Enter paper units /Millimeters:
"Landscape" ; Enter drawing orientation Portrait/:
"" ; Plot upside down? Yes/:
"Extents" ; Enter plot area Display//Limits/View/Window:
"" ; Enter plot scale (Plotted inches = Drawing Units) or :
"" ; Enter plot offset (x,y) or
"" ; Plot with plot styles? /No:
"" ; Enter plot style table name or [?] (enter . for none)
"" ; Plot with lineweights? /No:
"" ; Remove hidden lines? Yes/:
"" ; Write the plot to a file? Yes/:
"" ; Save changes to layout? Yes/:
"" ; Proceed with plot? /No:
)
(command ".qsave")
(command ".close")
)
)
)
)
Any comments would be welcome!