求帮忙替换成指定文字
请大佬帮忙替换成指定文字(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)
)
getstring ,我记得这个函数,好像不能用输入法输入中文来着。。。 (setq aw1 (entget (car aw)))
这里aw是你刚输入的文字,不能用car吧? 建议你去学习一下阿甘大师的这个插件--文字刷
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=96376&fromuid=7329538 本帖最后由 qazxswk 于 2024-8-14 03:36 编辑
试着写了一下
(defun c:22 (/ ent oldtxt newtxt e)
(setq ent (entget (car(entsel "\n选择需要修改的文字:"))))
(setq oldtxt (assoc 1 ent))
(setq newtxt (getstring "\n请输入新的文字:"))
(setq e (subst(cons 1 newtxt) oldtxt ent))
(entmod e)
(princ)
)
页:
[1]