修改MTEXT或TEXT的高度

ocoipw · 发表于前天 16:26

(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
感谢分享,挺好用的

szhorse · 发表于昨天 20:58

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

nzdog · 发表于昨天 23:09

谢谢分享，支持楼主

vermilion12345 · 发表于昨天 23:39

感谢分享，先收藏起来

ocoipw · 发表于昨天 23:52

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

按你的要求进行了修改

账号		自动登录	找回密码
密码			注册

[源码] 修改MTEXT或TEXT的高度

本帖子中包含更多资源

评分

本帖子中包含更多资源