Sub Example_ActiveLinetype()
    ' Этот пример находит текущий тип линии.
    ' Затем устанавливает новый тип линии.
    ' Наконец, он сбрасывает активный тип линии к первоначальной установке.
    
    Dim currLineType As AcadLineType
    Dim newLineType As AcadLineType
    
    ' Найдите текущий LineType активного документа
    Set currLineType = ThisDrawing.ActiveLinetype
    MsgBox "Текущий тип линии " & currLineType.name, vbInformation, "ActiveLinetype Пример"
    
    ' Установите текущий Linetype на что - нибудь еще в коллекции
    Dim entry
    Dim found As Boolean
    For Each entry In ThisDrawing.Linetypes
        If StrComp(entry.name, currLineType.name, 1) <> 0 Then
            Set newLineType = entry
            found = True
            Exit For
        End If
    Next
    If found Then
        ThisDrawing.ActiveLinetype = newLineType
        MsgBox "Новый тип линии " & newLineType.name, vbInformation, "ActiveLinetype Пример"
        ' Сбросьте тип линии к предыдущей установке
        ThisDrawing.ActiveLinetype = currLineType
        MsgBox "Активный тип линии сброшен к " & currLineType.name, vbInformation, "ActiveLinetype Пример"
    End If
End Sub