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

    Dim lineObj As AcadLine
    Dim lineDelta As Variant
    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
    
    ' Покажите дельту новой линии
    lineDelta = lineObj.Delta
    MsgBox "Дельта новой Линии: " & vbCrLf & _
                                            "DeltaX:" & lineDelta(0) & vbCrLf & _
                                            "DeltaY:" & lineDelta(1) & vbCrLf & _
                                            "DeltaZ:" & lineDelta(2)
End Sub