Sub Example_Linetype()
    ' Этот пример ищет тип линии DashDot. Если он не найден, он добавляется
    ' из файла acad.lin. Затем создаётся линия и устанавливается тип линии DashDot.
    
    'Ищите на коллекции типов линии тип линии DashDot.
    Dim entry As AcadLineType
    Dim found As Boolean
    found = False
    For Each entry In ThisDrawing.Linetypes
        If StrComp(entry.name, "DASHDOT", 1) = 0 Then
            found = True
            Exit For
        End If
    Next
    If Not (found) Then ThisDrawing.Linetypes.Load "DASHDOT", "acad.lin"
        
    'Создайте линию
    Dim lineObj As AcadLine
    Dim startPoint(0 To 2) As Double
    Dim endPoint(0 To 2) As Double
    startPoint(0) = 1#: startPoint(1) = 1#: startPoint(2) = 0#
    endPoint(0) = 4#: endPoint(1) = 4#: endPoint(2) = 0#
    Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
    
    'Измените тип линии
    lineObj.Linetype = "DASHDOT"
    ZoomAll
    
End Sub