Lisp绘制PDF停止工作

GregGleason · 发表于 2022-7-5 13:08:36

此代码用于打印到。pdf：


(defun c:SendToPDFefa()
      (vl-load-com)
    
      (if (setq filename (getfiled "Save File Location" ""  "pdf" 1))
  (progn 
      (command "-plot" "yes" "" "DWG To PDF.pc3" "ANSI expand B (11.00 x 17.00 Inches)"
          "inches" "landscape" "yes" "Extents"
          "fit" "center" "yes" "acad.ctb" "yes" "a" filename "no" "yes")
                )
          )
      )

现在输出失败：
命令：SENDTOPDFEFA
未知命令“P:\randomfolderstructure\ACADFILENAME.PDF”。按F1键获取帮助。
未知命令“否”。按F1键获取帮助。
未知命令“是”。按F1键获取帮助。
无

我知道发生这种情况时它一直在调整打印机，但我不知道这是否是巧合。
我有两个问题：

[列表=1]

代码需要如何调整

是什么导致代码失败
[/列表]
格雷格

rlx · 发表于 2022-7-5 13:17:15

我认为在……之后事情会变得糟糕。。。。“yes”“acad.ctb”“yes”“a”->“a”是怎么回事？这是“使用打印比例缩放线宽”后的提示？（是/否）。
最好的检查方法是将defun停一会儿，然后通过自己输入来完成日常工作的每一步，每次一行。当代码失败时，您可以这样看。

我通常检查的其他事项：模型和图纸空间的提示数量不同。你正在保存pdf的文件夹可以是只读的，好吧，在这里@我自己的工作无论如何。

GregGleason · 发表于 2022-7-5 13:26:11

谢谢rlx，这很有帮助。

我想差不多了，但我需要更多的帮助。

我将代码修改如下：

copy


(defun c:zzz()
      (vl-load-com)
    
      (if (setq filename (getfiled "Save File Location" ""  "pdf" 1))
  (progn 
      (command "-plot" "yes" "" "DWG To PDF.pc3" "ANSI expand B (11.00 x 17.00 Inches)"
          "inches" "landscape" "No" "Layout"
          "1:1" "0.00,0.00" "yes" "acad.ctb" "yes" "no" "no" "no" filename "n" "y")
                )
          )
      )

这将至少绘制，但它被右移（请参阅“2018-141-PI-SK-001.Lisp.pdf”）。

然而，当我手动绘制时，结果是正确的（见“2018-141-PI-SK-001.Manual.pdf”）。

请参阅使用的打印设置。

如何调整代码以修复它？

格雷格

rlx · 发表于 2022-7-5 13:32:00

不完全确定，相信这与必须精确匹配的利润率有关。

https://knowledge.autodesk.com/support/autocad/troubleshooting/caas/sfdcarticles/sfdcarticles/Plotting-to-PDF-shifts-the-layout-to-the-lower-left-in-AutoCAD.html

我通常使用fit打印范围，除非我必须处理多个边界，在那里我使用窗口打印，我在某处读过一篇文章，建议不要使用Dwg到PDF，而是使用adobe驱动程序打印，但这只有在安装了这个驱动程序的情况下才有效。你可以使用负x原点，或者使用更小的比例，比如1:0.99。怀疑是否有人会注意到。微小的差异对绘图本身没有多大影响，但对于让autocad使用上面链接中建议的适当边距来说，这可能会产生很大的影响。