清风明月名字 发表于 2012-3-25 18:13:28

对CAD中选定图元按某文本文件中的替换配对进行替换的VBA宏代码不完全匹配(实用性极强

本帖最后由 清风明月名字 于 2012-4-1 17:34 编辑

对CAD中选定图元按某文本文件中的替换配对进行替换的VBA宏代码不完全匹配的文本替换

将“阳光CAD批量替换默认列表.txt”文本文件放到F盘下,其中的内容每行呈“A>>>B”形式,A为被替换项,B为替换项。这样你就可以一次进行多个配对(无数个)的替换了。稍作修改也可以变成完全匹配式替换。本代码可同时替换单行文字、多行文字、属性定义,稍作修改也可以只替换其中一种。
在写作过程中大量套用了其它人的代码,不知姓名,致谢!
不完全匹配的文本替换
代码已经完善了。替换项由EXCEL文件轻易生成。希望能给大家的工作带来便利



totoro 发表于 2012-6-10 22:38:42

要如何使用??能说明一下吗?

清风明月名字 发表于 2012-6-11 08:01:00

是VBA,有窗体的,加载,运行宏就可以看到窗体,就知道怎么样使用了。
主要方法很简单:就是将替换配对放在文本文件中,由VBA去调用替换

dhy 发表于 2014-8-12 15:07:36

正需要这功能,可惜下载下来不会用
页: [1]
查看完整版本: 对CAD中选定图元按某文本文件中的替换配对进行替换的VBA宏代码不完全匹配(实用性极强