(defun c:Mploty () (alert (strcat "===模型空间批量出图程序1.0版=== 2003.8.31 \n" "\n" "感谢使用本程序,欢迎提出修改意见 \n" "保留所有权利 \n" "\n" " 免费软件请勿做商业用途 \n" "\n" " QQ:55255953 \n" ) ) (setq p_1 (getpoint "\n\tFirst CORNER(最下方第一张图纸的左下角):")
(alert
(strcat
"===模型空间批量出图程序1.0版=== 2003.8.31 \n"
"\n"
"感谢使用本程序,欢迎提出修改意见 \n"
"保留所有权利 \n"
"\n"
" 免费软件请勿做商业用途 \n"
"\n"
" QQ:55255953 \n"
)
)
(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 (getreal "\n请输入图纸Y向间距(59400):"))
(if (= m_d nil)
(setq m_d 59400)
)
(REPEAT n
(command "plot" "y" "" "" "" "" "" "" "w" P_1 P_2 "" "" "" "" "" "" "n" "n" "y")(COMMAND)
(setq p_1 (polar p_1 (/ pi 2) m_d)
p_2 (polar p_2 (/ pi 2) m_d)
)
)
)
(princ "\n批量打印程序已加载,键入mploty启动程序") ;enddef