lisp中窗选线_怎么用lisp实现自动选择打印窗口 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - 打印,自动 - Powered by Discu...

(defun c:w31( / p1 p2 px n)

(setq old (getvar "osmode"))

(setvar "osmode" 1)

(command "-plot" "n" "" "上一次打印" "" "n" "y" "n")

(setq p1 (getpoint "\n 请选择第一个点:"))

(setq p2 (getpoint "\n 请选择第二个点:"))

(setq n (getint "\n 请选择连续页数:"))

(setq e (getint "\n 横向<1>纵向<2>:"))

(setvar "osmode" 0)

(if (= n nil) (setq n 1))

(repeat n

(if (= 2 e)

(command "-plot" "y" "模型" "" "A3" "M" "P" "N" "W" P1 P2 "F" "" "" "" "y"  "w" "N" "Y" "Y"))

;纵向

(if (= 1 e)

(command "-plot" "y" "模型" "" "A3" "M" "L" "N