''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''
''
''  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.
''
''  parkour lets you jump around the model.
''  combine with ZS on the middle mouse button
''  for a jump-and-re-focus extravaganza
''
''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''


Dim arrPoint, strObject, strView, arrBounds

arrPoint = Rhino.GetPoint("Where do you want to jump to?")

If IsArray(arrPoint) Then

	Rhino.AddPoint arrPoint
			
	strObject = Rhino.FirstObject
	
	If strObject <> vbNull Then
		Rhino.ZoomBoundingBox Rhino.BoundingBox(strObject)
		Rhino.DeleteObject strObject

	End If


End If