帮忙找错！~：）

CAD菜鸟

(defun c:chgtxt(/ new_high new_ang ss n en endata)
  (setq new_high (getreal "\n请求输入新字高："))
  (if (null new_high)
      (setq new_high (getvar "TEXTSIZE"));;若未输入字高，则采用默认值(由系统变量可得)
  )
  (setq new_ang (getreal "\n请求输入新字倾斜角："))
  (if (null new_ang)
      (setq new_ang 0);;若未输入倾斜角，则采用默认值0(我未找到控制文字倾角的系统变量)
  )
  (prompt "\n选择要更新的文字：")
  ;;(setq ss (ssget))
  (setq ss (ssget (list (cons 0 "MTEXT"))));;用这更好

  (setq n 0)
  (repeat (sslength ss)
    (setq en (ssname ss n))
    (setq endata (entget en))     
    (setq endata (subst (cons 40 new_high) (assoc 40 endata) endata))
    (setq endata (subst (cons 50 new_ang)  (assoc 50 endata) endata))
    (entmod endata)
    (setq n (1+ n)) ;;注意：循环变量自加，不要少了。
  )
  (princ)
)
另字高都是40,文字倾角是50。

skyry