tongyu 发表于 2006-10-30 12:43:00

[求助]如何在vb里加载和使用大字体文件

<P><FONT face=宋体 size=2>哪位高手,指点一下.主要是如何在VB中使用大字体文件?如何加载?</FONT></P>

dchlmz 发表于 2006-10-30 13:50:00

&nbsp;&nbsp;&nbsp; FontsName = "C:\AutoCAD 2002\Fonts\等线体(标准).shx"<BR>&nbsp;&nbsp;&nbsp; ThisDrawing.ActiveTextStyle.fontFile = FontsName<BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp; ThisDrawing.ActiveTextStyle.BigFontFile = FontsName<BR>这样可以用，

azjmjsj 发表于 2006-11-4 13:51:00

<P>&nbsp;创建新字体AAA(111.shx,222.shx)&nbsp;&nbsp;&nbsp; </P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim txtStyle As AcadTextStyle</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set txtStyle = ThisDrawing.TextStyles.Add("AAA")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txtStyle.fontFile = "111.shx"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txtStyle.BigFontFile = "222.shx"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txtStyle.Width =&nbsp;1&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ThisDrawing.ActiveTextStyle = ThisDrawing.TextStyles.Add("AAA")</P>
页: [1]
查看完整版本: [求助]如何在vb里加载和使用大字体文件