[求助]请教字体问题

zaj869

用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

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