PDF to predefind folder

[tive29]

Here is two code examples of finding title blocks it needs the two to be combined into one that suits your needs.

 

http://www.cadtutor.net/forum/showthread.php?100977-pagesetup-with-lisp-with-several-layout-A3-A0.-A1

 

Thanks but the title block is just a rectangle polyline in the size of A4, A3 & A2. So I am not sure how the lisp can help.

[FranknBeans]

Sorry I am a little confused now what you want the lisp to do. You want no intervention from the user but you want the lisp to create a folder, is the location not the same every time? Your first post asked to save in D:\pdf\ or documents so I thought the location must exist already.

BIGAL has posted code that will create a folder automatically if that is what you need.

[FranknBeans]

does this work for you?

(BIGAL's code with a small typo fix)

(defun c:pp ( / dwgpre pdfname ) 
(setq dwgpre (strcat (getvar "dwgprefix") "pdf\\"))
(if (= (vl-file-directory-p dwgpre) nil)
(vl-mkdir dwgpre)
)
(setq pdfname (strcat dwgpre [color=red](getvar "dwgname")[/color] "-" (getvar "ctab") ".pdf" ))

(command "tilemode" "0") 
(command "-plot" "y" "" "Dwg To PDF.pc3" "ISO expand A4 (210.00 x 297.00 MM)" "M" "P" "N" "W" "" "" "1:1" "C" "Y" "Myplotstyle.ctb" "Y" "N" "N" "N" pdfname "N" "Y")
)

[tive29]

Thanks FranknBeans. It works now.

 

does this work for you?

(BIGAL's code with a small typo fix)

(defun c:pp ( / dwgpre pdfname ) 
(setq dwgpre (strcat (getvar "dwgprefix") "pdf\\"))
(if (= (vl-file-directory-p dwgpre) nil)
(vl-mkdir dwgpre)
)
(setq pdfname (strcat dwgpre [color=red](getvar "dwgname")[/color] "-" (getvar "ctab") ".pdf" ))

(command "tilemode" "0") 
(command "-plot" "y" "" "Dwg To PDF.pc3" "ISO expand A4 (210.00 x 297.00 MM)" "M" "P" "N" "W" "" "" "1:1" "C" "Y" "Myplotstyle.ctb" "Y" "N" "N" "N" pdfname "N" "Y")
)

[FranknBeans]

ha! all credit to BIGAL, it seems he knew what you wanted minutes after your first post

Glad you got there in the end though

[tive29]

ha! all credit to BIGAL, it seems he knew what you wanted minutes after your first post

Glad you got there in the end though

 

Thanks for putting it together as I would not have been able to do that.