请教这里的高手,一个新的CAD批打印的问题!

nr_lgc

有没有高手知道,怎么一次性批打印一个大文件夹中若干小文件夹中的若干CAD图纸?

而不需要用batch plot进每个文件夹挨个加入图纸?太耗时间了!!!

phoenixdjq

这个程序是我自己编给自己用的，没有做普遍性的处理，也许对你有用

w31是打印A3的，w41是打印A4的

要求，每个图纸都是挨着的，而且必须先打印一张，这样能保存一个设置

然后用这个程序就可以了。

你可以是试一下，有问题再联系吧

(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)

)

nr_lgc

先感谢楼上的热情支持!如果好用,我会考虑跟单位申请一定的经费跟你购买正式版本的程序!

谢谢!

nr_lgc

刚才看了一下,没有完全看懂,但好像发现跟我想的不太一样.

我们的图纸一般是这样的:

文件夹A中包括N个文件夹B,文件夹B中包括很多dwg的图纸,图纸按如下方式排列:

14-01.DWG

14-02.DWG

...

14-14.DWG

FM.DWG

楼上的高手还有好办法嘛?