Hi All
How do I get the the dialog the AutoCAD uses, instead of the one used with getfiled?
(defun c:A0_BIGENCOLOUR_PDF (/)
(setvar "cmdecho" 0)
(setq cur_plottransparencyoverride (getvar "PLOTTRANSPARENCYOVERRIDE"))
(setvar "PLOTTRANSPARENCYOVERRIDE" 2)
(setq cur_space (getvar "ctab"))
(if (= cur_space "Model")
(alert "\n You are in MODEL SPACE - Please select a PAPER SPACE layout to plot! " )
(
(command "zoom" "Extents")
(setq filename (getfiled "Enter PDF file name" "" "pdf" 1)) ;;;https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/plot-pdf-lisp/td-p/3060536
(command "-plot" ; Start plot command
"yes" ; Detailed plot configuration?
(getvar "ctab") ; Get a layout name
"DWG To PDF.pc3" ; Enter an output device name GEBRUIK DUBBEL \\ VIR UNC PARTHS
"ISO full bleed A0 (841.00 x 1189.00 MM)" ; Enter paper size
"Millimeters" ; Enter paper units
"Landscape" ; Enter drawing orientation
"No" ; Plot upside down?
"Extents" ; Enter plot area
"100/100" ; Enter plot scale
"Center" ; Enter plot offset (x,y)
"Yes" ; Plot with plot styles?
"BigenColour.ctb" ; Enter plot style table name or
"Yes" ; Plot with lineweights?
"Yes" ; Scale lineweights with plot scale?
"No" ; Plot paper space first?
"No" ; Hide paperspace objects?
filename
;;; "No" ; Write the plot to a file
"Yes" ; Save changes to page setup
"Yes" ; Proceed with plot
))
); if cur_space
(setvar "cmdecho" 1)
(setvar "PLOTTRANSPARENCYOVERRIDE" cur_plottransparencyoverride)
(princ)
(princ)
)
