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

字体的名称你可以查看字体设置对话框中的字体名称，直接按显示的名称输入就行：
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

dazhangyu 发表于 2003-11-14 17:08:00

这对多文本（mtext）好象不好用呀！出现的是乱码

mccad 发表于 2003-11-14 17:20:00

你来个例图吧，不然再问下去也没有结果

fingerli 发表于 2004-8-3 12:38:00

用这种方法为什么多行文字是乱码呢，单行文字就可以，怎么解决啊？
页: [1]
查看完整版本: 怎么给我添加的多文本字体设置成仿宋呢？