哪位大侠能否帮助我合并以下这个程序为一个？

894560869

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

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

894560869

盼好久终于盼到今天,谢谢!!!!

qhdqsj

(defun dyzz (/ p0 pt zh)
  (setq p0 (getpoint "\n确定打印窗口左下角:")
        pt (getcorner p0 "\n确定打印窗口右上角:"))
  (if (>= (- (car pt) (car p0)) (- (cadr pt) (cadr p0)))
    (setq zh "l") (setq zh "p"))
  (command "LTSCALE" (/ (max (- (car pt) (car p0))
                        (- (cadr pt) (cadr p0))) 60))
  (command "-plot" "y" "" "HP LaserJet 1020" "a4" "m" zh "n"
           "w" p0 pt "f" "c" "y" "." "y" "a" "n" "n" "y" "")
  (if la
    (setvar "clayer" la )
    (setvar "clayer" "0" ))
  (exit)
  (princ)
)
这里是一个打印的子程序，但已包含了您需要的内容，请自行截取修改。有不明之处请发qhdqsj@126.com

hxjxinfuer

好像不行了，