批量处理dwg文件，遍历，打开，写入，保存，关闭

freedom_ice

在论坛里找到过批量修改字体之类的，但是没有找到批量写入实体的，尝试了很久，总是想着用vla-activate来实现，但是不管怎么激活，写入实体总是在第一个打开的CAD里面。今天发现用Vlisp，添加实体的时候指定文档即可解决问题。
分享给大家。代码来自于论坛及帮助文件。

2. ( vl-load-com )
   
3. (defun c:tt ( / sh folder folderobject result)  
   
4.   ( setq   AcadObject ( vlax-get-acad-object )  
   
5.   　　     AcadDocument ( vla-get-ActiveDocument AcadObject )  
   
6.            AcadDocuments ( vla-get-documents AcadObject )
   
7.   )
   
8.   
   
9.   (setq sh (vla-getInterfaceObject (vlax-get-acad-object) "Shell.Application" ))
   
10.   (setq folder (vlax-invoke-method sh 'BrowseForFolder 0 "请选择文件夹" 0 ))
    
11.   (vlax-release-object sh)
    
12.   (setq folderobject (vlax-get-property folder 'Self))
    
13.   (setq result (vlax-get-property FolderObject 'Path))
    
14.   (setq Files_Folder (vl-directory-files result "*.dwg"))   
    
15.   (foreach file Files_Folder
    
16.            (setq block_file (strcat result "\\" file))
    
17.    
    
18.            ( setq doc_now ( vla-open AcadDocuments block_file));打开的文档
    
19.    
    
20.            ( setq  mSpace ( vla-get-ModelSpace doc_now ) )
    
21.            ( setq myline ( vla-addline mspace (vlax-3d-point '( 0 0 0 ) )(vlax-3d-point '( 500 100 0 ))))
    
22.            ( vla-Save doc_now )
    
23.            ( vlax-for doc AcadDocuments   
    
24.                       (if (/= (vla-get-Name doc) (vla-get-Name AcadDocument))  
    
25.                           (vla-Close doc :vlax-false)  
    
26.                       )  
    
27.            )
    
28.            ( vla-activate AcadDocument )
    
29.   )  
    
30.   (princ)   
    
31. )
    

( vl-load-com )<br /> (defun c:tt ( / sh folder folderobject result)  <br />   ( setq   AcadObject ( vlax-get-acad-object )  <br />   　　     AcadDocument ( vla-get-ActiveDocument AcadObject )  <br />            AcadDocuments ( vla-get-documents AcadObject )<br />   )<br />   <br />   (setq sh (vla-getInterfaceObject (vlax-get-acad-object) "Shell.Application" ))<br />   (setq folder (vlax-invoke-method sh 'BrowseForFolder 0 "请选择文件夹" 0 ))<br />   (vlax-release-object sh)<br />   (setq folderobject (vlax-get-property folder 'Self))<br />   (setq result (vlax-get-property FolderObject 'Path))<br />   (setq Files_Folder (vl-directory-files result "*.dwg"))   <br />   (foreach file Files_Folder<br />            (setq block_file (strcat result "\\" file))<br />     <br />            ( setq doc_now ( vla-open AcadDocuments block_file));打开的文档<br />     <br />            ( setq  mSpace ( vla-get-ModelSpace doc_now ) )<br />            ( setq myline ( vla-addline mspace (vlax-3d-point '( 0 0 0 ) )(vlax-3d-point '( 500 100 0 ))))<br />            ( vla-Save doc_now )<br />            ( vlax-for doc AcadDocuments   <br />                       (if (/= (vla-get-Name doc) (vla-get-Name AcadDocument))  <br />                           (vla-Close doc :vlax-false)  <br />                       )  <br />            )<br />            ( vla-activate AcadDocument )<br />   )  <br />   (princ)    <br /> )<br />

pzweng

freedom_ice 发表于 2023-4-11 10:42
试试这个行不行  
打开文档即为当前文档  保存关闭之前vla-PurgeAll
( setq doc_now ( vla-open AcadD ...

用 sentcommad 或 PostCommand

PGJ

感谢分享，对DWG图形进行批处理，一直用 SCRIPT

freedom_ice

tfanghui 发表于 2023-4-11 10:29
感谢分享！请教下大佬，想在保存前执行清理，用command执行，会先保存再 返回到打开的文件执行清理。是哪里 ...

试试这个行不行  
打开文档即为当前文档  保存关闭之前vla-PurgeAll
( setq doc_now ( vla-open AcadDocuments block_file));打开的文档
(vla-PurgeAll doc_now )

多文档不能用command

飞雪神光

感谢分享

vitalgg

lisp是单线程且与文档相关的，当 激活其它dwg文档时，当前的 lisp 流程就会挂起，并交出控制权。

cyh3210573

感谢楼主分享

zhaoxt

这个厉害了，又多了无限可能.。感谢

yshf

谢谢分享！
(setq block_file (strcat result "\" file))
应改为
(setq block_file (strcat result "\\" file))

Noangler

感谢分享，这个主要用来做什么！

freedom_ice

yshf 发表于 2023-4-10 08:27
谢谢分享！
(setq block_file (strcat result "\" file))
应改为

双斜线好像被转义了 变成单斜线了。

菜鸟初来乍到

感谢楼主分享

mercio

之前Leemac有一个不打开图纸获取图纸部分信息的lisp，在他官网上