[求助]将选择字符串的括号"()"里的字符改为"已修改"，

yshf

已改在7楼，请测试

lengliqun

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

无惢

yshf 发表于 2011-3-16 20:50

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

无惢

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

香田里浪人

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