Divides a curve object into segments of a specified length.
Rhino.DivideCurveLength (strObject, dblLength [, blnCreate [, blnPoints [, arrInterval]])
strObject |
Required. String. The object's identifier. |
dblLength |
Required. Number. The length of each segment. |
blnCreate |
Optional. Boolean. Create the division points. If omitted or False, points are not created. |
blnPoints |
Optional. Boolean. Return an array of 3-D points. If omitted or True, points are returned. If False, then an array of curve parameters are returned. |
arrInterval |
Optional. Array. An array of two number identifying the interval to divide. Portions of the curve before domain(0) and after domain(1) will be ignored. If the input curve is open, the interval must be increasing. If the input curve is closed and the interval is decreasing, then the portion of the curve across the start and end of the curve is divided. |
Array |
If blnPoints is not specified or True, then an array containing 3-D division points if successful. |
Array |
If blnPoints is False, then an array containing division curve parameters if successful. |
Null |
If not successful, or on error. |
Dim strObject, dblLength, arrPoints, arrPoint
strObject = Rhino.GetObject("Select a curve")
If Rhino.IsCurve(strObject) Then
dblLength = Rhino.CurveLength(strObject) / 4
arrPoints = Rhino.DivideCurveLength(strObject, dblLength)
For Each arrPoint In arrPoints
Rhino.AddPoint arrPoint
Next
End If