找办法改字体

357785513

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

softbird

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

999999

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

357785513

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

wszxf

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

Gu_xl

1. (defun c:tt ()
   
2.   (vlax-for obj (vla-get-textstyles
   
3.                   (vla-get-ActiveDocument (vlax-get-acad-object))
   
4.                   )
   
5.     (vla-put-fontfile obj "ROMANS.SHX")
   
6.     (vla-put-bigfontfile obj "HZTXT.SHX")
   
7.     (vla-put-Height obj 0)
   
8.     (vla-put-width obj 0.8)
   
9.     )
   
10.   (princ)
    
11.   )

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

357785513

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

357785513

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

357785513

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

lisp爱好者

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

Gu_xl

lisp爱好者 发表于 2013-3-8 09:52
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爱好者

多谢顾版