批量单行字、多行字，标注值替换（源码）

ucuc2003 · 发表于 2013-6-14 18:02:15

本帖最后由 ucuc2003 于 2013-7-8 16:44 编辑

单行字、多行字，标注值编辑

注意：
“单行字、多行字，标注值编辑.lsp” 支持输入任意的文本字符，包含空格
“单行字、多行字，标注值编辑2.lsp” 仅支持输入连续的文本字符

999999 · 发表于 2021-5-27 21:45:26

好东西感谢楼主分享源码

，请问楼主是否可以实现让替换的文字在被替换文字的中间呢

999999 · 发表于 2021-1-21 21:33:16

下载了，好程序，谢谢楼主大大分享

sunny_8848 · 发表于 2021-5-28 10:19:22

很实用的程序，多谢楼主分享

ucuc2003 · 发表于 2013-6-14 18:03:18

自己做沙发

【KAIXIN】 · 发表于 2013-6-14 18:06:14

赞一个：貌似跟我这个有点像
http://bbs.mjtd.com/thread-95896-1-1.html
http://bbs.mjtd.com/thread-91607-1-1.html

ucuc2003 · 发表于 2013-6-14 18:11:29

【KAIXIN】发表于 2013-6-18 13:06
赞一个：貌似跟我这个有点像
http://bbs.mjtd.com/thread-95896-1-1.html
http://bbs.mjtd.com/thread-91 ...

开心老大的比这个强大，我还要多多学习

yoyoho · 发表于 2013-6-14 18:44:30

感谢ucuc2003 分享程序!

simpleye · 发表于 2013-6-14 19:26:05

这个不错哦。。。谢谢楼主分享

xiaoyuzj-503 · 发表于 2013-6-14 20:29:19

多谢分享。

完整武器 · 发表于 2013-6-14 22:19:25

不错的程序又是源码

白皮猪 · 发表于 2013-6-15 08:40:53

学习学习学习

注册 · 发表于 2013-6-25 22:10:55

(Defun c:et ( / newtx v1 v2 nme oldtx v3 )
(setvar "cmdecho" 0)
   (prompt "\npick text to be changed:")
   (setq v1 (ssget))
   (setq newtx (getstring T "\nENTER NEW STRING: " ))
   (setq newtx (cons 1 newtx))
   (setq v2 0)
      (if (/= v1 nil)
            (while (< v2 (sslength v1))
                  (setq nme (ssname v1 v2 ))
                  (setq oldtx (assoc 1 (entget nme)))
                  (setq v3 (entget nme))
                  (entmod (subst newtx oldtx v3))
                  (entupd nme)
                  (setq v2 (+ v2 1 ))
            )
      )
)

;

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

[源码] 批量单行字、多行字，标注值替换（源码）

本帖子中包含更多资源

评分

点评

浏览过的版块