CAD字体自动改为宋体——vba一键实现

山水CAD筑梦人

已于 2024-07-24 08:40:57 修改

阅读量594

点赞数 10

分类专栏： CAD VBA 文章标签： CAD

于 2024-07-18 14:55:20 首次发布

本文链接：https://blog.csdn.net/yongshiqq/article/details/140523322

版权

CAD VBA 专栏收录该内容

66 篇文章

订阅专栏

cad中经常出现文字不显示完整，显示为“？？？”，字体样式也不完整，如下图

通过加载dvb程序，可一建修改字体为宋体：

加载方法：CAD任务栏输入“vbaman”加载此插件，输入“rbarun”运行即可。

上图可见，字体由“？？？”改为正常显示的宋体字。

手工改变字体样式，设置方法如下：依次选定：格式、文字样式、格式名

cad 中字体类型的常用方法、属性如下：

ThisDrawing.TextStyles.Add ("mytext")
ThisDrawing.TextStyles
ThisDrawing.TextStyles.Count
ThisDrawing.TextStyles.Item(i)
ThisDrawing.TextStyles.Item(i).Name

dvb文件部分代码如下：

Set mytxtstyle = ThisDrawing.TextStyles.Add("mytxt")
mytxtstyle.fontFile = "c:\windows\fonts\STSONG.TTF"'设置字体文件为仿宋体

ThisDrawing.ActiveTextStyle = mytxtstyle  '将当前文字样式设置为mytxt
Set sel = ThisDrawing.SelectionSets.Add("mysel")
sel.Select acSelectionSetAll, , , ftypetxt, fdatatxt
    For Each ent In sel
        ent.StyleName = "mytxt"'完整代码@qq443440204
    Next ent
sel.Delete
ZoomExtents
ThisDrawing.Save

另附大字体语法

TextStyle.BigFontFile

使用该属性的对象：TextStyle

BigFontFile：String[字符串]; 可读写大字体文件的名称。

说明：该属性除了用于指定亚洲语言大字体文件外，它与FontFile属性相似。可用的文件类型只有 SHX。该属性不能设置为 NULL 或空字符串。