（XD::String:Subst）字符串查找替换

Lispboy · 发表于 2017-5-6 23:08:07

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 Lispboy 于 2017-5-22 12:17 编辑

(defun XD::String:Subst (new pat str / pos)
(setq pos 0)
(while (setq pos (vl-string-search pat str pos))
(setq str (vl-string-subst new pat str)
pos (+ pos (strlen new))
)
)
str
)

pxt2015 · 发表于 2017-5-6 23:16:27

正需要这个，顶楼主

yoyoho · 发表于 2017-5-7 10:10:28

感谢分享程序!!!!

winerfjy · 发表于 2017-5-7 11:34:12

本帖最后由 winerfjy 于 2017-5-7 11:59 编辑

测试过但有时会进入循环不出来在while的那段是能把判断要替换的字符个数作为循环条件加入去呢把121212121212121212121212121212121212121中的2
替换成123进入循环cad卡死

pxt2015 · 发表于 2017-5-7 16:41:17

(XD::String:Subst "ii" "i" "Bite a mite")

进入了死循环。

xiayuxue213 · 发表于 2017-5-22 11:23:18

为啥函数返回值是正确的，但图上的字符并没有被替换？

marting · 发表于 2017-5-22 11:50:02

xiayuxue213 发表于 2017-5-22 11:23

这个只是替换了你给的字符串，图上的是实体，要修改实体文字内容，你还得自己写实体更新的代码

Lispboy · 发表于 2017-5-22 12:19:52

pxt2015 发表于 2017-5-7 16:41

修改了代码，再试试

Lispboy · 发表于 2017-5-22 12:23:04

winerfjy 发表于 2017-5-7 11:34

修改了代码，再试试

xiayuxue213 · 发表于 2017-5-22 13:38:55

老大能不能再加点功能，在当前打开的图纸中（最好块中的也能搜索到）搜索并替换

winerfjy · 发表于 2017-5-23 09:05:39

Lispboy 发表于 2017-5-22 12:19

还是不行替换有误
121212121212121212121212121212121212121中的2
替换成123返回
11111111111111111111233333333333333333331212121212121212121212121212121212121
返回结果不正确
测试代码是
(defun c:bbf(/ en ent sttr)
  (princ"\n要操作的字符串")
  (setq en(car(entsel))
      ent (entget en))
  (setq str(cdr(assoc 1 ent)))
  (setq pat(getint"\n输入值"))
  (setq pat(itoa pat))
  (princ"\n匹配源")
  (setq new(cdr(assoc 1(entget(car(entsel))))))
  (setq sttr(XD::String:Subst new pat str))
  (entmod (subst (cons 1 sttr) (assoc 1 ent) ent))
  (command "REGEN")
  (princ))

Lispboy · 发表于 2017-5-23 09:14:14

xiayuxue213 发表于 2017-5-22 13:38

要加也不是往这个函数加

这个函数是最基本的字符串的替换，不是实体。

你要想替换块，文字实体，那就是用这个函数去写插件了。论坛已经有了，搜索下。

yjch · 发表于 2017-6-2 08:22:28

最基本的字符串的替换,展开思路可以借鉴

范建威 · 发表于 2017-7-28 22:27:30

(XD::String:Subst "1" "z" "粃糠abczyx" ) "?糠abc1yx"

newer · 发表于 2017-7-28 22:35:25

范建威发表于 2017-7-28 22:27

以后遇到字符串的应用，你就用正则表达式查找，xd::string:regexps , 正则表达式替换，xd::string:regexpr

命令: (xd::string:regexpr "z" "粃糠abczyx" "1" "")
"粃糠abc1yx"

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

[字符串] （XD::String:Subst）字符串查找替换

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。