Another Grid

SA: This is another Grid I was working. Note: I have the redraw disabled and enabled, it will take for-ev-er if you comment them out

Option Explicit
'Script written by STeveA
'Script Version: 08 October 2008
Call GridOfObjects ()
Sub GridOfObjects ()
Rhino.EnableRedraw (False)
Dim arrObjects , i, j
Dim arrRef(1), arrTarg(1)
For i = 0 To 20
For j = 0 To 20
arrObjects = Rhino.AddCylinder (Array(i,j,0), Array(i,j,2), 0.01)
arrRef(0) = Array(i,j,0)
arrRef(1) = Array(i,j,1)
arrTarg(0) = Array(i,j,0)
arrTarg(1) = Array(0,0,3)
Call Rhino.OrientObject (arrObjects , arrRef, arrTarg)
Next
Next
Dim arrObjects2 , t, s
Dim arrRef2(1), arrTarg2(1)
For t = 0 To 20
For s = 0 To 20
arrObjects2 = Rhino.AddCylinder (Array(t,s,0), Array(t,s,2), 0.01)
arrRef2(0) = Array(t,s,0)
arrRef2(1) = Array(t,s,1)
arrTarg2(0) = Array(t,s,0)
arrTarg2(1) = Array(10,10,3)
Call Rhino.OrientObject (arrObjects2 , arrRef2, arrTarg2)
Next
Next
Dim arrObjects3 , a, b
Dim arrRef3(1), arrTarg3(1)
For a = 0 To 20
For b = 0 To 20
arrObjects3 = Rhino.AddCylinder (Array(a,b,0), Array(a,b,2), 0.01)
arrRef3(0) = Array(a,b,0)
arrRef3(1) = Array(a,b,1)
arrTarg3(0) = Array(a,b,0)
arrTarg3(1) = Array(20,20,3)
Call Rhino.OrientObject (arrObjects3 , arrRef3, arrTarg3)
Next
Next
Dim arrObjects4 , f, u
Dim arrRef4(1), arrTarg4(1)
For f = 0 To 20
For u = 0 To 20
arrObjects4 = Rhino.AddCylinder (Array(f,u,0), Array(f,u,2), 0.01)
arrRef4(0) = Array(f,u,0)
arrRef4(1) = Array(f,u,1)
arrTarg4(0) = Array(f,u,0)
arrTarg4(1) = Array(0,20,3)
Call Rhino.OrientObject (arrObjects4 , arrRef4, arrTarg4)
Next
Next
Dim arrObjects5 , v, d
Dim arrRef5(1), arrTarg5(1)
For v = 0 To 20
For d = 0 To 20
arrObjects5 = Rhino.AddCylinder (Array(v,d,0), Array(v,d,2), 0.01)
arrRef5(0) = Array(v,d,0)
arrRef5(1) = Array(v,d,1)
arrTarg5(0) = Array(v,d,0)
arrTarg5(1) = Array(10,10,3)
Call Rhino.OrientObject (arrObjects5 , arrRef5, arrTarg5)
Next
Next
Dim arrObjects6 , m, e
Dim arrRef6(1), arrTarg6(1)
For m = 0 To 20
For e = 0 To 20
arrObjects6 = Rhino.AddCylinder (Array(m,e,0), Array(m,e,2), 0.01)
arrRef6(0) = Array(m,e,0)
arrRef6(1) = Array(m,e,1)
arrTarg6(0) = Array(m,e,0)
arrTarg6(1) = Array(20,0,3)
Call Rhino.OrientObject (arrObjects6 , arrRef6, arrTarg6)
Next
Next
Dim arrObjects7 , h, r
Dim arrRef7(1), arrTarg7(1)
For h = 0 To 20
For r = 0 To 20
arrObjects7 = Rhino.AddCylinder (Array(h,r,0), Array(h,r,2), 0.01)
arrRef7(0) = Array(h,r,0)
arrRef7(1) = Array(h,r,1)
arrTarg7(0) = Array(h,r,0)
arrTarg7(1) = Array(0,10,3)
Call Rhino.OrientObject (arrObjects7 , arrRef7, arrTarg7)
Next
Next
Dim arrObjects8 , n, o
Dim arrRef8(1), arrTarg8(1)
For n = 0 To 20
For o = 0 To 20
arrObjects8 = Rhino.AddCylinder (Array(n,o,0), Array(n,o,2), 0.01)
arrRef8(0) = Array(n,o,0)
arrRef8(1) = Array(n,o,1)
arrTarg8(0) = Array(n,o,0)
arrTarg8(1) = Array(10,0,3)
Call Rhino.OrientObject (arrObjects8 , arrRef8, arrTarg8)
Next
Next
Dim arrObjects9 , l, y
Dim arrRef9(1), arrTarg9(1)
For l = 0 To 20
For y = 0 To 20
arrObjects9 = Rhino.AddCylinder (Array(l,y,0), Array(l,y,2), 0.01)
arrRef9(0) = Array(l,y,0)
arrRef9(1) = Array(l,y,1)
arrTarg9(0) = Array(l,y,0)
arrTarg9(1) = Array(20,10,3)
Call Rhino.OrientObject (arrObjects9 , arrRef9, arrTarg9)
Next
Next
Dim arrObjects10 , p, q
Dim arrRef10(1), arrTarg10(1)
For p = 0 To 20
For q = 0 To 20
arrObjects10 = Rhino.AddCylinder (Array(p,q,0), Array(p,q,2), 0.01)
arrRef10(0) = Array(p,q,0)
arrRef10(1) = Array(p,q,1)
arrTarg10(0) = Array(p,q,0)
arrTarg10(1) = Array(10,20,3)
Call Rhino.OrientObject (arrObjects10 , arrRef10, arrTarg10)
Next
Next
Rhino.EnableRedraw (True)
End Sub