' 20/11/13: for 0.5mm ballnose Sub drawWavy() ' Definitions Dim arrPoints(50) ' Delete everything allobj=Rhino.allobjects If IsArray(allobj) Then Rhino.deleteobjects allobj ' Draw lines For y=0 To 50 ' Load point array with data For x=0 To 50 arrPoints(x)=Array((x+((Rnd()-0.5)*.5))/3,(y+((Rnd()-0.5)*1))/3,0) Next ' Draw the control points Rhino.currentlayer("Layer 01") Rhino.addpoints arrpoints Rhino.currentlayer("Default") ' Draw control point curve Rhino.addcurve arrpoints ' Slow things down so user can see it drawing Rhino.sleep 100 Next End Sub ' Run the sub drawWavy()