(n)certainties – Columbia – Fall 2007

Option Explicit
‘Script written by ben howell (w/Marc Fornes)
‘Script copyrighted by md+x (w/ Marc Fornes)
‘Script version Saturday, October 06, 2007 11:19:09 PM

Call Main()
Sub Main()

Dim arrMeshes : arrMeshes = rhino.getObjects(“pick boat parts”,32)

Dim intLow : intLow = 0
Dim intUp : intUp = 100

Dim arrVerticesNewOrigin()

Dim i
Dim n: n = 0

‘Rhino.EnableRedraw(False)
‘ ===========================
For i = 0 To UBound(arrMeshes)

‘Dim arrCentPt : arrCentPt = Rhino.MeshAreaCentroid(arrMesh)
Dim arrVertices : arrVertices = Rhino.MeshVertices(arrMeshes(i))

If IsArray(arrVertices) Then

If i > 0 Then

Dim arrMovedObject : arrMovedObject = Rhino.MoveObjects (array(arrMeshes(i)), arrVertices(0), array(i,0,0) )
‘Dim arrMovedObject : arrMovedObject = Rhino.MoveObjects (array(arrMeshes(i)), arrVertices(0), arrVerticesNewOrigin(i-1) )
‘Rhino.RotateObject arrMesh, newArrVertices(t), (dblDistance* (rnd()*10))

Dim arrVerticesMoved : arrVerticesMoved = Rhino.MeshVertices(arrMovedObject(0))
If isArray(arrVerticesMoved) Then
ReDim Preserve arrVerticesNewOrigin(i)
arrVerticesNewOrigin(i) = arrVerticesMoved(2)
n = n+1
End If
Else

ReDim Preserve arrVerticesNewOrigin(0)
arrVerticesNewOrigin(0) = arrVertices(0)

End If

End If
Next
‘ ===========================
‘ Rhino.EnableRedraw(True)
End Sub