Sub Example_GetCorner()
    ' Этот пример обеспечивает основную точку и запрашивает у пользователя
    ' вторую точку, чтобы сделать прямоугольник.
    
    Dim returnPnt As Variant
    Dim basePnt(0 To 2) As Double
    basePnt(0) = 2#: basePnt(1) = 2#: basePnt(2) = 0#
    
    ' Запросите пользователя выбирать вторую точку
    returnPnt = ThisDrawing.Utility.GetCorner(basePnt, "Введите Другой угол: ")
    
    ' Покажите выбранную точку
    MsgBox "Выбранная точка " & returnPnt(0) & ", " & returnPnt(1) & ", " & returnPnt(2), , "GetCorner Пример"
    
End Sub