zaj869 发表于 2006-6-3 13:11:00

请教字体问题

本帖最后由 作者 于 2006-6-3 13:33:13 编辑 <br /><br /> <P>请教用VB在CAD中加注汉字，当使用不同字体怎么办？我在使用中，</P>
<P>dim textobj as acadmtext</P>
<P>Set textobj = acaddoc.ModelSpace.AddMText(npt, kd, strs(i))<BR>textobj.Height = kd<BR>textobj.StyleName = "romans.ttf"</P>
<P>调试中，提示最后一行错误，请问改如何改正？</P>

xinghesnak 发表于 2006-6-3 13:22:00

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

zaj869 发表于 2006-6-3 13:38:00

<A name=16999><FONT color=#000066><B>xinghesnak</B></FONT></A> 教的方法试了一下不行，提示方法失败，请帮我换一款常用的中文字体

xinghesnak 发表于 2006-6-3 13:42:00

textobj.StyleName = "hztxt"

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

<P>还是不行，后查了一下，应该输入"standard"之类，一下该如何解决？</P>
<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>

xinghesnak 发表于 2006-6-5 11:33:00

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