Sub Example_GetPoint()
    ' Этот пример возвращает точку, введенную пользователем.
    
    Dim returnPnt As Variant
    
    ' Возвратите точку, используя подсказку
    returnPnt = ThisDrawing.Utility.GetPoint(, "Введите точку: ")
    MsgBox "WCS точки: " & returnPnt(0) & ", " & returnPnt(1) & ", " & returnPnt(2) & vbCrLf & _
            "(Введите следующее значение без подсказки.)", , "GetPoint Пример"
    
    ' Возвратите точку без подсказки
    returnPnt = ThisDrawing.Utility.GetPoint
    MsgBox "WCS точки: " & returnPnt(0) & ", " & returnPnt(1) & ", " & returnPnt(2), , "GetPoint Пример"
    
    ' Возвратите точку, используя базовую точку и подсказку
    Dim basePnt(0 To 2) As Double
    basePnt(0) = 2#: basePnt(1) = 2#: basePnt(2) = 0#
    returnPnt = ThisDrawing.Utility.GetPoint(basePnt, "Введите точку: ")
    MsgBox "WCS точки: " & returnPnt(0) & ", " & returnPnt(1) & ", " & returnPnt(2)
    
    ' Создайте линию от базовой точки и последней введенной точки
    Dim lineObj As AcadLine
    Set lineObj = ThisDrawing.ModelSpace.AddLine(basePnt, returnPnt)
    ZoomAll
    
End Sub