Random points on curve

'''
''' Random points on curve
''' —-

Function randomPtsOnCrv(strObject, intPts)

Dim domain, i

domain = Rhino.CurveDomain (strObject)

For i = 0 To intPts
Rhino.AddPoint Rhino.EvaluateCurve (strObject, (domain(1)*Rnd))
Next

End function

Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-ShareAlike 3.0 License