快速修改标注内容为固定内容

cjjh8301

求一个程序，功能如下，选中标注，输入命令，空格（或回车），标注数字就替换成预先设定好的内容，
（如将标注 “数字” 替换成 “现场实测”）

gbhsu

(defun c:dimt( / ss s0 ent0 ss-num)
    (if (not dimtext)(setq dimtext "现场实测"))
    (prompt (strcat"请选取尺寸标注[替代文字:" dimtext "][回车设置]"))
    (setq ss (ssget '((0 . "DIMENSION"))))
    (if ss
         (progn
         (setq ss-num (sslength ss))
         (while (>= ss-num 1)
                (setq s0 (ssname ss 0))
                (setq ent0 (entget s0))
                (setq ent0 (subst (cons 1 dimtext)(assoc 1 ent0)ent0))
                (entmod ent0)
                (setq ss (ssdel s0 ss))
                (setq ss-num(sslength ss))
           );end of while
         );progn
          (progn
            (setq dimtext_saved dimtext)
            (setq dimtext(getstring (strcat "\n请输入替代文字[" dimtext "]:")))
            (if (= dimtext "")(setq dimtext dimtext_saved)(setq dimtext_saved dimtext))
            (c:dimt)
            );progn
    );if
);defun

cjjh8301

完美！ 给分！