cadlisp框选打印_我有好多CAD图纸要打印，一张一张的选取打印太麻烦了，请教高手有没有什么好的办法帮小弟一下、！..十分感...

这个问题必须程序才可以解决。要根据你图的布局写程序。

你分都不给么，这么高难的问题，至少值200分

送你个程序：

(defun c:Aprint ()

;;;自动打印

(setq cmdsave (getvar "cmdecho"))

(setvar "cmdecho" 0)

(setq osmodesave (getvar "osmode"))

(setvar "osmode" 0)

;;;

(setq t_page(getint"总页码:"))

(setq s_point(getpoint"打印起点:"))

(setq s_x(nth 0 s_point)

s_y(nth 1 s_point)

)

;;;

(setq scale(/ (getvar "userr1") 1000))

;;;

(setq hh 520 ww 380 jj 20 TT 10);;;hh图框高，ww图框宽，jj位移间距

(setq i_page 1)

(while (<= i_page t_page)

(setq pax(+ s_x (* (+ ww jj) (- i_page 1))))

(setq pay s_y)

(setq pa(list (+ pax tt) (+ pay tt)))

;;;

(setq pcx(+ pax ww))

(setq pcy(+ pay hh))

(setq pc(list (- pcx tt) (- pcy tt)))

;;;

(command "_zoom" "w" pa pc "")

;;(command "pline" pa pc "")

;;;打印参数要根据具体打印机修改

(command "-plot" "y" "" "hp deskjet 1180c printer" "A4 (210 x 297 毫米) " "m" "p" "n" "w" pa pc 0.5 "居中打印" "Y" "acad" "y" "a" "n" "n" "y" "")

;;(setq i_page(+ i_page 1))

)

)