Sub Example_Load()
    ' Этот пример пытается загрузить тип линии "CENTER" из файла acad.lin.
    ' Если тип линии уже существует, то показано сообщение.
    
    Dim linetypeName As String
    linetypeName = "CENTER"
    
    'Загрузите тип линии "CENTER" из файла acad.lin
    On Error Resume Next    ' ловушка ошибок загрузки
    ThisDrawing.Linetypes.Load linetypeName, "acad.lin"
    
    'Если имя уже существует, то уведомьте пользователя
    If Err.Description = "Duplicate record name" Then
        MsgBox "Названный тип линии '" & linetypeName & "' уже существует.", , "Load Пример"
    End If
    
End Sub