さて、ここまでくると辞書をひいた結果をスクリプト内で取得したくなります。Dictionary.appはスクリプタブルではないので、System Eventsにお願いしてapplication process "Dictionary"を掘り進んでいったのですが、どこかで迷子になってしまったのか、辞書内容にたどり着けませんでした。残念。
----------
tell application "System Events"
tell application process "Dictionary"
set wordList to value of static text of groups of UI element 1 of scroll area 1 of scroll area 1 of groups of UI element 1 of scroll area 1 of splitter group 1 of window 1
end tell
end tell
set currentDelimiter to AppleScript's text item delimiters
set AppleScript's text item delimiters to {" "}
set wordList to wordList as text
set AppleScript's text item delimiters to currentDelimiter