求批量替换属性块内容

人散茶凉

大佬好，

现在有很多cad图纸(上千张)，现在需要把图框标题栏内“公司”那一栏批量替换成其他公司（一个个打开图纸修改太累了）。想找VBA代码实现(想移植到excel中)。
设想：excel中的A1单元格是新公司的名字，点击按钮，打开文件选择对话框，全选这些CAD文件，点击确定后实现替换。

标题栏属性块的名字是：MY_TITLE         
公司那一栏的属性标记是：CPN{10}

附件是测试文件。

hoot6335

lxl217114 发表于 2023-6-30 11:33
如果是属性定义就好办的多
如果是文字写的之前也看过有些插件可以批量不开图替换指定文字

我就是想导出属性的定义，，后续在excel中修改相应的属性，然后反写到相应的图纸中的属性块中。

hoot6335

andyding 发表于 2023-6-30 11:29
链接里这个方法是自动开图，修改，关图。可以参考一下。
http://bbs.mjtd.com/thread-100103-1-1.html?_ds ...

层主您好，小弟不懂lisp，主要是想后续要移植到excel-VBA中，所以用VBA代码。。。感谢

hoot6335

mikewolf2k 发表于 2023-6-30 09:04
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=32200&highlight=%B6%E0%D6%D8

层主好，测试了下您提供的程序，运行时报错了，，，

liuhe

lisp  我倒是有现成类似的

蛋疼的东东

liuhe 发表于 2023-6-30 08:38
lisp  我倒是有现成类似的

大佬   可否共享一下

mikewolf2k

http://bbs.mjtd.com/forum.php?mo ... hlight=%B6%E0%D6%D8

andyding

链接里这个方法是自动开图，修改，关图。可以参考一下。
http://bbs.mjtd.com/thread-100103-1-1.html?_dsign=aa533eb1

lxl217114

如果是属性定义就好办的多
如果是文字写的之前也看过有些插件可以批量不开图替换指定文字

书院扫地僧

liuhe 发表于 2023-6-30 08:38
lisp  我倒是有现成类似的

求分享。。。。。。。。。。。。

liuhe

书院扫地僧 发表于 2023-7-2 11:31
求分享。。。。。。。。。。。。

我给客户定制的，我免费分享了，对客户不公平