明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1758|回复: 16

[源码] 批量recover插件

[复制链接]
发表于 2023-11-17 20:33 | 显示全部楼层 |阅读模式
本帖最后由 guohq 于 2023-11-17 20:33 编辑

程序代码

  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. (defun SelectFolder( Title / ShellApp Folder Result)
  17.   ;Title 表示选择文件对话框的标题
  18.   ;https://docs.microsoft.com/en-us ... ell-browseforfolder
  19.   (setq Result nil)
  20.   (setq ShellApp (vlax-create-object "Shell.Application"))
  21.   (setq Folder (vlax-invoke-method ShellApp 'BrowseForFolder 0 Title 1))
  22.   (if Folder
  23.     (setq Result (vlax-get-property (vlax-get-property Folder 'Self) 'Path))
  24.     )
  25.   (vlax-release-object ShellApp)
  26.   Result
  27.   )


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

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

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

评分

参与人数 3明经币 +3 收起 理由
菜鸟初来乍到 + 1 很给力!
USER2128 + 1 赞一个!
飞雪神光 + 1 赞一个!

查看全部评分

"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2023-12-23 22:36 来自手机 | 显示全部楼层
guohq 发表于 2023-12-23 21:28
你的CAD是哪个版本?我是在AutoCAD2020上写的,当时测试没有问题。

我用cad 2021和2023

可以上传一个编辑好的lsp文件吗?
也有可能是我复制粘贴代码出错的问题
 楼主| 发表于 2023-12-23 21:28 | 显示全部楼层
jh3030912 发表于 2023-12-23 19:16
怎么提示  出错提示: 输入的列表有缺陷?

你的CAD是哪个版本?我是在AutoCAD2020上写的,当时测试没有问题。
发表于 2023-12-23 23:07 | 显示全部楼层
guohq 发表于 2023-12-23 21:27
我也不知道能修复啥,说白了就是批量执行  recover   命令

已经解决了,就是复制粘贴代码的原因。
发表于 2023-11-17 20:40 | 显示全部楼层
之前看到过别人遇到这个问题,居然还有能修复的源码
发表于 2023-11-17 21:12 | 显示全部楼层
这两个变量第一次知道 能跨文档保留函数 真不错 那这操作空间岂不是就很大了 能做很多事情
发表于 2023-11-17 22:52 | 显示全部楼层
请教楼主这样做对吗

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2023-11-18 16:49 | 显示全部楼层
修复啥的啊
发表于 2023-11-18 20:07 | 显示全部楼层
感谢大佬分享
发表于 2023-11-18 23:28 | 显示全部楼层
感谢大佬分享
发表于 2023-11-19 19:28 | 显示全部楼层
感谢楼主分享
发表于 2023-11-21 09:18 | 显示全部楼层
修复批量文档,给力!
发表于 2023-11-21 11:30 来自手机 | 显示全部楼层
感谢无私分享
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-7-13 04:39 , Processed in 0.258013 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表