Sub Example_BasePoint()
    ' Этот пример создает объект луч. Затем находит основную точку луча,
    ' изменяет основную точку и делает запрос новой основной точки.
    Dim basePoint(0 To 2) As Double
    Dim directionVec(0 To 2) As Double
    Dim rayObj As AcadRay
    
    ' Установите основную точку и вектор направления для луча
    basePoint(0) = 3#: basePoint(1) = 3#: basePoint(2) = 0#
    directionVec(0) = 1#: directionVec(1) = 1#: directionVec(2) = 0#
    
    ' Создайте объект Ray в пространстве модели
    Set rayObj = ThisDrawing.ModelSpace.AddRay(basePoint, directionVec)
    
    ThisDrawing.Regen True
    MsgBox "Новый Луч добавился.", vbInformation
    
    ' Определите новую основную точку
    Dim newBase(0 To 2) As Double
    newBase(0) = 4#: newBase(1) = 2#: newBase(2) = 0#
    
    ' Обновите луч, используя новую основную точку
    rayObj.basePoint = newBase
            
    ' Сделайте запрос новой основной точки для Луча
    Dim currBase As Variant
    Dim msg As String
    currBase = rayObj.basePoint
    msg = currBase(0) & ", " & currBase(1) & ", " & currBase(2)
    
    ThisDrawing.Regen True
    MsgBox "Мы только что изменили основную точку нового Луча: " & msg, vbInformation
End Sub