对CAD中选定图元按某文本文件中的替换配对进行替换的VBA宏代码不完全匹配(实用性极强
本帖最后由 清风明月名字 于 2012-4-1 17:34 编辑对CAD中选定图元按某文本文件中的替换配对进行替换的VBA宏代码不完全匹配的文本替换
将“阳光CAD批量替换默认列表.txt”文本文件放到F盘下,其中的内容每行呈“A>>>B”形式,A为被替换项,B为替换项。这样你就可以一次进行多个配对(无数个)的替换了。稍作修改也可以变成完全匹配式替换。本代码可同时替换单行文字、多行文字、属性定义,稍作修改也可以只替换其中一种。
在写作过程中大量套用了其它人的代码,不知姓名,致谢!
不完全匹配的文本替换
代码已经完善了。替换项由EXCEL文件轻易生成。希望能给大家的工作带来便利
要如何使用??能说明一下吗? 是VBA,有窗体的,加载,运行宏就可以看到窗体,就知道怎么样使用了。
主要方法很简单:就是将替换配对放在文本文件中,由VBA去调用替换 正需要这功能,可惜下载下来不会用
页:
[1]