''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''
''
''  http://ofthiswearesure.com/rhino
''
''  (c) bryan boyer 2007, of this we are sure
''  this script comes with no guarantee and
''  barely any help. be smart, save you work,
''  sleep regularly, tip your waiter, and
''  clean up your own mess.
''
''  cleanboolean runs a boolean union and then
''  cleans up the faces of the resulting shape
''  by using merge all faces. this can be quite
''  useful as a replacement for boolean union.
''  the normal boolean union can always be accessed
''  by typing out the full command.
''
''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''

dim arrObjs, strObject

arrObjs = Rhino.getObjects("Select objects to join and clean",0,vbFalse,vbTrue,vbTrue)

Rhino.command("BooleanUnion")
Rhino.command("selLast")
Rhino.command("MergeallFaces")

arrObjects = Rhino.SelectedObjects
If IsArray(arrObjects) Then
	For Each strObject In arrObjects
		Rhino.SurfaceIsocurveDensity strObject, 0
	Next
 End If