Option Explicit
Call polygon()
Sub polygon()
Dim object1, object2,arrdiv1, arrdiv2, arrcyl, arrstart(1), arrend(1), t, arrcyls
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
Call Rhino.DeleteObject(arrCyl)
arrcyls = Rhino.GetObjects("Select objects to mirror")
If IsArray(arrcyls) Then
Call Rhino.mirrorobjects(arrcyls, Array (0,0,0), Array (4.5,-2.6,0), True)
End If
End Sub