Curve division number
'
' Diviides a curve in different sections
' —-
Function curvedivision (strcurve,sections)
Dim Domain, Param, Point, i
ReDim collection(sections)
Domain = Rhino.CurveDomain(strcurve) ' here we "catch " the curve and get the Domain of the curve
For i = 0 To sections
Param = i *((Domain(1)-Domain(0))/sections) 'here we calculate the position of the point
point = Rhino.EvaluateCurve(strCurve,Param) 'return the position of the point inside of the curve
Rhino.AddPoint (point) 'print the point
rhino.print
collection(i) = point
Next
End Function
page revision: 3, last edited: 07 Aug 2008 13:24