Option Explicit
Call polygon()
Sub polygon()
Dim object1, object2,arrdiv1, arrdiv2, arrcyl, arrstart(1), arrend(1), t
object1 = Rhino.GetObject("bottom polygon")
object2 = Rhino.GetObject ("top polygon")
arrdiv1 = Rhino.dividecurve(object1, 6, True)
arrdiv2 = Rhino.dividecurve(object2, 6, True)
arrcyl = Rhino.addcylinder(Array(0,0,0), Array (0,0,16.97), 0.3)
For t =0 To UBound(arrdiv1)-3
arrstart(0)=Array(0,0,0)
arrstart(1)=Array(0,0,1)
arrend(0)=arrdiv1(t)
arrend(1)=arrdiv2(t+3)
Call Rhino.OrientObject(arrcyl, arrstart, arrend, True)
Next
For t =0 To UBound(arrdiv2)-3
arrstart(0)=Array(0,0,0)
arrstart(1)=Array(0,0,1)
arrend(0)=arrdiv2(t)
arrend(1)=arrdiv1(t+3)
Call Rhino.OrientObject(arrcyl, arrstart, arrend, True)
Next
Call Rhino.DeleteObject(arrCyl)
End Sub