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

qazxswk

(defun c:11( )
(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" "ISO full bleed A3 (420.00 x 297.00 毫米)"  "" st "" "window" p1 p2 "Fit" "center" "" "monochrome.ctb" "" "" "" "" "")
(princ)
)