use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

tell application "Keynote"
　　tell front document
　　　　set docHeight to height
　　　　
　　　　tell current slide
　　　　　　set tList to every table
　　　　　　
　　　　　　if length of tList < 2 then return false –複数の「表」がなかったら衝突は発生していない
　　　　　　
　　　　　　–表の座標とサイズによりNSRectangleを作成する
　　　　　　set bList to {}
　　　　　　
　　　　　　repeat with i in tList
　　　　　　　　set j to contents of i
　　　　　　　　
　　　　　　　　tell j
　　　　　　　　　　set {xPos, yPos} to position
　　　　　　　　　　set aWidth to width
　　　　　　　　　　set aHeight to height
　　　　　　　　　　
　　　　　　　　　　set aRect to makeRect(xPos, yPos, aWidth, aHeight) of me
　　　　　　　　end tell
　　　　　　　　
　　　　　　　　set the end of bList to aRect
　　　　　　end repeat
　　　　　　
　　　　　　–作成したNSRectangleの順列組み合わせペア・パターンを作成して、NSRectangle同士の衝突判定を順次行う
　　　　　　set aLen to length of bList
　　　　　　set permuList to retPairPermutationsWithoutSelfCollision(aLen) of me
　　　　　　set corruptList to {}
　　　　　　
　　　　　　repeat with i in permuList
　　　　　　　　copy i to {i1, i2}
　　　　　　　　set rectRes to detectRectanglesCollision(item i1 of bList, item i2 of bList) of me
　　　　　　　　if rectRes = true then return true –表同士の衝突が発生している
　　　　　　end repeat
　　　　　　
　　　　　　return false –表同士の衝突は発生していない
　　　　end tell
　　end tell
end tell

on makeRect(xPos, yPos, aWidth, aHeight)
　　return current application’s NSMakeRect(xPos, yPos, aWidth, aHeight)
end makeRect

–NSRect同士の衝突判定
on detectRectanglesCollision(aRect, bRect)
　　set a1Res to (current application’s NSIntersectionRect(aRect, bRect)) as {record, list}
　　set tmpClass to class of a1Res
　　
　　if tmpClass = record then
　　　　–macOS 10.10, 10.11, 10.12
　　　　return not (a1Res = {origin:{x:0.0, y:0.0}, |size|:{width:0.0, height:0.0}})
　　else if tmpClass = list then
　　　　–macOS 10.13 or later
　　　　return not (a1Res = {{0.0, 0.0}, {0.0, 0.0}})
　　end if
end detectRectanglesCollision

–１から任意の数までのアイテムで、２個ずつの組み合わせのすべての順列組み合わせパターンを計算して返す
–ただし、1×1とか2×2などの同一アイテム同士の掛け合わせを除去するものとする
on retPairPermutationsWithoutSelfCollision(aMax)
　　set aList to {}
　　
　　repeat with x from 1 to aMax
　　　　repeat with xx from 1 to aMax
　　　　　　if x is not equal to xx then
　　　　　　　　
　　　　　　　　set tmpItem to {x, xx}
　　　　　　　　set a2List to sort1DNumList(tmpItem, true) of me
　　　　　　　　
　　　　　　　　if {a2List} is not in aList then
　　　　　　　　　　set the end of aList to a2List
　　　　　　　　end if
　　　　　　end if
　　　　　　
　　　　end repeat
　　end repeat
　　
　　return aList
end retPairPermutationsWithoutSelfCollision