(defun c:chg ()
  (SETQ new_texthight (GETSTRING "\n输入字高："))
  (if (= new_texthight "")
        (setq Ram_texthight Ram_texthight)
        (setq Ram_texthight new_texthight)
  )
        (setq Selected_text (ssget '((0 . "MTEXT,TEXT"))))
        (setq i (sslength Selected_text))
        (setq n 0)
                  
        (while (< n i)
                (setq elist (entget (ssname Selected_text n)))
                (entmod (subst (cons 40 (atof Ram_texthight)) (assoc 40 elist) elist))
                (setq n (+ n 1))
        )
          
      (princ (strcat"已将" (rtos i) "个字符的高度替换为" new_texthight "."))
            (prin1)
  )



网友答: 好用                                                                                

网友答: 感谢 分享,挺好用的

网友答:


网友答: 感谢楼主，非常好用，能把调字宽也加进去吗？
试了一下天正字体，结果cad闪退了

网友答: 谢谢分享，支持楼主

网友答: 感谢分享，先收藏起来

网友答:
按你的要求进行了修改

网友答:
感谢楼主，多行文字比较麻烦，单行文字非常好用

网友答: 加个预设3.5字高