Returns the radius of a circle curve object.
Rhino.CircleRadius (strObject [, intIndex])
strObject |
Required. String. The object's identifier. |
intIndex |
Optional. Number. If strObject identifies a polycurve object, then intIndex identifies the curve segment of the polycurve to query. |
Number |
The radius of the circle if successful. |
Null |
If not successful, or on error. |
Dim strObject, dblRadius
strObject = Rhino.GetObject("Select circle")
If Rhino.IsCircle(strObject) Then
dblRadius = Rhino.CircleRadius(strObject)
Rhino.Print "Circle radius: " & CStr(dblRadius)
End If