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