Converts a curve parameter to a normalized curve parameter; one that ranges between 0.0 and 1.0.
Rhino.CurveNormalizedParameter (strObject , dblParameter)
|
strObject |
Required. String. The object's identifier. |
|
dblParameter |
Required. Number. The curve parameter to convert. |
|
Number |
The normalized curve parameter if successful. |
|
Null |
On error. |
Dim strObject, dblParameter, dblNormalized
strObject = Rhino.GetObject("Select curve")
If Rhino.IsCurve(strObject) Then
arrDomain = Rhino.CurveDomain(strObject)
dblParameter = (arrDomain(1) + arrDomain(0)) / 2
Rhino.Print "Curve parameter: " & CStr(dblParameter)
dblNormalized = Rhino.CurveNormalizedParameter(strObject, dblParameter)
Rhino.Print "Normalized parameter: " & CStr(dblNormalized)
End If