Scripts

Make unique object names

macroScript make_names_unique
category:"MaxPack"
buttonText:"Unique names"
toolTip:"Make unique object names"
(	
	objs = #()
	count = 0
	
	if selection.count == 0 then
	(
		objs = objects
	)
	else
	(
		objs = selection
	)
	
	for obj in objs do
	(		
		if ((getNodeByName obj.name exact:true ignoreCase:false all:true).count)!=1 then
		(
			obj.name = uniqueName obj.name
			count += 1			
		)
	)
	
	messageBox (count as string +" object names made unique.") title:"Unique names"
)