求助大神---LUCAS(龙龙仔)!! 关于大神二十年前写的批量图块替换插件
本帖最后由 xsmabbs 于 2025-11-11 09:32 编辑大神写的多文档批量图块替换插件已经上传到网站，然后我这几天试了cad04 05 06 07 2010 2016等各个版本都不能使用了，已经失传了20年啦，然后最近有个项目文件比较多，才想起来这个插件是非常好用的，请问LUCAS(龙龙仔)大神这个软件有新版能用的吗？谢谢啦
ReplaceBlock By: LUCAS(龙龙仔)!! 安装了expresstool也没用不知道为什么这是龙龙仔大牛写的原版，这个是ai修改的新版
更新块很简单，我有个手动的，你改一下自动的吧。
(defun c:up (/ ss obj eff nl i)
(setq ss (ssget '((0 . "insert"))))
(undobe)
(repeat (sslen ss)
(setq obj (ssname ss (ij 'i)))
(setq eff (en-effname obj))
(if (and eff (not (member eff nl)))
(progn
(setq nl (cons eff nl))
(command "-insert" (strcat eff "=" eff ".dwg"))
(command)
(prinx "\n更新:" eff)
)
)
)
(undo_e)
(princ "\n完成")
(prin1)
)
(defun c:x1u (/ ss obj eff nl i)
(setq ss (ssget '((0 . "insert"))))
(undobe)
(repeat (sslen ss)
(setq obj (ssname ss (ij 'i)))
(setq eff (en-effname obj))
(if (and eff (not (member eff nl)))
(progn
(setq nl (cons eff nl))
(command "-insert" (strcat eff "=" "Pro_d2" ".dwg"))
(command)
(prinx "\n更新:" eff)
)
)
)
(undo_e)
(princ "\n完成")
(prin1)
) 发错版本了，这个不是lisp 考古发现 哈哈 本帖最后由 kozmosovia 于 2025-5-7 11:26 编辑
20多年前的。。。。
现在好多图块都是动态块，20多年前还没有这技术。推荐用设计中心吧。
本帖最后由 xsmabbs 于 2025-5-7 11:30 编辑
好的谢谢提示,用了下设计中心的块重新定义，这种还是没自动执行多个文档，假设我需要修改50个文件，每个文件都得去重新定义插入块，而大神的这个插件，是可以自动打开文件替换图块，然后自动关闭的，很先进， 装一个虚拟机，装cad2004 站内苦茶大神，最近有个替换块的插件
http://bbs.mjtd.com/thread-192639-1-1.html 现在这类插件不需要了，高版本CAD2026自带图形查询替换功能，命令mea完美解决了这类插件的功能！ xsmabbs 发表于 2025-5-7 11:26
好的谢谢提示,用了下设计中心的块重新定义，这种还是没自动执行多个文档，假设我需要修改50个文件，每个文 ...
重新定义块的话，可以先把最新的块都放在一个空图内，然后将需要更新的DWG插入，再WBLOCK写出去覆盖DWG。可以简单写个lisp，或者让AI用这个思路写一个，没几行代码。
页:
[1]