Sub Example_ActiveDimStyle()
    ' Этот пример возвращает текущий размерный стиль и
    ' затем устанавливает новый стиль.
    ' Затем возвращает стиль к предыдущей установке.
    Dim newDimStyle As AcadDimStyle
    Dim currDimStyle As AcadDimStyle
    
    ' Получите текущий размерный стиль активного документа
    Set currDimStyle = ThisDrawing.ActiveDimStyle
    MsgBox "Текущий размерный стиль " & currDimStyle.name, vbInformation, "ActiveDimStyle Пример"
    
    ' Создайте размерный стиль и сделайте его текущим
    Set newDimStyle = ThisDrawing.DimStyles.Add("TestDimStyle")
    ThisDrawing.ActiveDimStyle = newDimStyle    ' размерный стиль текущего набора newDimStyle
    MsgBox "Новый размерный стиль " & newDimStyle.name, vbInformation, "ActiveDimStyle Пример"
    
    ' Сбросьте размерный стиль к его предыдущей установке
    ThisDrawing.ActiveDimStyle = currDimStyle
    MsgBox "Размерный стиль сброшен к " & currDimStyle.name, vbInformation, "ActiveDimStyle Пример"
End Sub