🚀 go-pugleaf

Thank you Dave,

now I remember wondering about those commands some time ago.
Just to be sure: in the line 

      		tell aThing to insert label value aLayer key "gslg"




it really needs the "tell aThing", doesn't it?

In case anyone finds this helpful, these two scripts remember the layers of grouped items (1) so that the layers can be restored when ungrouping (2). Several of my customers absolutely need that feature.

 
tell application "Adobe InDesign CS2" 
	set aDoc to active document 
	set aSel to selection 
	set aCount to count aSel 
	if aSel is not {} then 
		set aSel to {} 
		repeat with n from 1 to aCount 
			copy item n of selection to end of aSel 
		end repeat 
	end if

	repeat with n from 1 to (count aSel) 
		set aThing to item n of selection 
		set aLayer to (id of item layer of aThing) as text 
		tell aThing to insert label value aLayer key "gslg" 
		tell aThing to set ha to extract label key "gslg" 
	end repeat

	if aCount > 1 then 
		tell aDoc 
			set myGroup to make group with properties {group items:aSel} 
			select myGroup 
		end tell 
	end if 
end tell 




and



 
tell application "Adobe InDesign CS2" 
	set aDoc to active document 
	set aSel to selection 
	repeat with n from 1 to (count aSel)

		set aThing to item n of aSel 
		if class of aThing is group then 
			set aGroup to every page item in aThing 
			set actLayer to item layer of aThing 
			ungroup aThing 
			repeat with m from (count aGroup) to 1 by -1 
				set anotherThing to item m of aGroup 
				tell anotherThing to set aLayer to (extract label key "gslg") as integer 
				set aLayer to my getLayerByID(aLayer, aDoc, actLayer) 
				set item layer of anotherThing to aLayer 
			end repeat 
		end if 
	end repeat 
end tell

on getLayerByID(n, aDoc, actLayer) 
	tell application "Adobe InDesign CS2" 
		set allLayers to every layer of aDoc 
		repeat with m from 1 to count allLayers 
			set aLayer to item m of allLayers 
			set anID to id of aLayer 
			if anID is n then return aLayer 
		end repeat 
		return actLayer 
	end tell 
end getLayerByID 




Thank you
Gerald