批量打印出图的 lisp程序请教！高手进！

att

(defun c:Mplot()

　　　　(setq p_1 (getpoint"\n\tFirst CORNER:")

　　　　　　 P_2 (getPOINT"\n\tOther CORNER:")

　　　　　　 n (getint"\n\t总张数：<1>"))

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

　　　　(setq m_d 500)

　　 (REPEAT n

　　　　　　 (command"plot" "w" P_1 P_2 "n" COMMAND)

                      (setq p_1(polar p_1 (/pi 2) m_d ) p_2(polar p_2 (/pi 2) m_d))

      )

)

要实现功能：在AutoCAD中用PLOT命令每次只能打印一张图纸，如果在一个图形文件内有多张大小一样的图纸成纵向排列，间距M_d=500mm。通过Mplot只需调试一张，便可打印所有图纸

各位大侠请看一下程序有什么问题？ 我对这(command"plot" "w" P_1 P_2 "n" COMMAND)不是太懂，运行命令mplot好象这句的"n"有问题，望各位高手指教！

飞诗(fsxm)

请写一点大众习惯的程式好一点~

比如说我图纸总是无规则排列

chamous

我的一个项目大大小小的图纸全部在一个CAD文档里,这样无规则怎样实现批量打印?

wjwcl

把plot改成-plot应该可以

qianglcq

为什么很多人的读习惯这样做图呢?

有什么好处我真得搞不懂!

arming_hz

用VBA写过一个批打印出图的,不过现在还需要的先要把打印设置好.下一步准备改进为自动搜索图框打印.