1129 curvegripalittlemove

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

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google photo

You are commenting using your Google account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s