wuzheng80425 发表于 2015-7-24 17:21:40

gaics 发表于 2015-7-11 10:56 static/image/common/back.gif
这个是我自己用的，把所有文字改成同一种样式。
(defun c:ZT (/ wz i ent)
(command "style" "HZ" "hza ...

向大哥学习了

wuzheng80425 发表于 2015-7-24 18:26:49

来一段我自己经常用的
(defun c:gz(/ ss en enl n h ang)
(command "style" "style1" "微软雅黑" "" "" "" "" "")
(setq ss (ssget '((0 . "TEXT,MTEXT"))))   ; 单行多行字体
(if ss
    (progn
      (setq h (getreal "\n新字高：")
      ang (getstring"请输入字体新样式<style1>")
      n 0
      )
      (repeat (sslength ss)
      (setq en (ssname ss n)
            enl (entget en)
            )
      (if h (setq enl (subst (cons 40 h) (assoc 40 enl) enl)))
      (if ang (setq enl (subst (cons 7 ang) (assoc 7 enl) enl)))
      (entmod enl)
      (setq n (1+ n))
      )
      )
    )

      
)

gaics 发表于 2015-7-26 10:26:29

wuzheng80425 发表于 2015-7-24 17:21 static/image/common/back.gif
向大哥学习了

互相学习！

LIULISHENG 发表于 2021-6-7 11:24:04

感谢开源

alexmai 发表于 2021-6-10 23:27:54

论坛有更换字体的工具

kinger 发表于 2022-12-16 16:18:41

这个插件可以分享下吗。

bbswen 发表于 2022-12-19 16:08:17

kinger 发表于 2022-12-16 16:18
这个插件可以分享下吗。

公司网络授权，离线不能使用。

白色微風1991 发表于 2022-12-20 07:59:55

互相學習！

2548572928 发表于 2025-1-2 05:51:18

感谢大神的分享
页: 1 2 [3]
查看完整版本: 文字样式 替换