如何统一字体样式？

再见熊猫衣服

如何统一字体样式？
很多图纸，别人的图纸，拿过来，有很多字体样式我们电脑上都没有，而且很多设计师喜欢弄一起奇奇怪怪的字体样式到CAD文件里面去。
第一，一打开图纸，就有很多字体丢失的提示，这个提示非常多，非常麻烦。
第二，当字体丢失的时候，那些奇怪的字体的内容，都变成了？？？。
综上，
目前也没有插件，可以达到指定所选字体样式，改为自己指定的字体样式。

我的y1068@qq.com，欢迎交流。

再见熊猫衣服

自贡黄明儒 发表于 2018-9-5 08:57
然后re 更新

你这个用不了

liunian0524

;将当前字体样式改为"黑体",清除其他字体样式
(defun c:HT (/ OBJNAME ATTS)
(vl-load-com)
  (setq ThisDrawing(vla-get-activedocument (vlax-get-acad-object)))
  (Setq TextStyles(vla-get-TextStyles ThisDrawing))
  (Setq TextStyle(vla-add TextStyles "黑体"))
  (vla-SetFont TextStyle "黑体" :vlax-false :vlax-false 1 0)
  (vlax-for blkobj (vla-get-blocks
                     (vla-get-ActiveDocument (vlax-get-acad-object))
                     )
    (vlax-for obj blkobj
      (if (or (= "AcDbMText" (setq objname (vla-get-objectname obj)))
              (= "AcDbText" objname)
              (= "AcDbAttribute" objname)
              (= "AcDbAttributeDefinition" objname)
              )
        (VL-CATCH-ALL-APPLY 'vla-put-stylename (list obj "黑体"))
        )
      (if (and
            (or (= "AcDbMInsertBlock" objname)
              (= "AcDbBlockReference" objname)
              )
            (setq atts (vlax-invoke obj 'GetAttributes))
            )
        (foreach a atts (VL-CATCH-ALL-APPLY 'vla-put-stylename (list a "黑体")))
        )
      )
    )
  (setvar 'textstyle "黑体")
  (command "purge" "st" "*" "n")
  (princ)
  )

lht

试试这个看(setvar "fontalt" "宋体")

再见熊猫衣服

lht 发表于 2018-9-4 19:23
试试这个看(setvar "fontalt" "宋体")

这种方法，不能改变块里面的字体样式啊。

自贡黄明儒

然后re 更新  

浴火鸟TYTYJ

自贡黄明儒 发表于 2018-9-5 08:57
然后re 更新

一年使用期限？

gxlx2007

图纸用黑体的较少的呀？

t18-13nil

都给源代码了，要什么改什么啊

tiancao100

http://tiancao.net/blogview.asp?logID=927
参考一下：
TcTY          除了宋体、黑体等Truetype字体以外的文字样式统一为txt.shx和hztxt.shx，解决文字字符不能显示的问题。              
TcTY1        将所有文字样式统一为txt.shx和Hztxt.shx              
TcTY2        除Truetype文字样式外全部使用探索者字体(tssdtxt.shx和tssdchn.shx)              
TcTxtTSSD  除Truetype文字样式外全部使用探索者字体(本插件自带的探索者字体tssdtxt.shx和tssdchn.shx)              
TcTxtYJK    除Truetype外文字样式均为探索者字体(插件自带盈建科字体yjkeng.shx和yjkchn.shx              TcZiTi         可以直接加载不在AutoCAD支持路径下的字体文件，支持批量修改文字样式，目前不支持TrueType字体文件，不能自动叛变shx文件是不是大字体文件。