CAD2016简单的打印代码为何出错？是打印机设置有问题？

fedd · 发表于 2022-4-10 20:59

(defun c:DY( )
(setq sel (entsel "\n选择四边形:")
en (entget (car sel)))
(setq Lst (mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) en))
p1 (nth 0 Lst)
s2 (nth 1 Lst)
p2 (nth 2 Lst)
s4 (nth 3 Lst)
)
(setq st "landscape")
  (setq x1 (car p1) y1 (cadr p1) x2 (car p2) y2 (cadr p2))
  (setq x (abs (- x1 x2)) y (abs (- y1 y2)) )
  (if (> y x) (setq st "portrait"))
  (command "_plot" "YES" "" "\DWG TO PDF.PC3" "A4"  "" st "" "window" p1 p2 "Fit" "center" "" "monochrome.ctb" "" "" "" "" "")
(princ)
)

gaics · 发表于 2022-4-10 22:56

"\DWG TO PDF.PC3"

烟盒迷唇 · 发表于 2022-4-11 06:49

这句command出问题的多，每个版本都不一样的

fedd · 发表于 2022-4-11 11:01

gaics 发表于 2022-4-10 22:56
"\DWG TO PDF.PC3"

请教：这一句和上面有什么地方不一样？

gaics · 发表于 2022-4-11 13:27

fedd 发表于 2022-4-11 11:01
请教：这一句和上面有什么地方不一样？

换个打印机试试

gaics · 发表于 2022-4-11 16:37

fedd 发表于 2022-4-11 11:01
请教：这一句和上面有什么地方不一样？

或者你在命令行运行一下“-plot”命令，试一试具体操作步骤，看下不同打印机是怎么执行打印命令的。我替换成PDFfactory pro打印机是ok的。

G〆h · 发表于 2022-4-11 21:39

PDFfactory pro 是非常好的批量打印生成PDF文件的好工具。只要在运行的窗口下，不论什么文件都能生成并合并PDF文件。比DWG TO PDF，ADOBE PDF之类好用多了。

fedd · 发表于 2022-4-12 09:16

好的好的，我试试，谢谢各位热心的解答！！

zjjhero3blade · 发表于 2022-4-12 10:49

请教：这一句和上面有什么地方不一样？

fedd · 发表于 2022-4-13 22:24

搞定，换成ADOBE PDF 成功打印，非常开心！再次感谢诸位:P

账号		自动登录	找回密码
密码			注册

[函数] CAD2016简单的打印代码为何出错？是打印机设置有问题？