Sub Example_BigFontFile()
    ' Этот пример возвращает текущую установку BigFontFile.
    ' Затем изменяет значение.
    
    Dim textStyle1 As AcadTextStyle
    Dim currBigFontFile As String
    Dim newBigFontFile As String
    
    Set textStyle1 = ThisDrawing.ActiveTextStyle
    
    ' Отыщите текущее значение BigFontFile
    currBigFontFile = textStyle1.BigFontFile
    MsgBox "Текущее значение для BigFontFile " & currBigFontFile, vbInformation, "BigFontFile Пример"
    
    ' Измените значение для BigFontFile
    newBigFontFile = "C:/AutoCAD/Fonts/bigfont.shx"
    textStyle1.BigFontFile = newBigFontFile
    MsgBox "Новое значение для BigFontFile " & newBigFontFile, vbInformation, "BigFontFile Пример"

End Sub