Sub Example_ActiveTextStyle()
    ' Этот пример возвращает текущий стиль текста и затем устанавливает новый стиль.
    ' Наконец, он возвращает стиль к предыдущей установке.
    Dim newTextStyle As AcadTextStyle
    Dim currTextStyle As AcadTextStyle
    
    ' Возвратите текущий стиль текста активного документа
    Set currTextStyle = ThisDrawing.ActiveTextStyle
    MsgBox "Текущий стиль текста " & currTextStyle.name, vbInformation, "ActiveTextStyle Пример"
    
    ' Создайте стиль текста и сделайте его текущим
    Set newTextStyle = ThisDrawing.TextStyles.Add("TestTextStyle")
    ThisDrawing.ActiveTextStyle = newTextStyle
    MsgBox "Новый стиль текста " & newTextStyle.name, vbInformation, "ActiveTextStyle Пример"
    
    ' Сбросьте стиль текста к его предыдущей установке
    ThisDrawing.ActiveTextStyle = currTextStyle
    MsgBox "Стиль текста сброшен к " & currTextStyle.name, vbInformation, "ActiveTextStyle Пример"
End Sub