Sub Example_SecondPoint()
    'Этот пример создает объект луча. Затем находит вторую точку луча, 
    'изменяет вторую точку и делает запрос новой второй точки.
    
    Dim basePoint(0 To 2) As Double
    Dim directionVec(0 To 2) As Double
    Dim rayObj As AcadRay
    Dim currSecondPoint As Variant
    Dim msg As String
    Dim newSecondPoint(0 To 2) As Double
    
    'Установите базовую точку и направленный вектор для луча
    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 "Новый Ray был добавлен.", vbInformation
    
    'Определите новую вторую точку
    newSecondPoint(0) = 4: newSecondPoint(1) = 2: newSecondPoint(2) = 0
    
    'Обновите луч, используя новую вторую точку
    rayObj.SecondPoint = newSecondPoint
            
    'Сделайте запрос новой второй точки для Ray
    currSecondPoint = rayObj.SecondPoint
    msg = currSecondPoint(0) & vbCrLf & _
          currSecondPoint(1) & vbCrLf & _
          currSecondPoint(2)
    
    ThisDrawing.Regen True
    MsgBox "Мы только что изменяли вторую точку нового Ray к: " & vbCrLf & msg, vbInformation

End Sub