Option Explicit
‘Script written by Macus Chen
‘Script copyrighted by <insert company name>
‘Script version Saturday, November 28, 2009 9:54:48 PM
Call Main()
Sub Main()
Dim arrCrv, arrPts, ptNew
arrCrv = Rhino.GetObjects(“Select curves”, 4)
Dim i,j
For i = 0 To Ubound(arrCrv)
Rhino.EnableObjectGrips arrCrv(i)
arrPts = Rhino.ObjectGripLocations(arrCrv(i))
For j = 0 To Ubound(arrPts)
arrPts(j)(0) = arrPts(j)(0) + (Rnd*0.5-0.25)
arrPts(j)(1) = arrPts(j)(1) + (Rnd*0.5-0.25)
Next
ptNew = Rhino.ObjectGripLocations(arrCrv(i), arrPts)
Rhino.EnableObjectGrips arrCrv(i), False
Next
End Sub
