Sub Example_Length()
   'Этот пример добавляет линию в пространстве модели и возвращает длину новой линии

    Dim lineObj As AcadLine
    Dim startPoint(0 To 2) As Double, endPoint(0 To 2)  As Double
    
    'Определите начало и конц линии
    startPoint(0) = 1: startPoint(1) = 1: startPoint(2) = 0
    endPoint(0) = 5: endPoint(1) = 5: endPoint(2) = 0

    'Создайте линию в пространстве модели
    Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)

    ThisDrawing.Application.ZoomAll
    
    MsgBox "Длина новой Линии: " & lineObj.length
End Sub