PDF到预定义文件夹

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

下面的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目录

copy


; 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

编辑到此，但出现错误

copy

(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

哎呀，似乎无法编辑我之前的帖子，但将第三行改为下面，以允许文件名中有空格。

copy

  (or (snvalid (setq fnm [color=red](vl-string-trim " " [/color](getstring [color=red]T[/color] "\nFilename: ")))[color=red])[/color]

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

嗨，弗兰克·拜恩斯。
当我运行LISP时，它有这个错误。它也没有创建任何PDF

在第二行，“FILENAME：”它等待我输入文件名。
接下来，“指定保存位置[D/DOcuments]：”按“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\），以下操作应该可以。。

copy

(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" [color="red"]PAUSE PAUSE[/color] "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一样，有两个窗口点编码。

copy


   (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到预定义文件夹

发表回复

精选推荐