Tilting grid iterations

Option Explicit
'Script written by Simeon Stevens
'Script version Friday, October 07, 2008 5:35:03 PM
Call GridOfObjects()
Sub GridOfObjects()
Dim arrObjects, arrObjects2, i, j, y, x, line, aref(1), arefB(1)
Dim aref1(1), arefB2(1), arrobjects3, arrobjects4
'For i = 0 To 20
'For j = 0 To 20
'arrObjects = Rhino.Addcylinder(Array(i,j,0), Array(i,j,2),.1)
'arrObjects2 = Rhino.Addcylinder(Array(i,j,0), Array(i,j,0),.1)
'aref(0) = Array(i,j,0)
'aref(1) = Array(i,j,1)
'arefB(0) = Array(i,j,0)
'arefB(1) = Array(5,5,3)
'Call Rhino.OrientObject (arrobjects, aref, arefb)
'Next
'Next
For x = 0 To 20
For y = 0 To 20
arrObjects3 = Rhino.Addcylinder(Array(x,y,0),
Array(x,y,2),.1)
arrObjects4 = Rhino.Addcylinder(Array(y,x,0),
Array(y,x,2),.1)
aref1(0) = Array(y,x,0)
aref1(1) = Array(y,x,1)
arefB2(0) = Array(y,x,0)
arefB2(1) = Array(0,0,3)
Call Rhino.OrientObject (arrobjects3, (aref1), (arefB2))
Next
Next
End Sub
Page