[编程申请]：求助CAD2002批量打印？

alin520

有没有在CAD2002里面批量打印的程序（我现在有一百张图框大小一样、间距一样，横向排列100张）？程序最好能加点中文说明，看的懂点。
下面是一个纵向打印的程序，改成横向怎么办，而且我不知道怎么用他这个程序呀？请斑竹开发一个方便实用程序，最好能挂在CAD里面。
(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 570)
　　 (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)）
　　)
　　 ) ;enddef