[分享]文字替换

spring · 发表于 2004-9-14 11:47:00

支持 TEXT和MTEXT，如果要查找的文字为 "" 会把新的文字加在开头

只替换文字中子文字,不是替换掉整个文字

az98hxq · 发表于 2005-1-11 18:32:00

为什么不直接用CAD的FIND命令呢?

HYG1989 · 发表于 2018-9-11 09:20:32

下载下来学习一下感谢楼主分享

ketxu · 发表于 2019-11-21 23:41:07

Thanks for sharing ^^

changch · 发表于 2004-10-6 16:09:00

可以加个对话框呀

torcky · 发表于 2004-11-4 20:57:00

块中的文字好象不能替换吧？

torcky · 发表于 2004-11-8 21:54:00

在acad2002中试用了一下你给的程序，要查找的字串：gherthger fder 请输入要查找的文字:er 请输入新的文字:dfser 结果应该为：ghdfserthgdfser fddfser 但实际结果为：ghdfsdfsdfsdfserthger fder 程序节选： [U](repeat typeA-len[/U] ;[I]问题应该在这个循环条件的设置[/I] (setq char-aa (substr typeA n char-Alen))
;查找选择的文字内容里是否有要被替换的文字
(if (= char-aa char-A)
(progn ;如果有
(setq typeA (vl-string-subst char-B char-A typeA))
(setq newsize (cons 1 typeA))
(setq ent (subst newsize (assoc 1 ent) ent))
(entmod ent)
(setq pc (1+ pc))
)
;;End progn
)
;;End if
(setq n (1+ n))
)

jxlcrystal · 发表于 2004-11-22 11:40:00

我自己也写了一个，功能上和楼主差不多，就是增加了选择区域的功能，并且增加了对话框。

jxlcrystal · 发表于 2004-11-22 12:09:00

不好意思，上面的程序在未输入替换文字的情况下结束对话框会出问题，这是我修改过的lsp文件。

zpqcq · 发表于 2004-12-5 15:00:00

不错，真是好东东！

zpqcq · 发表于 2005-1-2 10:58:00

如果能替换块中的文字就更好了。

li809 · 发表于 2005-2-22 21:06:00

谢谢楼主了

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

[分享]文字替换

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源