社区 › Auto Lisp › PDF到预定义文件夹

tive29 发表于 2022-7-5 16:14:47

PDF到预定义文件夹

下面的lisp PDF到当前图形位置文件夹。
 
如何保存到另一个文件夹（例如，d:\PDF）或文档文件夹
 
(defun C:PP (/ fnm)

(if (setq fnm (getfiled "Specify Save Location" "" "pdf" 1))
(progn

(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" fnm "N" "Y")
)
)
)

BIGAL 发表于 2022-7-5 16:18:32

这将在dwg文件夹下创建pdf目录
 

; check that pdf directory exists
(setq dwgpre (strcat (getvar "dwgprefix") "\pdf"))
(if (= (vl-file-directory-p dwgpre) nil)
(vl-mkdir dwgpre)
)

(setq pdfname (strcat dwgpre "\\" dwgname "-" (getvar "ctab") ".pdf" ))
y" "Designlasercolour.ctb" "Y"        "n" "n" "n" pdfName "N" "y"

tive29 发表于 2022-7-5 16:23:38

 
如何将其与我的lisp结合起来？

tive29 发表于 2022-7-5 16:24:26

编辑到此，但出现错误
 
(defun C:PP (/ pdfName)

(setq dwgpre (strcat (getvar "dwgprefix") "\pdf"))
(if (= (vl-file-directory-p dwgpre) nil)
(vl-mkdir dwgpre)
)

(setq pdfname (strcat dwgpre "\\" dwgname "-" (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 发表于 2022-7-5 16:29:17

嗨，试试这个。。
您可以在“cond”集中定义任意数量的位置

FranknBeans 发表于 2022-7-5 16:33:37

哎呀，似乎无法编辑我之前的帖子，但将第三行改为下面，以允许文件名中有空格。
(or (snvalid (setq fnm (vl-string-trim " " (getstring T "\nFilename: "))))

tive29 发表于 2022-7-5 16:36:51

嗨，弗兰克·拜恩斯。
当我运行LISP时，它有这个错误。它也没有创建任何PDF
 
在第二行，“FILENAME：”它等待我输入文件名。
接下来，“指定保存位置：”按“D”或“DO”或只按enter键都会出现相同的错误。
 
我只希望lisp能够直接将基于原始文件名的PDF文件保存到预定义的文件夹中，而不需要用户的任何干预。
 

tive29 发表于 2022-7-5 16:37:02

有没有办法让命令行用于导出或导出PDF？
 
按“YES”（是）到“Detailed plot configuration（详细绘图配置）【YES（是）/No（否）】后，它才结束
 
 
我打算在LISP例程中运行它。

FranknBeans 发表于 2022-7-5 16:42:31

绘图问题/答案序列是从原始帖子复制并粘贴的，看起来没有暂停以允许窗口选择。
如果您只希望它使用图形名称并自动保存（到c:\pdf\），以下操作应该可以。。
(defun c:pp ()
(command "tilemode" "0")
(command "-plot" "y" "" "Dwg To PDF.pc3" "ISO A4 Custom (297.00 x 210.00 MM)" "M" "P" "N" "W" PAUSE PAUSE "1:1" "C" "Y" "orora.ctb" "Y" "N" "N" "N"
(strcat "C:\\pdf\\" (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4)) ".pdf")
"N" "Y")
)

BIGAL 发表于 2022-7-5 16:46:07

这是完整的位，像Franknbeans一样，有两个窗口点编码。
 

   (COMMAND "-PLOT""Y""" "dwg to Pdf"
       "Iso full bleed A3 (420.00 x 297.00 MM)" "m" "LANDSCAPE""N"   "W""-6,-6" "807,560" "1=2""C"
       "y" "Designlasercolour.ctb" "Y" "n" "n" "n" pdfName "N" "y"
   )

查看完整版本: PDF到预定义文件夹