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

tongyu

哪位高手,指点一下.主要是如何在VB中使用大字体文件?如何加载?

dchlmz

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

azjmjsj

 创建新字体AAA(111.shx,222.shx)   

      Dim txtStyle As AcadTextStyle

       Set txtStyle = ThisDrawing.TextStyles.Add("AAA")
        txtStyle.fontFile = "111.shx"
        txtStyle.BigFontFile = "222.shx"
        txtStyle.Width = 1    
      ThisDrawing.ActiveTextStyle = ThisDrawing.TextStyles.Add("AAA")