社区 › AutoLISP/Visual LISP 编程技术 › 求助！如何提取括号内文字并拷贝

xiabin68 发表于 2012-11-14 13:08:37

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

yaokui25 发表于 2012-11-14 13:59:43

Gu_xl 发表于 2012-11-14 12:04 static/image/common/back.gif


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

yaokui25 发表于 2012-11-14 15:02:34

Gu_xl 发表于 2012-11-14 08:17 static/image/common/back.gif


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

yaokui25 发表于 2012-11-22 10:40:03

Gu_xl 发表于 2012-11-14 08:17 static/image/common/back.gif


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

yaokui25 发表于 2012-11-22 16:50:57

Gu_xl 发表于 2012-11-14 08:17 static/image/common/back.gif


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

无惢 发表于 2013-2-1 16:28:55

是个空壳子啊，不能用。

xiaomm250 发表于 2014-3-10 14:04:33

xyp1964 发表于 2012-11-14 11:02 static/image/common/back.gif


感觉真的很不错!

香田里浪人 发表于 2014-3-10 15:11:31

修改括号内内容
(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)
)

清风明月名字 发表于 2014-3-10 20:15:15

谢谢众位坛友代码分享！

查看完整版本: 求助！如何提取括号内文字并拷贝