暂停并等待用户输入一个角度。
Rhino.GetAngle (arrPoint, arrReference, dblAngle, strMessage)
arrPoint |
可选参数。 Array.A zero-based, one-dimensional array containing three numbers identifying the starting, or base, point. |
arrReference |
可选参数。Array.A zero-based, one-dimensional array containing three numbers identifying a reference point.If specified, the reference angle is calculated from it and the base point. |
dblAngle |
可选参数。Number.A default angle value specified in degrees. |
strMessage |
可选参数。字符串。A prompt or message. |
Number |
The angle in degrees if successful. |
Null |
如果执行不成功或出错，返回空值。 |
Dim arrPoint, arrReference, dblAngle
arrPoint = Rhino.GetPoint("Base point")
If IsArray(arrPoint) Then
arrReference = Rhino.GetPoint("Reference point", arrPoint)
If IsArray(arrReference) Then
dblAngle = Rhino.GetAngle(arrPoint, arrReference)
If IsNumeric(dblAngle) Then
Rhino.Print "Angle:" & CStr(dblAngle)
End If
End If
End If