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

dazhangyu

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

gzy

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

dazhangyu

能不能具体点呀？？？

莫名

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

dazhangyu

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

mccad

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

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

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

dazhangyu

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

mccad

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

fingerli

用这种方法为什么多行文字是乱码呢，单行文字就可以，怎么解决啊？