copy all layer names to clipboard

cool! thank you very much

could it be updated to copy to clipboard names of all selected objects, alphabetically

thanks

see if it works. I didn't test it in max

(
	names = for s in selection collect s.name
	qsort names stricmp
	ss = stringstream ""
	for n in names do format "%\n" n to:ss
	SetClipboardText ss
)

Just what I needed. Thanks for the update.
Eva Visnjic

happy new year!
there is two little request if possible:
copy layers in alphabetical order
and add three spaces in the start of each row. like this:
   ENV_buildings
   ENV_curbs
   ENV_furniture

 

big thanks in advance
regards, viktor

macroscript CopyToClipboardLayerList
category:"bga"
tooltip:"TOOLTIP NEEDED"
buttonText:"TEXT NEEDED"
(
fn copyToClipboardLayerList includeZero:off sorting:on =
(
e = if includeZero then 0 else 1
string = ""
if not sorting then
(
for i = e to layermanager.count-1 do string += (" " + (layermanager.getlayer i).name + "\n")
)
else
(
array = sort (for i = e to layermanager.count-1 collect (" " + (layermanager.getlayer i).name))
for str in array do string += (str + "\n")
)
setClipBoardText string
)

-- if argument "includeZero" is ON then Zero layer will be included in the string list or exclude zero layer with OFF (default is off)
copyToClipboardLayerList()
)

thank you very very much!

thank you very much. i tried to make it work as shortcut, didn't work for me. please hint me how to complete it

regards
viktor

This works for me:

macroscript CopyToClipboardLayerList
category:"bga"
tooltip:"TOOLTIP NEEDED"
buttonText:"TEXT NEEDED"
(
	fn copyToClipboardLayerList includeZero:off =
	(
		e = if includeZero then 0 else 1
		string = ""
		for i = e to layermanager.count-1 do string += ((layermanager.getlayer i).name + "\n")
		setClipBoardText string
	)
 
	-- if argument "includeZero" is ON then Zero layer will be included in the string list or exclude zero layer with OFF (default is off)
	copyToClipboardLayerList()
)

This is the FN

fn copyToClipboardLayerList includeZero:off =
(
e = if includeZero then 0 else 1
string = ""
for i = e to layermanager.count-1 do string += ((layermanager.getlayer i).name + "\n")
setClipBoardText string
)

-- if argument "includeZero" is ON then Zero layer will be included in the string list or exclude zero layer with OFF (default is off)
copyToClipboardLayerList()