批量recover插件

guohq

程序代码

1. (vl-load-com)
   
2. (defun c:BatRecover(/ DwgDir DwgFiles DwgFile)
   
3.   (setvar "OSMODE" 0)
   
4.   (setvar "sdi" 1)
   
5.   (setvar "lispinit" 0)
   
6.   (setq DwgDir (SelectFolder "选择目录"))
   
7.   (setq DwgFiles (vl-directory-files DwgDir "*.dwg"))
   
8.   (foreach DwgFile DwgFiles
   
9.     (command "recover" (strcat DwgDir "\\" DwgFile))
   
10.     (vl-cmdf "qsave")
    
11.   )
    
12.   (setvar "sdi" 0)
    
13.   (setvar "lispinit" 1)
    
14.   (vl-cmdf "close")
    
15. )
    
16. 
    
17. 
    
18. (defun SelectFolder( Title / ShellApp Folder Result)
    
19.   ;Title 表示选择文件对话框的标题
    
20.   ;https://docs.microsoft.com/en-us ... ell-browseforfolder
    
21.   (setq Result nil)
    
22.   (setq ShellApp (vlax-create-object "Shell.Application"))
    
23.   (setq Folder (vlax-invoke-method ShellApp 'BrowseForFolder 0 Title 1))
    
24.   (if Folder
    
25.     (setq Result (vlax-get-property (vlax-get-property Folder 'Self) 'Path))
    
26.     )
    
27.   (vlax-release-object ShellApp)
    
28.   Result
    
29.   )
    

(vl-load-com)<br /> (defun c:BatRecover(/ DwgDir DwgFiles DwgFile)<br />   (setvar "OSMODE" 0)<br />   (setvar "sdi" 1)<br />   (setvar "lispinit" 0)<br />   (setq DwgDir (SelectFolder "选择目录"))<br />   (setq DwgFiles (vl-directory-files DwgDir "*.dwg"))<br />   (foreach DwgFile DwgFiles<br />     (command "recover" (strcat DwgDir "\\" DwgFile))<br />     (vl-cmdf "qsave")<br />   )<br />   (setvar "sdi" 0)<br />   (setvar "lispinit" 1)<br />   (vl-cmdf "close")<br /> )<br /> <br /> <br /> (defun SelectFolder( Title / ShellApp Folder Result)<br />   ;Title 表示选择文件对话框的标题<br />   ;<a href="https://docs.microsoft.com/en-us/windows/win32/shell/shell-browseforfolder" target="_blank">https://docs.microsoft.com/en-us ... ell-browseforfolder</a><br />   (setq Result nil)<br />   (setq ShellApp (vlax-create-object "Shell.Application"))<br />   (setq Folder (vlax-invoke-method ShellApp 'BrowseForFolder 0 Title 1))<br />   (if Folder<br />     (setq Result (vlax-get-property (vlax-get-property Folder 'Self) 'Path))<br />     )<br />   (vlax-release-object ShellApp)<br />   Result<br />   )<br />

将需要修复的DWG文件保存于同一文件夹下（注意：不要放到某个盘的根目录下），BatRecover 命令，选择相应的文件夹。

备注：批处理部分的代码参照了lq8000写的批处理工具。

批量DWG - AutoCAD与GIS测绘 - AutoCAD论坛 - 明经CAD社区 - ACET - Powered by Discuz! (mjtd.com)

jh3030912

guohq 发表于 2023-12-23 21:28
你的CAD是哪个版本？我是在AutoCAD2020上写的，当时测试没有问题。

我用cad 2021和2023

可以上传一个编辑好的lsp文件吗？
也有可能是我复制粘贴代码出错的问题

guohq

jh3030912 发表于 2023-12-23 19:16
怎么提示  出错提示: 输入的列表有缺陷?

你的CAD是哪个版本？我是在AutoCAD2020上写的，当时测试没有问题。

jh3030912

guohq 发表于 2023-12-23 21:27
我也不知道能修复啥，说白了就是批量执行  recover   命令

已经解决了，就是复制粘贴代码的原因。

muai2010

之前看到过别人遇到这个问题，居然还有能修复的源码

飞雪神光

这两个变量第一次知道 能跨文档保留函数 真不错 那这操作空间岂不是就很大了 能做很多事情

wangsr

请教楼主这样做对吗

664571221

修复啥的啊

菜鸟初来乍到

感谢大佬分享

magicheno

感谢大佬分享

ghgh0130

感谢楼主分享

jkop

修复批量文档，给力！

paulpipi

感谢无私分享