Returns the radius of curvature at a point on a curve.
Rhino.CurveRadius (strObject, arrPoint [, intIndex])
|
strObject |
Required. String. The object's identifier. |
|
arrPoint |
Required. Array. The test, or sampling, point. |
|
intIndex |
Optional. Number. If strObject identifies a polycurve object, then intIndex identifies the curve segment of the polycurve to query. |
|
Number |
The radius of curvature at the point on the curve if successful. |
|
Null |
If not successful, or on error. |
Dim strObject, arrPoint, dblRadius
strObject = Rhino.GetObject("Select a curve")
If Rhino.IsCurve(strObject) Then
arrPoint = Rhino.GetPointOnCurve(strObject, "Pick a test point")
If IsArray(arrPoint) Then
dblRadius = Rhino.CurveRadius(strObject, arrPoint)
Rhino.Print "Radius of curvature: " & CStr(dblRadius)
End If
End If