哪位大侠能否帮助我合并以下这个程序为一个
哪位大侠能否帮助我合并以下这个程序为一个？目的是让程序可自动根据图形自动判断图纸是纵向打印还是横向打印;;;模型空间里的批量打印
(defun c:FX ();横向
(setqp_1 (getpoint "\n\tFirst CORNER(指定需要横向打印图纸的左下角):"))
(setqP_2(getPOINT "\n\tOther CORNER(指定需要横向打印图纸的右上角):"))
(command "plot" "y" "" "Canon iP1100 series" "" "" "L" "" "w" P_1 P_2 "" "" "" "" "" "" "n" "n" "y"))
(defun c:FY ();纵向
(setqp_1 (getpoint "\n\tFirst CORNER(指定需要横向打印图纸的左下角):"))
(setqP_2(getPOINT "\n\tOther CORNER(指定需要横向打印图纸的右上角):"))
(command "plot" "y" "" "Canon iP1100 series" "" "" "P" "" "w" P_1 P_2 "" "" "" "" "" "" "n" "n" "y"))
页:
[1]