多重文本替换程序(2015-12-25更新)

suncq16 · 发表于 2014-11-29 14:35

我这里就总是不能用，why？？？？？？？？

四季因你而在 · 发表于 2014-12-17 22:09

感谢楼主分享！！

别心动 · 发表于 2015-1-27 21:57

我也不能用说是类型不匹配逐语句执行了一下要输密码这是为什么？

剑昕 · 发表于 2015-2-9 23:58

首先非常谢谢l楼主，正好真在寻找这样的程序
然后我想请教一下，为什么我这会出现隐含模块中的编译错误： ThisDrawing
运行环境：cad2008+天正电气2014

kkt123 · 发表于 2015-2-10 09:12

为什么不共享源码呀

好东西就要大家分享嘛

Alvanbai · 发表于 2015-2-12 14:58

感谢分享！请教一下，我这三个功能都运行不了，可能是哪的问题呢？再次感谢！
1.我在宏管理器内运行ThisDrawing.Batch_singlefolder后第一步让我选择文件夹，然后紧接着只打开文件夹内的第一张图，随后跳出对话框，显示“Subscript out of range”，再点确定就什么都没反应了。
2.如果我在宏管理器内运行ThisDrawing.BuildFilter，直接提示"Argument not optional"，再点确定也没反应了。3.如果我在宏管理器内运行ThisDrawing.ReplaceMultiText，也是跳出提示“Subscript out of range”，再点确定就什么都没反应了。
提示图片如下：

Alvanbai · 发表于 2015-2-12 15:03

感谢分享！请教一下，我这三个功能都运行不了，可能是哪的问题呢？再次感谢！
1.我在宏管理器内运行ThisDrawing.Batch_singlefolder后第一步让我选择文件夹，然后紧接着只打开文件夹内的第一张图，随后跳出对话框，显示“Subscript out of range”，再点确定就什么都没反应了。
2.如果我在宏管理器内运行ThisDrawing.BuildFilter，直接提示"Argument not optional"，再点确定也没反应了。3.如果我在宏管理器内运行ThisDrawing.ReplaceMultiText，也是跳出提示“Subscript out of range”，再点确定就什么都没反应了。
提示图片如下：
1.png 2.png 3.png

mikewolf2k · 发表于 2015-2-12 15:49

1. 故障的意思大概是某处数组下标过界，具体哪里就要看具体图了。请问你的图纸中有text元素，以及excel中的当前sheet有无输入查找/替换文本在A/B列，并且第一个A列不为空（碰到A列空认为结束，后面的都不看了）。
2. 不要执行这个。不明白为什么会出来。
3. 跟1一样。

mikewolf2k · 发表于 2015-2-12 15:54

Alvanbai 发表于 2015-2-12 14:58
感谢分享！请教一下，我这三个功能都运行不了，可能是哪的问题呢？再次感谢！
1.我在宏管理器内运行ThisDr ...

请看回复 .

Alvanbai · 发表于 2015-2-12 16:03

mikewolf2k 发表于 2015-2-12 15:54
请看回复 .

非常感谢您耐心细致的回复，我还有一点疑惑，我没弄清EXCEL文件要放在哪里？文件名称有要求吗？会想选择文件夹一样跳出一个选择excel的窗口吗？我这里没弹出窗口。谢谢

账号		自动登录	找回密码
密码			注册

多重文本替换程序(2015-12-25更新)

本帖子中包含更多资源