(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)
)
页:
1
[2]