求帮忙替换成指定文字

cheng_0804

请大佬帮忙替换成指定文字
(defun c:ty()
        (setq aq (entsel "\n选择需要的文字:"))
        (setq aq1 (entget (car aq)))
        (setq aq2 (assoc 1 aq1))
        ;(setq aw (entsel "\n选择被替换的文字:"))
        (setq aw (getstring "\n请输入新的文字:"))
        (setq aw1 (entget (car aw)))
        (setq aw2 (assoc 1 aw1))
        (setq aw1 (subst aq2 aw2 aw1))
        (entmod aw1)
        (princ)
)

aws

getstring ,我记得这个函数，好像不能用输入法输入中文来着。。。

自贡黄明儒

(setq aw1 (entget (car aw)))
这里aw是你刚输入的文字，不能用car吧？

qazxswk

建议你去学习一下阿甘大师的这个插件--文字刷

http://bbs.mjtd.com/forum.php?mo ... amp;fromuid=7329538

qazxswk

试着写了一下

2. (defun c:22 (/ ent oldtxt newtxt e)
   
3.   (setq ent (entget (car(entsel "\n选择需要修改的文字："))))
   
4.   (setq oldtxt (assoc 1 ent))
   
5.   (setq newtxt (getstring "\n请输入新的文字:"))
   
6.   (setq e (subst(cons 1 newtxt) oldtxt ent))
   
7.   (entmod e)
   
8.   (princ)  
   
9. )

(defun c:22 (/ ent oldtxt newtxt e)<br />   (setq ent (entget (car(entsel "\n选择需要修改的文字：")))) <br />   (setq oldtxt (assoc 1 ent))<br />   (setq newtxt (getstring "\n请输入新的文字:"))<br />   (setq e (subst(cons 1 newtxt) oldtxt ent))<br />   (entmod e)<br />   (princ)  <br /> )