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

tell application "Keynote"
　　tell front document
　　　　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 retPairPermutations(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