Sub Example_Description()
    ' Этот пример возвращает описание активного типа линии.
    ' Затем изменяет описание активного типа линии.
    
    Dim currDescription As String
    
    ' Этот пример изменяет описание типа линии
    currDescription = ThisDrawing.ActiveLinetype.Description
    MsgBox "Описание активного Типа линии: " & currDescription, vbInformation, "Description Пример"

    ' Измените описание активного типа линии
    ThisDrawing.ActiveLinetype.Description = "Мой любимый Тип линии"
    MsgBox "Новое описание активного Типа линии: " & ThisDrawing.ActiveLinetype.Description, vbInformation, "Description Пример"
    
    ' Сбросьте описание активного типа линии
    ThisDrawing.ActiveLinetype.Description = currDescription
    MsgBox "Описание активного Типа линии сброшено: " & ThisDrawing.ActiveLinetype.Description, vbInformation, "Description Пример"
End Sub