关于CAD文件批量保存

Q晋胡

因为工作需要经常需要打开5-8个CAD,然后采用批量打印。不知有没有相关于CAD批量保存的插件或者软件可分享一下？ps：之所以一个一个文件打开，而不采用文件批量打印，因为施工图不是自己画的，图框经常有不规范问题。

llsheng_73

楼主所说的批量保存是指同一个CAD应用下边打开了多个DWG文档，这些文档或多或少都有一定修改，需要把这些文档逐一保存么？

Linhay

2. (defun c:tt ()
   
3.    (vlax-for doc
   
4.       (vla-get-Documents
   
5.          (vlax-get-acad-object)
   
6.       )
   
7.       (if (and (= :vlax-false
   
8.                   (vla-get-saved doc)
   
9.                   (vla-get-readonly doc)
   
10.                )
    
11.           )
    
12.          (progn
    
13.             (write-line
    
14.                (strcat "\nSaving "
    
15.                    (vla-get-name doc)
    
16.                )
    
17.             )
    
18.             (vla-save doc)
    
19.          )
    
20.       )
    
21.    )
    
22.    (princ)
    
23. )

(defun c:tt ()<br />    (vlax-for doc<br />       (vla-get-Documents<br />          (vlax-get-acad-object)<br />       )<br />       (if (and (= :vlax-false <br />                   (vla-get-saved doc)<br />                   (vla-get-readonly doc)<br />                )<br />           )<br />          (progn<br />             (write-line<br />                (strcat "\nSaving "<br />                    (vla-get-name doc)<br />                )<br />             )<br />             (vla-save doc)<br />          )<br />       )<br />    )<br />    (princ)<br /> )

Q晋胡

llsheng_73 发表于 2020-5-24 22:45
楼主所说的批量保存是指同一个CAD应用下边打开了多个DWG文档，这些文档或多或少都有一定修改，需要把这些文 ...

这种有插件吗？我就是每次要一个一个保存后然后一个一个关掉，很麻烦

l982414603

kucha007

保存所有文件并关闭：

(vl-Load-COM)(vlax-for item(vla-get-Documents(vlax-get-acad-object))(if(=(vla-get-active item):vlax-false)(vla-close item :vlax-true)))(command"QSAVE")(command "close")