代码求诊断，一次修改一个文本’

fedd · 发表于 2021-12-4 16:39

请大神出手，谢谢！

(defun c:WW()

(setq newtxt (getstring "\n输入新文本:"))
(setq ss(entsel "\n选择需要修改的文本:"))

(entmod ((strcat "" newtxt "") (assoc 1 ent) ent))

)

xj6019 · 发表于 2021-12-4 17:54

(defun c:NM(/ ent newtxt)
(setq newtxt (getstring "\n输入新文本:"))
(setq ent(entget (car (entsel "\n选择需要修改的文本"))))
(entmod(subst(cons 1 newtxt)(assoc 1 ent)ent))
)

fedd · 发表于 2021-12-4 20:06

好用，谢谢老师！！

账号		自动登录	找回密码
密码			注册

[提问] 代码求诊断，一次修改一个文本’