found this code awhile ago
never go around to testing it however
feel free to see if it works for you, you will need to make some changes to
it to suit your need also
(defun C:PDF ( / paper orient filename dwgname dwgpre )
;; Setup section
(setq paper "ANSI A (8.50 x 11.00 Inches)")
(setq orient "PORTRAIT")
(setq filename "")
(setq dwgname (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname"))
4) ))
(setq dwgpre (getvar "dwgprefix"))
(setq filename (strcat "c:/bsl/pdf/" dwgname ".pdf"))
;; driver size8.5x11 portrait
Extents Scale Center ..
(command "_plot" "Y" "MODEL" "DWG To PDF.pc3" paper "inches" orient "N" "E"
"1=20" "C" "Y" "monochrome.ctb" "Y" "A" filename "N" "Y")
(prompt "\n ")
(princ)
); end function
(princ)
wrote in message news:5837011@discussion.autodesk.com...
Hello,
My problem is the following, when i finish to revised a drawing, i would
like to press a button and do the following : the drawing is save into a pdf
file to a given directory. Is there a way to do that ? For the file name, a
dialog box can ask for the name.
Thank you