我要加一个STYLE,字体为WINDOWS TRUE字库
Set Temp = AcadDoc.TextStyles.Add("MasCq")Temp.fontFile = "GCDSN00L.TTF"
Temp.BigFontFile = ""
AcadDoc.ActiveTextStyle = Temp
GCDSN00L.TTF为WINDOWS TRUE字体文件。
但这段代码不起作用,如果设置SHX字体很好用啊。 Temp.fontFile 需要的路径必须为全路径,而不单单是文件名。 为什么SHX字库可以呢? 因为SHX为AutoCAD本身的字体,有字体目录。 太感谢了! 我用了下面两句话怎么也实现不了,请高手指教!
Set Stz = ThisDrawing.TextStyles.Add("Stz")<BR> Stz.fontFile = "C:\WINDOWS.0\Fonts\SimSun.ttf"
页:
[1]