ocoipw 发表于 前天 16:26

修改MTEXT或TEXT的高度

(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)
)

linheyuanpcb 发表于 昨天 09:39

好用                                                                              

yegucheng0129 发表于 昨天 10:15

感谢 分享,挺好用的

ocoipw 发表于 昨天 11:54

yegucheng0129 发表于 2025-12-11 10:15
感谢 分享,挺好用的

:handshake

szhorse 发表于 昨天 20:58

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

nzdog 发表于 昨天 23:09

谢谢分享，支持楼主

vermilion12345 发表于 昨天 23:39

感谢分享，先收藏起来

ocoipw 发表于 昨天 23:52

szhorse 发表于 2025-12-11 20:58
感谢楼主，非常好用，能把调字宽也加进去吗？
试了一下天正字体，结果cad闪退了

按你的要求进行了修改
页: [1]
查看完整版本: 修改MTEXT或TEXT的高度