请教这里的高手,一个新的CAD批打印的问题!
本帖最后由 作者 于 2007-4-9 16:54:33 编辑 <br /><br /> <p>有没有高手知道,怎么一次性批打印一个大文件夹中若干小文件夹中的若干CAD图纸?</p><p>而不需要用batch plot进每个文件夹挨个加入图纸?太耗时间了!!!</p> <p>这个程序是我自己编给自己用的，没有做普遍性的处理，也许对你有用</p><p>w31是打印A3的，w41是打印A4的</p><p>要求，每个图纸都是挨着的，而且必须先打印一张，这样能保存一个设置</p><p>然后用这个程序就可以了。</p><p>你可以是试一下，有问题再联系吧</p><p>(defun c:w31( / p1 p2 px n)</p><p>(setq p1 (getpoint "\n 请选择第一个点:"))<br/>(setq p2 (getpoint "\n 请选择第二个点:"))<br/>(setq n (getint "\n 请选择连续页数:"))<br/>(setq e (getint "\n 横向<1>纵向<2>:"))<br/>(if (= n nil) (setq n 1))<br/>(repeat n<br/>(if (= 2 e)<br/>(command "-plot" "y" "模型" "" "A3" "M" "P" "N" "W" P1 P2 "F" "" "" "" "y" "w" "N" "Y" "Y"))<br/>;纵向<br/>(if (= 1 e)<br/>(command "-plot" "y" "模型" "" "A3" "M" "L" "N" "W" P1 P2 "F" "" "" "" "y" "w" "N" "Y" "Y"))<br/>;横向<br/>(setq px (- (car p2) (car p1)))<br/>(setq p1 (list (+ px ( car p1)) (cadr p1)))<br/>(setq p2 (list (+ px ( car p2)) (cadr p2))) <br/>)<br/>(princ)</p><p>)</p><p><br/>(defun c:w41(/ p1 p2 px n e)</p><p>(setq p1 (getpoint "\n 请选择第一个点:"))<br/>(setq p2 (getpoint "\n 请选择第二个点:"))<br/>(setq n (getint "\n 请选择连续页数:"))<br/>(setq e (getint "\n 横向<1>纵向<2>:"))<br/>(if (= n nil) (setq n 1))<br/>(repeat n<br/>(if (= 2 e)<br/>(command "-plot" "y" "模型" "" "A4" "M" "P" "N" "W" P1 P2 "F" "" "" "" "y" "w" "N" "Y" "Y"))<br/>;纵向<br/>(if (= 1 e)<br/>(command "-plot" "y" "模型" "" "A4" "M" "L" "N" "W" P1 P2 "F" "" "" "" "y" "w" "N" "Y" "Y"))<br/>;横向<br/>(setq px (- (car p2) (car p1)))<br/>(setq p1 (list (+ px ( car p1)) (cadr p1)))<br/>(setq p2 (list (+ px ( car p2)) (cadr p2))) <br/>)<br/>(princ)</p><p>)<br/></p> <p>先感谢楼上的热情支持!如果好用,我会考虑跟单位申请一定的经费跟你购买正式版本的程序!</p><p>谢谢!</p> <p>刚才看了一下,没有完全看懂,但好像发现跟我想的不太一样.</p><p>我们的图纸一般是这样的:</p><p>文件夹A中包括N个文件夹B,文件夹B中包括很多dwg的图纸,图纸按如下方式排列:</p><p>14-01.DWG</p><p>14-02.DWG</p><p>...</p><p>14-14.DWG</p><p>FM.DWG</p><p>楼上的高手还有好办法嘛?</p>
页:
[1]