明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: mikewolf2k

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

    [复制链接]
发表于 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.显示是英文版。第一次没有安装好,第二次就怎么也安装不了了,安装路径是灰度的。我想借用你的程序替换不同的数字。路由图上的数字,特别多。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 2017-8-14 09:04:33 | 显示全部楼层
crossrainbows 发表于 2017-8-1 15:58
你好。我下载了你的ReplaceMultiText.dvb文件。但是我用cad2014打开alt+F11。提供我acadproject密码。请 ...

Alt+F8执行即可。
发表于 2017-8-16 08:43:36 | 显示全部楼层

  1. (DEFUN C:TT(/ E ET LST O RANGE SL SS1 STR STRNEW STROLD)
  2.   (setq et(vlax-get-or-create-object"excel.application"))
  3.   (setq range(BF-excel-getusedrange et (BF-excel-getActiveSheet et)))
  4.   (setq lst(BF-excel-getrangevalue et (BF-excel-getrangeindex range)));内容
  5.   (setq ss1(ssget'((0 . "*text"))))
  6.   (setq sl(sslength ss1))
  7.   (repeat sl
  8.   (setq e(ssname ss1(setq sl(1- sl))))
  9.   (setq o(vlax-ename->vla-object e))
  10.   (setq strold(vlax-get o'textstring))
  11.   (if (setq str(car(vl-remove-if-not '(lambda(x)(WCMATCH strold (strcat"*"(car x)"*")))lst)));有这个文字
  12.     (progn
  13.     (setq strnew(vl-string-subst (cadr str)(car str)strold));新内容
  14.     (vlax-put o'textstring strnew)
  15.     )
  16.     )
  17.   )(prompt"***大懒猪荣誉出品***")
  18. (princ)
  19.   )

无法上传附近百度云链接:http://pan.baidu.com/s/1c1X67mC 密码:rac5


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2017-8-22 15:47:10 | 显示全部楼层
cad2014有错误,cad2006也有错误。
发表于 2017-8-24 16:18:26 | 显示全部楼层
程序提示隐含模块中的编译错误:thisdrawing,不知道怎么回事
发表于 2017-11-28 14:10:02 | 显示全部楼层
扭扭捏捏比比
发表于 2017-12-2 11:41:53 | 显示全部楼层
下载试试,感谢楼主分享
发表于 2018-1-22 08:36:00 | 显示全部楼层
感谢楼主分享
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-12-26 00:41 , Processed in 0.155908 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表