如何统一字体样式？
如何统一字体样式？很多图纸，别人的图纸，拿过来，有很多字体样式我们电脑上都没有，而且很多设计师喜欢弄一起奇奇怪怪的字体样式到CAD文件里面去。
第一，一打开图纸，就有很多字体丢失的提示，这个提示非常多，非常麻烦。
第二，当字体丢失的时候，那些奇怪的字体的内容，都变成了？？？。
综上，
目前也没有插件，可以达到指定所选字体样式，改为自己指定的字体样式。
我的y1068@qq.com，欢迎交流。
自贡黄明儒 发表于 2018-9-5 08:57
然后re 更新
你这个用不了 ;将当前字体样式改为"黑体",清除其他字体样式
(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)
)
试试这个看(setvar "fontalt" "宋体") lht 发表于 2018-9-4 19:23
试试这个看(setvar "fontalt" "宋体")
这种方法，不能改变块里面的字体样式啊。 然后re 更新 自贡黄明儒 发表于 2018-9-5 08:57
然后re 更新
一年使用期限？ 图纸用黑体的较少的呀？ 都给源代码了，要什么改什么啊 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文件是不是大字体文件。
页:
[1]
2