社区 › 编程申请 › [求助]将选择字符串的括号"()"里的字符改为"已修改"，

yshf 发表于 2011-3-17 07:55:30

已改在7楼，请测试

lengliqun 发表于 2011-3-17 08:46:55

7楼程序cad2004测试OK，感谢老大。

无惢 发表于 2013-2-1 16:36:12

yshf 发表于 2011-3-16 20:50 static/image/common/back.gif


经过测试，很好用。如果能修改成 改写括号内字符 的LSP，我想更好。希望yshf，修改下

无惢 发表于 2013-2-1 18:10:33

我运算了些，程序确实不完整，不知如何才能正确运行？

香田里浪人 发表于 2013-7-10 21:06:56

试试这个
(vl-load-com)
(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)
)

查看完整版本: [求助]将选择字符串的括号"()"里的字符改为"已修改"，