文字样式替换

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

gaics 发表于 2015-7-11 10:56
这个是我自己用的，把所有文字改成同一种样式。
(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
向大哥学习了

互相学习！

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

互相學習！

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

[提问] 文字样式替换

点评

[提问] 文字样式 替换

点评

[提问] 文字样式替换