求大神帮忙优化一下【改块属性文字】 的插件呗！这个插件本身也挺好的！

cq4920

网络收集的一个插件，用着还不错！不过有看到一个更人性化的！就希望也能优化一下！希望第一个插件也能像第二个插件那样，能提示被修改的内容，直接按回车表示不修改！ 如果不方便，那也没太大关系！


(defun C:tg (/ a e b)
  (if (and (setq a (nentsel "\n选择块中的文字: ")
                 e (last a)
           )
           (setq a (vlax-ename->vla-object (car a)))
           (or (member (vla-get-objectname a) '("AcDbText" "AcDbMText"))
               (princ "\n所选对象不是文字: ")
           )
           (setq b (getstring T "\n指定新字符: "))
      )
    (progn
      (vla-put-textstring a b)
      (vla-update (vlax-ename->vla-object (car e)))
    )
  )
  (princ)
)


————————上下连个都是改块文字的，下面这个有问题不好用———————————————


; ================================================
;            直接修改文字或块的属性内容
;              Ver: 1.0  作者：迟俊岭
; ================================================

(defun c:cht(/ e ent en newt oldt ent1)
  (setq e (car (entsel "\nPick a text or a attrib: ")))
  (if (/= e nil)
    (progn
      (setq ent (entget e))
      (cond ((and (= (cdr (assoc 0 ent)) "INSERT") (= (cdr (assoc 66 ent)) 1))
        (progn
          (setq en (entget (setq ent (entnext e))))
          (setq oldt (cdr (assoc 1 en)))
          (setq newt (getstring T (strcat "\nNew text <" oldt ">:")))
          (if (= newt "") (setq newt oldt))
          (setq ent1 (subst (cons (car (assoc 1 en)) newt) (assoc 1 en) en))
          (entmod ent1)
          (entupd ent)
        ))
        ((= (cdr (assoc 0 ent)) "TEXT")
        (progn
          (setq oldt (cdr (assoc 1 ent)))
          (setq newt (getstring T (strcat "\nNew text <" oldt ">:")))
          (if (= newt "") (setq newt oldt))
          (setq ent1 (subst (cons (car (assoc 1 ent)) newt) (assoc 1 ent) ent))
          (entmod ent1)
        ))
        (T (princ "\nError: Not a text or not a block or no attrib in block !"))
      )
    )
  )
  (princ)
)

——————————————————————————————————————————————

Michael527

下面这个程序都是老早年的了

huangpc27

不是已经有提示了吗，还要怎么改。