–ライブラリとしてバンドル形式のAppleScript書類に組み込んでいたものをBlog掲載用に展開した
script iWorkObjSort
　　property parent : AppleScript
　　use AppleScript
　　use framework "Foundation"
　　use framework "AppKit"
　　use scripting additions
　　
　　script spd
　　　　property aaSel : {}
　　end script
　　
　　–Keynote上のiWork ObjをXY座標でソートして結果を返す（App Obj情報はitem noだけ）
　　on sortIWorkObjectsByPosition(aaSel, sortLabelLIst, sortDirectionList)
　　　　tell application "Keynote"
　　　　　　set aVer to version
　　　　　　if aVer < "12.0" then return
　　　　　　
　　　　　　tell front document
　　　　　　　　set posList to {}
　　　　　　　　set aCount to 1
　　　　　　　　
　　　　　　　　repeat with ii in aaSel
　　　　　　　　　　set jj to contents of ii
　　　　　　　　　　set bClass to class of jj
　　　　　　　　　　
　　　　　　　　　　tell jj
　　　　　　　　　　　　set {posX, posY} to position
　　　　　　　　　　　　
　　　　　　　　　　　　try
　　　　　　　　　　　　　　set tmpStr to object text as string
　　　　　　　　　　　　on error
　　　　　　　　　　　　　　set tmpStr to ""
　　　　　　　　　　　　end try
　　　　　　　　　　end tell
　　　　　　　　　　
　　　　　　　　　　set the end of posList to {positionX:posX, positionY:posY, objID:aCount, myStr:tmpStr}
　　　　　　　　　　
　　　　　　　　　　set aCount to aCount + 1
　　　　　　　　end repeat
　　　　　　　　
　　　　　　　　–座標データをもとにソート
　　　　　　　　set sortedList to sortRecListByLabel(posList, sortLabelLIst, sortDirectionList) of me
　　　　　　　　
　　　　　　end tell
　　　　end tell
　　　　
　　　　return sortedList
　　end sortIWorkObjectsByPosition
　　
　　
　　–Keynote上のiWork ObjをXY座標でソートして結果を返す（App Objだけ返す）
　　on sortIWorkObjectsByPositionIncludingObjRef(aaSel, sortLabelLIst, sortDirectionList)
　　　　tell application "Keynote"
　　　　　　set aVer to version
　　　　　　if aVer < "12.0" then return
　　　　　　
　　　　　　tell front document
　　　　　　　　set posList to {}
　　　　　　　　set aCount to 1
　　　　　　　　
　　　　　　　　repeat with ii in aaSel
　　　　　　　　　　set jj to contents of ii
　　　　　　　　　　set bClass to class of jj
　　　　　　　　　　
　　　　　　　　　　tell jj
　　　　　　　　　　　　set {posX, posY} to position
　　　　　　　　　　　　
　　　　　　　　　　　　try
　　　　　　　　　　　　　　set tmpStr to object text as string
　　　　　　　　　　　　on error
　　　　　　　　　　　　　　set tmpStr to ""
　　　　　　　　　　　　end try
　　　　　　　　　　end tell
　　　　　　　　　　
　　　　　　　　　　set the end of posList to {positionX:posX, positionY:posY, objID:aCount, myStr:tmpStr}
　　　　　　　　　　
　　　　　　　　　　set aCount to aCount + 1
　　　　　　　　end repeat
　　　　　　　　
　　　　　　　　–座標データをもとにソート
　　　　　　　　set sortedList to sortRecListByLabel(posList, sortLabelLIst, sortDirectionList) of me
　　　　　　　　
　　　　　　　　–データを返す配列にiWork Object への参照を含める
　　　　　　　　set sCount to 1
　　　　　　　　repeat with i from 1 to (length of aaSel)
　　　　　　　　　　set tmpID to objID of contents of item i of sortedList
　　　　　　　　　　set tmpObj to contents of item tmpID of aaSel
　　　　　　　　　　set (item tmpID of sortedList) to (item tmpID of sortedList) & {objRef:tmpObj}
　　　　　　　　end repeat
　　　　　　end tell
　　　　end tell
　　　　
　　　　return sortedList
　　end sortIWorkObjectsByPositionIncludingObjRef
　　
　　
　　–Keynote上のiWork ObjをXY座標でソートして結果を返す（App Obj入りのリストを返す）
　　on sortIWorkObjectsByPositionAndRetObjRef(aaSel, sortLabelLIst, sortDirectionList)
　　　　tell application "Keynote"
　　　　　　set aVer to version
　　　　　　if aVer < "12.0" then return
　　　　　　
　　　　　　tell front document
　　　　　　　　set posList to {}
　　　　　　　　set aCount to 1
　　　　　　　　
　　　　　　　　repeat with ii in aaSel
　　　　　　　　　　set jj to contents of ii
　　　　　　　　　　set bClass to class of jj
　　　　　　　　　　
　　　　　　　　　　tell jj
　　　　　　　　　　　　set {posX, posY} to position
　　　　　　　　　　　　
　　　　　　　　　　　　try
　　　　　　　　　　　　　　set tmpStr to object text as string
　　　　　　　　　　　　on error
　　　　　　　　　　　　　　set tmpStr to ""
　　　　　　　　　　　　end try
　　　　　　　　　　end tell
　　　　　　　　　　
　　　　　　　　　　set the end of posList to {positionX:posX, positionY:posY, objID:aCount, myStr:tmpStr}
　　　　　　　　　　
　　　　　　　　　　set aCount to aCount + 1
　　　　　　　　end repeat
　　　　　　　　
　　　　　　　　–座標データをもとにソート
　　　　　　　　set sortedList to sortRecListByLabel(posList, sortLabelLIst, sortDirectionList) of me
　　　　　　　　
　　　　　　　　–データを返す配列にiWork Object への参照を含める
　　　　　　　　set sCount to 1
　　　　　　　　set retList to {}
　　　　　　　　repeat with i from 1 to (length of aaSel)
　　　　　　　　　　set tmpID to objID of contents of item i of sortedList
　　　　　　　　　　set tmpObj to contents of item tmpID of aaSel
　　　　　　　　　　set the end of retList to tmpObj
　　　　　　　　end repeat
　　　　　　end tell
　　　　end tell
　　　　
　　　　return retList
　　end sortIWorkObjectsByPositionAndRetObjRef
　　
　　
　　–リストに入れたレコードを、指定の属性ラベルの値でソート
　　on sortRecListByLabel(aRecList as list, aLabelStr as list, ascendF as list)
　　　　set aArray to current application’s NSArray’s arrayWithArray:aRecList
　　　　
　　　　set aCount to length of aLabelStr
　　　　set sortDescArray to current application’s NSMutableArray’s new()
　　　　repeat with i from 1 to aCount
　　　　　　set aLabel to (item i of aLabelStr)
　　　　　　set aKey to (item i of ascendF)
　　　　　　set sortDesc to (current application’s NSSortDescriptor’s alloc()’s initWithKey:aLabel ascending:aKey)
　　　　　　(sortDescArray’s addObject:sortDesc)
　　　　end repeat
　　　　
　　　　return (aArray’s sortedArrayUsingDescriptors:sortDescArray) as list
　　end sortRecListByLabel
　　
end script

★Click Here to Open This Script