Rhino Script Excise02

利用迴圈作圖

Option Explicit
'Script written by
'Script copyrighted by
'Script version 2008年10月19日 下午 10:35:27

Call TwistAndShout()
Sub TwistAndShout()
Dim z, a
Dim pi, dblTwistAngle
pi = Rhino.Pi()
dblTwistAngle = 0.0

Call Rhino.EnableRedraw(False)
For z = 0.0 To 5.0 Step 0.5
dblTwistAngle = dblTwistAngle + (pi/30)

For a = 0.0 To 2*pi Step (pi/15)
Dim x, y
x = 5 * Sin(a + dblTwistAngle)
y = 5 * Cos(a + dblTwistAngle)
Call Rhino.AddSphere(Array(x,y,z), 0.5)
Next
Next
Call Rhino.EnableRedraw(True)
End Sub