Scripts

Print selection

-- Author: Ben Bryan
-- Date: 06/02/12
-- Email: ben@benbryan.net
-- Web: http://www.benbryan.net/

macroScript print_selection
category:"MaxPack"
buttonText:"print selection"
toolTip:"print selection into MaxScript array"
(
	str = "#(\n"

	for i = 1 to selection.count do
	(
		obj = selection[i]

		if i != selection.count then
		(
			str += "$'"+obj.name+"',\n"
		)
		else
		(
			str += "$'"+obj.name+"'\n"
		)
	)

	str += ")"

	w = newScript()

	format "%\n" str to:w
	
)