Sub Example_Linetypes()
    ' Этот пример находит коллекцию типов линии
    ' и перечисляет все доступные типы линии в коллекции.
    
    Dim linetypeColl As AcadLineTypes
    Dim entry As AcadLineType
    Dim msg As String
    
    ' Возвратите объект коллекции типа линии активного документа
    Set linetypeColl = ThisDrawing.Linetypes
    ' Перечислите все доступные типы линии
    For Each entry In linetypeColl
        msg = msg & entry.name & vbCrLf
    Next
    MsgBox "Типы линии, доступные в этом рисунке:" & vbCrLf & msg, vbInformation, "Linetypes Пример"
End Sub