Sub Example_GetDistance()
    ' Этот пример возвращает расстояние, введенное пользователем.
    
    Dim returnDist As Double
    Dim basePnt(0 To 2) As Double
    basePnt(0) = 0#: basePnt(1) = 0#: basePnt(2) = 0#
    
    ' Возвратите значение, введенное пользователем. Подсказка обеспечена.
    returnDist = ThisDrawing.Utility.GetDistance(, "Введите расстояние: ")
    MsgBox "Введенное расстояние " & returnDist & vbCrLf & _
            "(Введите следующее значение без подсказки.)", , "GetDistance Пример"
    
    ' Возвратите значение, введенное пользователем. Никакая подсказка не обеспечена.
    returnDist = ThisDrawing.Utility.GetDistance()
    MsgBox "Введенное расстояние " & returnDist, , "GetDistance Пример"
    
    ' Возвратите значение, введенное пользователем. Арифметическая запятая и подсказка обеспечены.
    returnDist = ThisDrawing.Utility.GetDistance(basePnt, "Введите расстояние: ")
    MsgBox "Введенное расстояние " & returnDist, , "GetDistance Пример"
    
End Sub