Option Explicit
 
'This script generates honeycomb strips on a given nurbs surface.
'in: surface, u divisions, v divisions, offset or curvature scale value
'out: polysurfaces and curves on separate layers
'by Andrew Kudless | andrew@materialsystems.org | april, 2005
'Edited by Howard Kim | kimjiho@gmail.com | March, 2008
 
Sub ArrayObjects()
 
	Dim orientObj, arrPoint2
	Dim orientPoint(1)
	Dim targetPoint(1)
	
	Dim sourceSurf, sourceSurf2
	Dim uDiv, vDiv, maxDiv
	Dim uArray, vArray
	Dim i,j, index
	
	'surface 1 variables
	Dim uMax, vMax
	Dim uInc, vInc
	Dim uStart, vStart
	
	'surface 2 variables
	Dim u2Max, v2Max
	Dim u2Inc, v2Inc
	Dim u2Start, v2Start
	
	'surface points variables
	Dim arrParam(1), arr2Param(1), arrPoint
	Dim surface1Points(), surface2Points()
 
	'Rhino.EnableRedraw vbFalse

	orientObj = Rhino.GetObject ("Select the Object to Orient")
	If IsNull(orientObj) Then Exit Sub
	
	orientPoint(0) = Rhino.GetPoint("Select Point 1 to Orient")
	If IsNull(orientPoint(0)) Then Exit Sub
	orientPoint(1) = Rhino.GetPoint("Select Point 2 to Orient")
	If IsNull(orientPoint(1)) Then Exit Sub

	Dim arrObjects, strObject
	arrObjects = Rhino.GetObjects("Pick some curves", 4)

	If IsArray(arrObjects) Then

		For Each strObject In arrObjects

			Rhino.Print "Object identifier: " & strObject
			targetPoint(0) = Rhino.CurveStartPoint(strObject)
			targetPoint(1) = Rhino.CurveEndPoint(strObject)
			
			'targetPoint(0) = Rhino.PointCoordinates(arrPoint)
			'targetPoint(1) = Rhino.PointCoordinates(arrPoint2)
			
			If IsArray(orientPoint) Then
				If IsArray(targetPoint) Then
					Rhino.OrientObject orientObj, orientPoint, targetPoint, 1
				End If
			End If
			
		Next

	End If

	'Rhino.EnableRedraw vbTrue
End Sub
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 






ArrayObjects
Rhino.Print "Array Complete"