Sub Example_TextFontSize()
    'Этот пример возвращает текущую установку TextFontSize. Затем изменяет значение
    ' и наконец сбрасывает значение назад к оригинальной установке.
    
    Dim preferences As AcadPreferences
    Dim currTextFontSize As Integer
    
    Set preferences = ThisDrawing.Application.preferences
    
    'Получите текущее значение TextFontSize
    currTextFontSize = preferences.DISPLAY.TextFontSize
    MsgBox "Текущее значение для TextFontSize " & preferences.DISPLAY.TextFontSize, vbInformation, "TextFontSize Пример"
    
    'Измените значение для TextFontSize
    preferences.DISPLAY.TextFontSize = 12
    MsgBox "Новое значение для TextFontSize " & preferences.DISPLAY.TextFontSize, vbInformation, "TextFontSize Пример"
    
    'Сбросьте TextFontSize к его оригинальному значению
    preferences.DISPLAY.TextFontSize = currTextFontSize
    MsgBox "Значение TextFontSize сброшено к " & preferences.DISPLAY.TextFontSize, vbInformation, "TextFontSize Пример"
End Sub