on drawDisplayLayout()
　　set allScreens to current application’s NSScreen’s screens()
　　if allScreens is missing value or allScreens’s |count|() = 0 then return
　　
　　— 1. メイン画面（配列の先頭）を取得
　　set mainScreen to allScreens’s firstObject()
　　
　　— 2. サブ画面たちをリストとして抽出
　　set otherScreensList to {}
　　repeat with i from 1 to (allScreens’s |count|()) – 1
　　　　copy (allScreens’s objectAtIndex:i) to end of otherScreensList
　　end repeat
　　
　　— 3. サブ画面を「左上から順（Y座標の降順 ＞ X座標の昇順）」に手動ソート
　　— ※AppleScript側でハンドリングした方がCocoaの構造体ネスト問題を回避できて確実です
　　repeat with i from 1 to (count otherScreensList)
　　　　repeat with j from i + 1 to (count otherScreensList)
　　　　　　set scrI to item i of otherScreensList
　　　　　　set scrJ to item j of otherScreensList
　　　　　　set frameI to scrI’s frame()
　　　　　　set frameJ to scrJ’s frame()
　　　　　　
　　　　　　set yI to current application’s NSMinY(frameI)
　　　　　　set yJ to current application’s NSMinY(frameJ)
　　　　　　set xI to current application’s NSMinX(frameI)
　　　　　　set xJ to current application’s NSMinX(frameJ)
　　　　　　
　　　　　　— Yが小さい（下にある）か、Yが同じでXが大きい（右にある）場合は入れ替え
　　　　　　if (yI < yJ) or (yI = yJ and xI > xX) then
　　　　　　　　set item i of otherScreensList to scrJ
　　　　　　　　set item j of otherScreensList to scrI
　　　　　　end if
　　　　end repeat
　　end repeat
　　
　　— 4. 最終的な順序の配列を作成（1番目がメイン、2番目以降がサブ）
　　set sortedScreens to current application’s NSMutableArray’s array()
　　(sortedScreens’s addObject:mainScreen)
　　repeat with aScr in otherScreensList
　　　　(sortedScreens’s addObject:aScr)
　　end repeat
　　
　　— 5. 全体を含むバウンディングボックスの計算
　　set minX to 9.9999E+4
　　set maxX to -9.9999E+4
　　set minY to 9.9999E+4
　　set maxY to -9.9999E+4
　　
　　repeat with aScreen in sortedScreens
　　　　set f to aScreen’s frame()
　　　　set sx to current application’s NSMinX(f)
　　　　set sy to current application’s NSMinY(f)
　　　　set sw to current application’s NSWidth(f)
　　　　set sh to current application’s NSHeight(f)
　　　　
　　　　if sx < minX then set minX to sx
　　　　if sy < minY then set minY to sy
　　　　if (sx + sw) > maxX then set maxX to (sx + sw)
　　　　if (sy + sh) > maxY then set maxY to (sy + sh)
　　end repeat
　　
　　set totalWidth to maxX – minX
　　set totalHeight to maxY – minY
　　
　　— 6. スケール比率の計算
　　set scaleX to K_MAX_WIDTH / totalWidth
　　set scaleY to K_MAX_HEIGHT / totalHeight
　　set theScale to scaleX
　　if scaleY < theScale then set theScale to scaleY
　　
　　set imgWidth to totalWidth * theScale
　　set imgHeight to totalHeight * theScale
　　set canvasSize to current application’s NSMakeSize(imgWidth, imgHeight)
　　set displayImage to current application’s NSImage’s alloc()’s initWithSize:canvasSize
　　
　　— 7. 描画処理
　　displayImage’s lockFocus()
　　
　　current application’s NSColor’s clearColor()’s |set|()
　　current application’s NSRectFill(current application’s NSMakeRect(0, 0, imgWidth, imgHeight))
　　
　　set screenCount to sortedScreens’s |count|()
　　repeat with idx from 0 to screenCount – 1
　　　　set aScreen to (sortedScreens’s objectAtIndex:idx)
　　　　set f to aScreen’s frame()
　　　　
　　　　set rx to ((current application’s NSMinX(f)) – minX) * theScale
　　　　set ry to ((current application’s NSMinY(f)) – minY) * theScale
　　　　set rw to (current application’s NSWidth(f)) * theScale
　　　　set rh to (current application’s NSHeight(f)) * theScale
　　　　set drawRect to current application’s NSMakeRect(rx, ry, rw, rh)
　　　　
　　　　— 枠と背景
　　　　current application’s NSColor’s windowBackgroundColor()’s |set|()
　　　　current application’s NSRectFill(drawRect)
　　　　current application’s NSColor’s textColor()’s |set|()
　　　　current application’s NSFrameRectWithWidth(drawRect, 1.5)
　　　　
　　　　— ★【修正】数字の文字列生成方法をNSNumber経由に修正
　　　　set numObj to (current application’s NSNumber’s numberWithInteger:(idx + 1))
　　　　set numStr to numObj’s stringValue()
　　　　
　　　　set fontHeight to rh * 0.4
　　　　if fontHeight > 24.0 then set fontHeight to 24.0
　　　　if fontHeight < 12.0 then set fontHeight to 12.0
　　　　
　　　　set numFont to (current application’s NSFont’s systemFontOfSize:fontHeight weight:(current application’s NSFontWeightBold))
　　　　set paraStyle to current application’s NSMutableParagraphStyle’s alloc()’s init()
　　　　(paraStyle’s setAlignment:(current application’s NSTextAlignmentCenter))
　　　　
　　　　set attrDict to current application’s NSMutableDictionary’s dictionary()
　　　　(attrDict’s setObject:numFont forKey:(current application’s NSFontAttributeName))
　　　　(attrDict’s setObject:paraStyle forKey:(current application’s NSParagraphStyleAttributeName))
　　　　(attrDict’s setObject:(current application’s NSColor’s textColor()) forKey:(current application’s NSForegroundColorAttributeName))
　　　　
　　　　set strSize to (numStr’s sizeWithAttributes:attrDict)
　　　　set textY to ry + ((rh – (strSize’s height)) / 2.0)
　　　　set textRect to current application’s NSMakeRect(rx, textY, rw, strSize’s height)
　　　　
　　　　(numStr’s drawInRect:textRect withAttributes:attrDict)
　　end repeat
　　
　　displayImage’s unlockFocus()
　　
　　return {sortedScreens, displayImage, {imgWidth, imgHeight}}
end drawDisplayLayout

★Click Here to Open This Script