Adjusts the seam, or start/end, point of a closed curve.
Rhino.CurveSeam (strObject, dblParameter)
|
strObject |
Required. String. The object's identifier. |
|
dblParameter |
Required. Number. The parameter of the new start/end point. Note, if successful, the resulting curve's domain will start at dblParameter. |
|
Boolean |
True or False indicating success or failure. |
|
Null |
On error. |
Const rhCurveObject = 4
Dim strObject, arrDomain, dblParameter
strObject = Rhino.GetObject("Select closed curve", rhCurveObject)
If Rhino.IsCurveClosed(strObject) Then
arrDomain = Rhino.CurveDomain(strObject)
dblParameter = (arrDomain(0) + arrDomain(1)) / 2
Rhino.CurveSeam strObject, dblParameter
End If