Army HQ Pavilion-4ofseven

From scripting
Jump to: navigation, search

Direct: http://fourof7.blogspot.com/2009/01/0809-mc-collateral-spaces-army-hq.html

Option Explicit
'-------------------------------------------------------------------------------
' Subroutine: Army HQ Pavilion
' Purpose: honeycomb study
' Author: Milutin Cerovic 2009
' www.4ofseven.com
'--------------------------------------------------------------------------------
Call Main() 
Sub Main()  
Dim arrIsoCurves
Dim arrPoints
Dim DivNumber
Dim i,j
arrIsoCurves=Rhino.GetObjects ("Select Isocurves, in order one by one")
ReDim arrPoints(UBound(arrIsoCurves))
DivNumber = Rhino.GetReal ("enter divide number") 
For i=0 To UBound(arrIsoCurves)
arrPoints(i)=Rhino.DivideCurve(arrIsoCurves(i),DivNumber,True)
Next
For i=0 To (UBound(arrIsoCurves)-1)Step 2
For j=0 To (DivNumber-2)
If j Mod 2 <> 0 Then
Rhino.addLine arrPoints(i)(j),arrPoints(i+1)(j+2)
Rhino.addLine arrPoints(i)(j),arrPoints(i+1)(j)
Rhino.addLine arrPoints(i+1)(j),arrPoints(i+2)(j)
End If
Next
Next
End Sub