请教字体问题

zaj869

请教用VB在CAD中加注汉字，当使用不同字体怎么办？我在使用中，

dim textobj as acadmtext

Set textobj = acaddoc.ModelSpace.AddMText(npt, kd, strs(i))
textobj.Height = kd
textobj.StyleName = "romans.ttf"

调试中，提示最后一行错误，请问改如何改正？

xinghesnak

改成这样行不行？textobj.StyleName = "romans"，另外不知道你有没有romas这种字型，我只知道大字体中有这个类型。你最好先确定有没有这个字型在用程序。。。。。。。

zaj869

xinghesnak 教的方法试了一下不行，提示方法失败，请帮我换一款常用的中文字体

xinghesnak

textobj.StyleName = "hztxt"

zaj869

还是不行，后查了一下，应该输入"standard"之类，一下该如何解决？

用VB在R14中输入中文，遇到这样的一个问题。

Dim t As AcadTextStyle
Dim textobj As AcadMtext

Dim textobj1  As AcadMtext
Set t = acaddoc.ActiveTextStyle

Set acadapp = CreateObject("autocad.application")
Set acaddoc = acadapp.ActiveDocument

t.FontFile = "C:\windows\fonts\SIMLI.ttf"  '设成隶体
Set textobj = acaddoc.ModelSpace.AddMText(npt, kd, strs)
textobj.Height = kd

t.FontFile = "C:\windows\fonts\Simhei.ttf" '设成黑体
Set textobj1= acaddoc.ModelSpace.AddMText(npt1, kd , WP)
textobj.Height = kd

最后的结果是黑体覆盖了隶体，该采取如何办法，使用两种字体互相补干扰！谢谢

xinghesnak

textobj.StyleName = "STANDARD"，看样你对字体和样式名以及大字体的关系不是很明白.先搜搜本站的相关帖子就有介绍的.......我建议你放弃最后写的方法,先得到文字再改样式名.......