(n)certainties – Columbia – Fall 2008

Option Explicit
‘Script written by <insert name>
‘Script copyrighted by <insert company name>
‘Script version Wednesday, October 01, 2008 3:42:11 PM

Call Main()
Sub Main()

Dim arrCrvs : arrCrvs = rhino.GetObjects(“pick crvs”)
Dim i,j
Dim xLayer,yLayer
Dim arrpts
Dim arrPlane
Dim arrplaneRef : arrPlaneRef = Rhino.WorldXYPlane
Dim srf, borders, borderCent
Dim newOrigin

Dim counter : counter = -1

Call rhino.EnableRedraw(False)
For i = 0 To Ubound(arrCrvs)
arrpts = Rhino.DivideCurveLength(arrCrvs(i), 0.3)
If isArray(arrpts) Then
For j = 0 To UBound(arrpts)

counter = counter +1
If counter < 6 Then
If counter = 0 Then
xLayer = 0.8
yLayer = 0.8
Else
xLayer = xLayer+0.1
yLayer = yLayer+0.1
End If
Else
xLayer = xLayer-0.1
yLayer = yLayer-0.1
If xLayer = 0.8 Then
counter = 0
End If
End If

newOrigin = Rhino.PointAdd(arrpts(j), array(-xLayer/2,-yLayer/2,0))
arrPlane = rhino.MovePlane(arrplaneRef, newOrigin)
srf = Rhino.AddPlaneSurface (arrplane, xLayer, yLayer)

‘Rhino.SelectObject srf
‘Rhino.Command (“Dupborder”)
‘Rhino.UnselectAllObjects
‘Rhino.DeleteObject srf
Next
End If
Next
Call rhino.EnableRedraw(True)

End Sub