社区 › AutoLISP/Visual LISP 编程技术 › 找办法改字体

357785513 发表于 2013-3-6 23:18:56

找办法改字体

各位同仁朋友,大家遇到改字体的问题不,样式名里的所有的样式样要一个一个去改的话就头痛死了,有时几十个样式名,
要把每个样式名下面的字体名改为"ROMANS.SHX 及 大字体里改为HZTXT 高度改为0 宽度改为0.8.要这样去改的话一个样式名一个样式名去改真得给累死去,大家是怎么改的,有什么好办法没有,教教咱,咱最近搞这些东东头通死,

softbird 发表于 2020-9-3 07:58:20

请问一下有没有办法过滤掉形文件的字体？判断是形文件不进行改名操作？

999999 发表于 2020-9-14 08:08:00

顶一下，刚好需要的时候，搜索一下，就出现了，谢谢

357785513 发表于 2013-3-6 23:32:07

大家看看这样改可累了,一个文件一个文件去改的话真累死了,大家有没有什么好的办法,有没有别的程序呀各位

wszxf 发表于 2013-3-7 08:41:21

如果你全部统一为一个格式，那只要改一个。然后把所有文字改为这个类型不就OK了。
当然程序改就更方便 了。也比较简单

Gu_xl 发表于 2013-3-7 08:59:01

(defun c:tt ()
(vlax-for obj (vla-get-textstyles
                  (vla-get-ActiveDocument (vlax-get-acad-object))
                  )
    (vla-put-fontfile obj "ROMANS.SHX")
    (vla-put-bigfontfile obj "HZTXT.SHX")
    (vla-put-Height obj 0)
    (vla-put-width obj 0.8)
    )
(princ)
)

357785513 发表于 2013-3-7 21:58:53

哥,可以嘛,我试试哥,谢谢哥

357785513 发表于 2013-3-7 22:04:25

错误: no function
definition: GXL-TABLE
少这个东东   GXL-TABLE
不行呀

357785513 发表于 2013-3-7 22:35:57

哦,大哥不好意思,刚才可能是程序有问题,现在可以了

lisp爱好者 发表于 2013-3-8 09:52:56

REGEN 后可以看见效果，能不能指定其中某个不变，剩余所有的样式全部改掉为程序内置执行的字体，比如保留宋体或“-宋体”，g版帮下忙哈

Gu_xl 发表于 2013-3-8 11:39:24

lisp爱好者 发表于 2013-3-8 09:52 static/image/common/back.gif
REGEN 后可以看见效果，能不能指定其中某个不变，剩余所有的样式全部改掉为程序内置执行的字体，比如保留宋 ...

(defun c:tt ()
(vlax-for obj (vla-get-textstyles
                  (vla-get-ActiveDocument (vlax-get-acad-object))
                  )
    (if (not (member (vla-get-name obj) '("宋体" "黑体")))
      (progn
      (vla-put-fontfile obj "ROMANS.SHX")
      (vla-put-bigfontfile obj "HZTXT.SHX")
      (vla-put-Height obj 0)
      (vla-put-width obj 0.8)
      )
      )
    )
(princ)
)

lisp爱好者 发表于 2013-3-8 12:08:48

多谢顾版

查看完整版本: 找办法改字体