Connecting Opposite Points

Option Explicit
'Script written by Savannah Bridge
'Script version Monday, September 29, 2008 10:52:17 PM

Call Main()
Sub Main()

Dim poly1, poly2, arrPoly1Points, arrPoly2Points, i, n

n=6

Rhino.Command "Polygon N=" & n & " w0,0,0 w0,12,0"
poly1 = Rhino.LastCreatedObjects()(0)
Rhino.Command "Polygon N=" & n & " w0,0,25 w0,12,25"
poly2 = Rhino.LastCreatedObjects()(0)

arrPoly1Points = Rhino.PolylineVertices(poly1)
arrPoly2Points = Rhino.PolylineVertices(poly2)

For i = 0 To n-1
Rhino.AddCylinder arrPoly1Points(i), arrPoly2Points((i+(n/2))Mod n), .25

Next

End Sub