hott messssss

Option Explicit
Call Main()

Sub Main()
Dim poly1, poly2, poly3, arrPoly1Points, arrPoly2Points, arrpoly3points, i, n, r, q

n=60

r=20

q=55

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

Rhino.Command "Polygon R=" & r & " w0,0,25 w0,12,25" poly2 = Rhino.LastCreatedObjects()(0)

Rhino.command "polygon Q=" & q & "w0,0,60 w0,12,50"

poly3 = Rhino.lastcreatedobjects()(0)

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

arrpoly3points = Rhino.polylinevertices(poly3)
Dim arrbasepts, arrtopbasepts, dblradiusdblradius = .125

For i = 0 To q

Rhino.addcylinder arrpoly2points(n), arrpoly3points(i), dblradius

Next

End Sub