-------------------------------------------------------------------------------
-- PointParent - brutal edition.ms
-- By Sergo Pogosyan (sergo.pogosyan@gmail.com)
-- v 1.0
-- Created: 2007-09-06
-- tested using Max 8.0
-------------------------------------------------------------------------------
-- Description: 
-- This tool helps you create point helper object which will be parent of all selected object.
-- !!!!!Existing hierarchies and groups will be destroyed!!!!!
-------------------------------------------------------------------------------
-- Usage:
-- Select objects then click tool button on the toolbar and create point object as usual.
-- Previosly selected objects will be parented to the new point objects.
-- You could also define a shorcut to the script instead of tool button
-------------------------------------------------------------------------------
-- TO DO list:
-- check hierarchy preservation.
-- if nothing is selected create standard point helper.
-- after creating show window to give point a name. With default "Point##" name in it.
-------------------------------------------------------------------------------
-- history
--
macroScript ParentPointBrutal
	category:"Sergo Pogosyan"
	toolTip:"Brutal edition - Create point that will be parent of previously selected objects"
	buttonText:"Parent Point Brutal edition"
	Icon:#("sergoIcons",15)
	
(
	if selection.count != 0 then
	(
		selectedObjects = selection as array
		
		undo "ParentPoint" on
		(		
			parentPointArr = startObjectCreation point returnNewNodes:#first
			parentPointObj = parentPointArr[1]
			
			for i=1 to selectedObjects.count do
				selectedObjects[i].parent = parentPointObj
		)
	)
	else (MessageBox "Please Select at least one object." title:"ParentPoint")
)