🚀 go-pugleaf

Hi Gerald,

interesting script. May I borrow the idea for a plugin?
Below a copy that takes advantage of a few more AppleScript features ...

Dirk

tell application "Adobe InDesign CS2"
	set aDoc to active document
	set aSel to selection

	repeat with aThing in aSel
		set aLayer to (id of item layer of aThing) as text
		insert label aThing value aLayer key "gslg"
	end repeat

	if length of aSel > 1 then
		tell aDoc
			make group with properties {group items:aSel}
			select the result
		end tell
	end if
end tell

tell application "Adobe InDesign CS2"
	set aDoc to active document
	set aSel to selection
	repeat with aThing in aSel
		if class of aThing is group then
			set aPageItems to every page item in aThing
			ungroup aThing
			repeat with aPageItem in aPageItems
				set aLayerID to (extract label aPageItem key "gslg") as integer
				if exists layer id aLayerID of aDoc then
					set item layer of aPageItem to layer id aLayerID of aDoc
				end if
			end repeat
			select aPageItems
		end if
	end repeat
end tell