怎么给我添加的多文本字体设置成仿宋呢？

dazhangyu · 发表于 2003-11-10 10:18:00

怎么给我添加的多文本字体设置成仿宋呢？

gzy · 发表于 2003-11-10 11:47:00

遍历图纸空间，逐个找到文字对象，然后替换字体。

dazhangyu · 发表于 2003-11-11 15:01:00

能不能具体点呀？？？

莫名 · 发表于 2003-11-12 21:20:00

先用在TextStyles中创建"仿宋体"(Add方法),然后将该Mtext对象的StyleName属性设为“仿宋体”，ok！

dazhangyu · 发表于 2003-11-14 11:10:00

版主，为什么不给一个建议？
其实我也知道从前有过类似的问题，但是那些都设置宋体呀，黑体什么的，起初我也以为设仿宋也可以用同样的方法，可是我试验过不行的。
为什么？？
是仿宋的文件名不对吗？
还是？？？？？
下面请高手发言。。。。。。。

mccad · 发表于 2003-11-14 11:29:00

字体的名称你可以查看字体设置对话框中的字体名称，直接按显示的名称输入就行：

copy


Sub CreateFontStyle()
    On Error Resume Next
    Dim FontStyle As AcadTextStyle
    Set FontStyle = ThisDrawing.TextStyles.Add("仿宋体")
    FontStyle.SetFont "仿宋_GB2312", False, False, 0, 0
    If Not Err Then ThisDrawing.ActiveTextStyle = FontStyle
End Sub