rhino polygon

Option Explicit
'Script written by Christian Jordan
'Script version Monday, September 29, 2008 11:42:58 AM

Call Polygon()
Sub Polygon()

Dim intSides, strPoint, x

intSides = Rhino.GetInteger("Number of sides", 6, 3, 20)
x = Rhino.GetInteger("point on X-Axis")

strPoint = " w" & x & ",0,0"

Rhino.Command "Polygon N=" & intSides & " w0,0,0" & strPoint

End Sub