hahaboy86 发表于 2016-10-9 10:46:39

crossrainbows 发表于 2017-8-1 15:58:12

本帖最后由 crossrainbows 于 2017-8-1 16:00 编辑

mikewolf2k 发表于 2015-12-25 12:17
再次更新，增加了文件名，可以同一字符串在不同的文件名中被替换为不同的字符串。
使用方法：
加载dvb，A ...
你好。我下载了你的ReplaceMultiText.dvb文件。但是我用cad2014打开alt+F11。提供我acadproject密码。请问密码是什么？我从官网上下载的vba 2014.显示是英文版。第一次没有安装好，第二次就怎么也安装不了了，安装路径是灰度的。我想借用你的程序替换不同的数字。路由图上的数字，特别多。

mikewolf2k 发表于 2017-8-14 09:04:33

crossrainbows 发表于 2017-8-1 15:58
你好。我下载了你的ReplaceMultiText.dvb文件。但是我用cad2014打开alt+F11。提供我acadproject密码。请 ...

Alt+F8执行即可。

jpg102329 发表于 2017-8-16 08:43:36


(DEFUN C:TT(/ E ET LST O RANGE SL SS1 STR STRNEW STROLD)
(setq et(vlax-get-or-create-object"excel.application"))
(setq range(BF-excel-getusedrange et (BF-excel-getActiveSheet et)))
(setq lst(BF-excel-getrangevalue et (BF-excel-getrangeindex range)));内容
(setq ss1(ssget'((0 . "*text"))))
(setq sl(sslength ss1))
(repeat sl
(setq e(ssname ss1(setq sl(1- sl))))
(setq o(vlax-ename->vla-object e))
(setq strold(vlax-get o'textstring))
(if (setq str(car(vl-remove-if-not '(lambda(x)(WCMATCH strold (strcat"*"(car x)"*")))lst)));有这个文字
    (progn
    (setq strnew(vl-string-subst (cadr str)(car str)strold));新内容
    (vlax-put o'textstring strnew)
    )
    )
)(prompt"***大懒猪荣誉出品***")
(princ)
)
无法上传附近百度云链接：http://pan.baidu.com/s/1c1X67mC 密码：rac5


qwh923820 发表于 2017-8-16 15:26:40

学习中！！！！！

qqask 发表于 2017-8-22 15:47:10

cad2014有错误，cad2006也有错误。

zhenghan3 发表于 2017-8-24 16:18:26

程序提示隐含模块中的编译错误：thisdrawing，不知道怎么回事

leon5209021 发表于 2017-11-28 14:10:02

扭扭捏捏比比

fsafaffa 发表于 2017-12-2 11:41:53

下载试试，感谢楼主分享

sunny_8848 发表于 2018-1-22 08:36:00

感谢楼主分享
页: 1 2 3 4 5 6 [7] 8
查看完整版本: 多重文本替换程序(2015-12-25更新)