[LISP程序]：寻求简单快捷的批量打印程序

kohi

已有的批量打印程序功能太多， 操作麻烦，运行不稳。
寻求简单快捷的批量打印程序， 比如什么设置都默认，就是一次可打印多个图纸文件。。。

phoenixdjq

我有一个简单的
初衷只是自己用,既然有人需要,就共享一下,不知道能不能满足你的要求
注意,图纸与图纸间没有间隙,是互相连接的

jinsong-liao

二楼的兄弟，不知是你的问题还是我的问题，文件下了几次都没成功，请检查一下。

phoenixdjq

(defun c:w31( / p1 p2 px n)

(setq p1 (getpoint "\n 请选择第一个点:"))
(setq p2 (getpoint "\n 请选择第二个点:"))
(setq n (getint "\n 请选择连续页数:"))
(setq e (getint "\n 横向<1>纵向<2>:"))
(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)

)


(defun c:w41(/ p1 p2 px n e)

(setq p1 (getpoint "\n 请选择第一个点:"))
(setq p2 (getpoint "\n 请选择第二个点:"))
(setq n (getint "\n 请选择连续页数:"))
(setq e (getint "\n 横向<1>纵向<2>:"))
(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)

)

别忘了要改打印机的名字,w31是打印A3纸的，W41是打印A4纸的

kohi

2楼：谢谢， 但我说过了“什么设置都默认，一次可打印多个图纸文件“， 不要选择什么点的。。。

phoenixdjq

那绝对不可能
如果你不想在打印的时候做更多的工作,就要在作图的时候做工作
想完全偷懒,天下没有那么美的事情.

lxch

在哪里改打印机的名字？

phoenixdjq

“模型”后面需要加打印机的名字,两个都要改呀
如果是网络打印机的话，最好写成ip地址，例如
“\\\\ 172.1.2.65\\hp 5100”

kohi

最初由 phoenixdjq 发布
[B]那绝对不可能
如果你不想在打印的时候做更多的工作,就要在作图的时候做工作
想完全偷懒,天下没有那么美的事情. [/B]

干吗那么绝对呢？请看好我提问的前提，就是说有关设置已经做好，现在只是让你一次打印多个文件， 有什么不可以？实际上2006本身带的Publish基本就能满足这个功能。

phoenixdjq

那就先打一张,然后再用批量打印
这个程序就会按照你的"上次打印"来出图了
如果你的上次打印都设置好了,当然不用改了
是我理解错了,不好意思

fish710605

我做了一个批处理打印程序。可以试用。如你所说的功能。所有的设置全部设置好 的。我在2006下使用挺 好用的。功能：在模型空间批处理打印图纸，按照从上到下，从左到右的次序打印。但前提是图框是块名为“GB_A4_H" “GB_A4_V" “GB_A3" 的块名。其它的没有要求。打印机是系统的默认打印机。我测试过，打印80张的图纸计算机执行只需要1分钟多。

需要的话联系我的QQ：59705568。请注明要打印程序。