求助！如何提取括号内文字并拷贝

xiabin68

楼上的学习了，好东西，，就是你的头像，她就那样跑不会掉了吧

yaokui25

Gu_xl 发表于 2012-11-14 12:04

G版 您好
我想达到的目的是：1对1的刷文字
比如 选择一个对象文字　接下来刷目标文字
再接下来还是选择另一个对象文字再刷另一个目标文字
这样反反复复的，G版可以改一下上面的代码吗?

yaokui25

Gu_xl 发表于 2012-11-14 08:17

谢谢 G版的代码
真是有求必应，明经币已送，请查收~

yaokui25

Gu_xl 发表于 2012-11-14 08:17

G版主
您好，不知您是否还记的前些日子给小弟写过一个代码
帖子地址：求助！提取括号内文字并拷贝能否再帮小弟看看，再刷其他文字的同时追加一个前缀，默认：PMD=
不好意思有打扰您了

yaokui25

Gu_xl 发表于 2012-11-14 08:17

G版主
您好，不知您是否还记的前些日子给小弟写过一个代码
帖子地址：求助！提取括号内文字并拷贝
能否再帮小弟看看，再刷其他文字的同时追加一个前缀，默认：PMD=
不好意思有打扰您了,你的举手之劳，对小弟来讲会得到很大的帮助

无惢

是个空壳子啊，不能用。[em0]

xiaomm250

xyp1964 发表于 2012-11-14 11:02

感觉真的很不错!

香田里浪人

修改括号内内容
(defun c:xgnr (/ en obj str lks n str1 str2)
  (setq        en   (CAR (ENTSEL))
        obj  (vlax-ename->vla-object en)
        str  (vla-get-TextString obj)
        lks  (getstring "\n修改文本：")
        n    (vl-string-search "(" str)
        str1 (substr str 1 (1+ n))
        n    (vl-string-search ")" str)
        str2 (substr str (1+ n))
  )
  (vla-put-TextString obj (strcat str1 lks str2))
  (princ)
)

清风明月名字

谢谢众位坛友代码分享！