zaj869 发表于 2006-6-4 10:05:00

[求助]请教字体问题

本帖最后由 作者 于 2006-6-4 15:51:33 编辑 <br /><br /> <P>用VB在R14中输入中文，遇到这样的一个问题。</P>
<P>Dim t As AcadTextStyle<BR>Dim textobj As AcadMtext</P>
<P>Dim textobj1 &nbsp;As AcadMtext<BR>Set t = acaddoc.ActiveTextStyle</P>
<P>Set acadapp = CreateObject("autocad.application")<BR>Set acaddoc = acadapp.ActiveDocument</P>
<P>t.FontFile = "C:\windows\fonts\SIMLI.ttf"&nbsp; '设成隶体<BR>Set textobj = acaddoc.ModelSpace.AddMText(npt, kd, strs)<BR>textobj.Height = kd</P>
<P>t.FontFile = "C:\windows\fonts\Simhei.ttf" '设成黑体<BR>Set textobj1= acaddoc.ModelSpace.AddMText(npt1, kd , WP)<BR>textobj.Height = kd</P>
<P>最后的结果是黑体覆盖了隶体，该采取如何办法，使用两种字体互相不干扰！谢谢</P>
页: [1]
查看完整版本: [求助]请教字体问题