Rhino script

Dim rect,a,b,c,d

a=Array(0,0,0)
b=Array(3,0,0)
c=Array(3,3,0)
d=Array(0,3,0)
Rect=Array(a,b,c,d)

Rhino.Addpolyline rect
尾段的寫法有點不同
Call Addpolyline(rect)

剛開始學新程式
有點難.......wow

Dim rect,a,b,c,d
Dim x
x=30

a=Array(0,0,0)
b=Array(x,0,0)
c=Array(x,x,0)
d=Array(0,x,0)
Rect=Array(a,b,c,d)

Call Addpolyline(rect)
重新定義心參數X
將原本的數字定義成X

有兩種寫法是一樣的
怎麼寫都是可以的(前提是要搞懂!!!!)

Dim rect,a,b,c,d
Dim x

For x = 10 To 200 Step 20

a=Array(0,0,0)
b=Array(x,0,0)
c=Array(x,x,0)
d=Array(0,x,0)
a=Array(0,0,0)
Rect=Array(a,b,c,d,a)

Call Addpolyline(rect)

Next

終於出現for 了!!!!!!