暂停并等待用户输入一个距离。
Rhino.GetDistance ([arrPoint [, dblDistance [, strMessage1 [, strMessage2]]]])
arrPoint |
可选参数。Array.A zero-based, one-dimensional array containing three numbers identifying the first distance point. |
dblDistance |
可选参数。Number.A default distance value. |
strMessage1 |
可选参数。字符串。A prompt or message for the first distance point. |
strMessage2 |
可选参数。字符串。A prompt or message for the second distance point. |
Number |
The distance input by the user if successful. |
Null |
如果执行不成功或出错，返回空值。 |
Dim dblDistance
dblDistance = Rhino.GetDistance
If Not IsNull(dblDistance) Then
Rhino.Print "Distance:" & CStr(dblDistance)
End If