急求帮忙 打印

lzg8877

     由于工作需要 打印频烦 希望能有人能给以帮助
             每次只打印一个图 一个方向 希望选图 打印A3 一张  A4一张  （直接打印不提问张数）
      

Gu_xl

命令行输入-plot
让后根据提示一步一步的设置，将其转化为lisp代码即可！

lzg8877

这是我下载别人的 请帮忙合并 成 选图 打印 A3 一个 A4 一个
(defun c:w31( / p1 p2 px n)
(setq old (getvar "osmode"))
(setvar "osmode" 1)

(command "-plot" "n" "" "上一次打印" "" "n" "y" "n")

(setq p1 (getpoint "\n 请选择第一个点:"))
(setq p2 (getpoint "\n 请选择第二个点:"))
(setq n (getint "\n 请选择连续页数:"))
(setq e (getint "\n 横向<1>纵向<2>:"))
(setvar "osmode" 0)
(if (= n nil) (setq n 1))
(repeat n
(if (= 2 e)
(command "-plot" "y" "模型" "" "A3" "M" "P" "N" "W" P1 P2 "F" "" "" "" "y"  "w" "N" "Y" "Y"))
;纵向
(if (= 1 e)
(command "-plot" "y" "模型" "" "A3" "M" "L" "N" "W" P1 P2 "F" "" "" "" "y"  "w" "N" "Y" "Y"))
;横向
(setq px (- (car p2) (car p1)))
(setq p1 (list (+ px ( car p1)) (cadr p1)))
(setq p2 (list (+ px ( car p2)) (cadr p2)))
)
(princ)
(setvar "osmode" old)
)


(defun c:w41(/ p1 p2 px n e)
(setq old (getvar "osmode"))
(setvar "osmode" 1)
(command "-plot" "n" "" "上一次打印" "" "n" "y" "n")
(setq p1 (getpoint "\n 请选择第一个点:"))
(setq p2 (getpoint "\n 请选择第二个点:"))
(setq n (getint "\n 请选择连续页数:"))
(setq e (getint "\n 横向<1>纵向<2>:"))
(setvar "osmode" 0)
(if (= n nil) (setq n 1))
(repeat n
(if (= 2 e)
(command "-plot" "y" "模型" "" "A4" "M" "P" "N" "W" P1 P2 "F" "" "" "" "y"  "w" "N" "Y" "Y"))
;纵向
(if (= 1 e)
(command "-plot" "y" "模型" "" "A4" "M" "L" "N" "W" P1 P2 "F" "" "" "" "y"  "w" "N" "Y" "Y"))
;横向
(setq px (- (car p2) (car p1)))
(setq p1 (list (+ px ( car p1)) (cadr p1)))
(setq p2 (list (+ px ( car p2)) (cadr p2)))
)
(princ)
(setvar "osmode" old)
)

lzg8877

  工作重负，实在受不了了 帮助一下吧  

lzg8877

请帮助合并一下代码， 功能  先图   出A3＝3张  A4＝2张  方向如图  感谢

lzg8877

顶贴 请帮帮忙合并一下代码