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

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

(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:19

"\DWG TO PDF.PC3"

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

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

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

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

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

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

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

换个打印机试试

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

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

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

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

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

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

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

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

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

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

搞定，换成ADOBE PDF 成功打印，非常开心！再次感谢诸位:P
页: [1] 2
查看完整版本: CAD2016简单的打印代码为何出错？是打印机设置有问题？