–「YxX」の形式の文字列を、{Y,X}のように数字のリストにして返す
on divideYxX(aStr)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to “x”
　　set tList to every text item of aStr
　　set AppleScript’s text item delimiters to curDelim
　　
　　copy tList to {item1, item2}
　　try
　　　　set item1 to item1 as integer
　　　　set item2 to item2 as integer
　　on error
　　　　return false
　　end try
　　
　　return {item1, item2}
　　
end divideYxX

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–Numbersの選択範囲からデータを取得する（Excel-Like Nested List Format）
set aList to retExcelLikeStyleDataFromNumbersSelection() of me

set heightOfList to length of aList –データの高さ（行数）を取得
set widthOfList to length of first item of aList –データの幅（列数）を取得

–Omni Graffleの選択オブジェクト情報を取得
tell application "OmniGraffle 5"
　　tell front window
　　　　set aSel to selection
　　　　set aaSel to first item of aSel
　　　　
　　　　set {xSize, ySize} to size of aaSel
　　　　set {xOrigPos, yOrigPos} to origin of aaSel
　　　　
　　　　delete aaSel –位置指定用のオブジェクトを削除
　　　　
　　end tell
end tell

–表のセルの大きさを計算する
set xStep to xSize / widthOfList
set yStep to ySize / heightOfList

–テーブル用のオブジェクトリスト
set tObjList to {}

tell application "OmniGraffle 5"
　　tell canvas of front window
　　　　
　　　　repeat with y from 1 to heightOfList
　　　　　　repeat with x from 1 to widthOfList
　　　　　　　　
　　　　　　　　set aText to contents of item x of item y of aList
　　　　　　　　
　　　　　　　　–Numbersの表の空きセルからデータを取ったときに数値の0.0が返る現象への対策
　　　　　　　　if aText = 0.0 then
　　　　　　　　　　set aText to ""
　　　　　　　　end if
　　　　　　　　
　　　　　　　　set tmpXpos to xOrigPos + ((x - 1) * xStep)
　　　　　　　　set tmpYpos to yOrigPos + ((y - 1) * yStep)
　　　　　　　　
　　　　　　　　–セルを作成する
　　　　　　　　if y = 1 then
　　　　　　　　　　–ヘッダー行の場合にはセル内を指定色で塗る
　　　　　　　　　　set aCellObj to make new shape at end of graphics with properties {fill:solid fill, fill color:headerFillCol, draws shadow:false, size:{xStep, yStep}, side padding:cellYohakuPoint, thickness:0.25, autosizing:vertically only, vertical padding:cellYohakuPoint, origin:{tmpXpos, tmpYpos}, text:{text:aText, font:textFontName, size:textPointSize}}
　　　　　　　　　　
　　　　　　　　else
　　　　　　　　　　–通常行はセル内を塗りつぶさない
　　　　　　　　　　set aCellObj to make new shape at end of graphics with properties {fill:no fill, draws shadow:false, size:{xStep, yStep}, side padding:cellYohakuPoint, thickness:0.25, autosizing:vertically only, vertical padding:cellYohakuPoint, origin:{tmpXpos, tmpYpos}, text:{text:aText, font:textFontName, size:textPointSize}}
　　　　　　　　　　
　　　　　　　　end if
　　　　　　　　
　　　　　　　　set the end of tObjList to aCellObj
　　　　　　　　
　　　　　　end repeat
　　　　end repeat
　　　　
　　　　–セルを表に合成する
　　　　assemble tObjList table shape {heightOfList, widthOfList}
　　　　
　　end tell
end tell

–Numbersで選択範囲を縦に区切ったリストを返す
on retExcelLikeStyleDataFromNumbersSelection()
　　
　　tell application "Numbers"
　　　　tell document 1
　　　　　　tell sheet 1
　　　　　　　　tell table 1
　　　　　　　　　　set selList to value of every cell of selection range –選択範囲のデータを取得
　　　　　　　　　　
　　　　　　　　　　set selName to name of selection range –選択範囲のrange情報を取得
　　　　　　　　　　set {s1, s2} to parseByDelim(selName, ":") of me
　　　　　　　　　　
　　　　　　　　　　–始点の情報を取得する
　　　　　　　　　　set s1Row to (address of row of range s1) as integer
　　　　　　　　　　set s1Column to (address of column of range s1) as integer
　　　　　　　　　　
　　　　　　　　　　–終点の情報を取得する
　　　　　　　　　　set s2Row to (address of row of range s2) as integer
　　　　　　　　　　set s2Column to (address of column of range s2) as integer
　　　　　　　　　　
　　　　　　　　　　–選択範囲の情報を取得する
　　　　　　　　　　set selHeight to s2Row - s1Row + 1 –高さ(Height of selection range)
　　　　　　　　　　set selWidth to s2Column - s1Column + 1 –幅(Width of selection range)
　　　　　　　　　　
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　end tell
　　
　　set aLen to length of selList
　　set aaLen to selHeight
　　
　　set bList to {}
　　repeat with i from 1 to aaLen
　　　　set aHoriList to {}
　　　　
　　　　repeat with ii from 1 to selWidth
　　　　　　set j1 to ii + (i - 1) * selWidth
　　　　　　set tmpCon to contents of item j1 of selList
　　　　　　
　　　　　　set aClass to class of tmpCon
　　　　　　if aClass = number or aClass = integer or aClass = real then
　　　　　　　　set tmpCon to tmpCon as integer
　　　　　　end if
　　　　　　
　　　　　　set the end of aHoriList to tmpCon
　　　　end repeat
　　　　
　　　　set the end of bList to aHoriList
　　end repeat
　　
　　return bList
　　
end retExcelLikeStyleDataFromNumbersSelection

on parseByDelim(aData, aDelim)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set dList to text items of aData
　　set AppleScript’s text item delimiters to curDelim
　　return dList
end parseByDelim

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–指定ドキュメントの指定Canvas上のグラフィックがグループ化されていないか（１つになっていないか）チェックして返す
on checkAGroupInCanvas(aCanvasName, curDoc)
　　tell application "OmniGraffle 5"
　　　　tell canvas aCanvasName of curDoc
　　　　　　set gList to every graphic
　　　　　　
　　　　　　set gLen to length of gList
　　　　　　
　　　　　　if gLen > 1 then
　　　　　　　　return false
　　　　　　else if gLen = 1 then
　　　　　　　　return true
　　　　　　end if
　　　　　　
　　　　end tell
　　end tell
end checkAGroupInCanvas

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

tell application "OmniGraffle 5"
　　
　　–選択中のテキストボックスの情報を取得
　　tell front window
　　　　–選択中のオブジェクトを取得
　　　　set aSel to selection
　　　　if aSel = {} then return
　　　　set aaSel to first item of aSel
　　　　
　　　　–選択中のオブジェクトの各種情報を取得する
　　　　set aText to text of aaSel
　　　　set {xSize, ySize} to size of aaSel –結果はPointで返る
　　　　set {xPos, yPos} to origin of aaSel –結果はPointで返る
　　　　
　　　　set aFontName to font of text of aaSel
　　　　set aFontSize to size of text of aaSel
　　　　
　　　　set aText to text of aaSel
　　　　
　　　　delete aaSel –選択しておいたテキストボックスを削除する
　　　　
　　end tell
　　
　　–Canvasの大きさを取得（目下、とくに意味なし）　　
　　tell canvas of front window
　　　　set {xCanvasSize, yCanvasSize} to page size –結果はPointで返る
　　　　–> {1155.0, 783.0}
　　end tell
　　
　　
　　set aList to paragraphs of aText
　　set paraCount to length of aList
　　
　　
　　–書類および各Canvasの情報を取得する
　　set targDoc to document of front window
　　set canvasList to every canvas of targDoc
　　
　　–行単位の部品のサイズを計算する
　　set aXsize to xSize
　　set aYsize to ySize / paraCount
　　
　　–行単位でループ
　　set aCount to 0
　　repeat with i in aList
　　　　set j to contents of i
　　　　
　　　　if length of j > 1 then –改行のみの行をスキップ（手作業をしていると先頭とか終末に不意に入ってしまうことがある。それを無視する処理）
　　　　　　
　　　　　　–テキスト各行の冒頭に数字でページ数が振ってあるものと想定
　　　　　　set pNum to first word of j
　　　　　　set linkTargCanvas to contents of item (pNum as number) of canvasList
　　　　　　
　　　　　　–座標計算
　　　　　　set tmpX to xPos
　　　　　　set tmpY to yPos + (aYsize * aCount)
　　　　　　
　　　　　　–テキストボックス（自称）を作成（OmniGraffleにそんなオブジェクトはない。みんな図形）
　　　　　　tell canvas of front window
　　　　　　　　set aShape to make new shape at end of graphics with properties {stroke color:{0.0, 0.0, 0.0}, thickness:0, fill:no fill, draws shadow:false, origin:{tmpX, tmpY}, size:{aXsize, aYsize}, text:{text:j, font:aFontName, size:aFontSize, alignment:left}}
　　　　　　　　
　　　　　　　　–jumpは、shapeを作成したあとで指定する必要があった（作成時にpropertyで一緒に突っ込むと無視された）
　　　　　　　　set (jump of aShape) to linkTargCanvas
　　　　　　end tell
　　　　　　
　　　　end if
　　　　
　　　　set aCount to aCount + 1
　　　　
　　end repeat
　　
end tell

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–OmniGraffleでオープン中のドキュメントが存在するかを確認
tell application “OmniGraffle 5″
　　set wCount to count every window –本来ならdocumentオブジェクト経由で確認したいところだが、OmniGraffleのdocumentの仕様がおかしい
　　if wCount = 0 then
　　　　display dialog “ドキュメントがオープンされていません” buttons {“OK”} default button 1 with icon 1
　　　　return
　　end if
end tell

–OmniGraffleの各最前面のドキュメントの各Stencilのタイトル（URLが”title”になっているもののtext）を取得する
set aList to retIndexDataFromFrontDocument() of me

–各タイトルにすでに「（1/2）」のようなナンバリングが行われていたらナンバリング部分を削除する
set newList to {}

repeat with i in aList
　　set j to contents of i
　　
　　set aPos to offset of separatorC in j
　　if aPos is not equal to 0 then
　　　　set j to text 1 thru (aPos - 1) of j
　　end if
　　
　　set the end of newList to j
end repeat

–目次を作成する
set sPage to 3 –ページ数カウンタ
set curItem to second item of newList
set newList2 to items 3 thru -1 of newList

set outList to {{2, curItem}} –出力用データ

repeat with i in newList2
　　set j to contents of i
　　
　　if j = curItem then
　　　　–何もしない
　　else
　　　　set curItem to j
　　　　set the end of outList to {sPage, j}
　　end if
　　
　　set sPage to sPage + 1
　　
end repeat

set aText to retItemDelimedAndParagraphDelimedText(outList, tab, return) of me
set the clipboard to aText

–最前面のドキュメントからインデックス用データを取得する
on retIndexDataFromFrontDocument()
　　
　　tell application “OmniGraffle 5″
　　　　tell front document
　　　　　　set cList to every canvas
　　　　　　
　　　　　　set pCount to 1
　　　　　　set pList to {}
　　　　　　
　　　　　　repeat with i in cList
　　　　　　　　set j to contents of i
　　　　　　　　
　　　　　　　　tell j
　　　　　　　　　　set gList to (every graphic whose url is “title”)
　　　　　　　　　　
　　　　　　　　　　if gList is not equal to {} then
　　　　　　　　　　　　set aGraphic to contents of first item of gList
　　　　　　　　　　　　set aText to text of aGraphic
　　　　　　　　　　end if
　　　　　　　　end tell
　　　　　　　　
　　　　　　　　–set the end of pList to {pCount, aText}
　　　　　　　　set the end of pList to aText
　　　　　　　　
　　　　　　　　set pCount to pCount + 1
　　　　　　　　
　　　　　　end repeat
　　　　end tell
　　end tell
　　
　　return pList
　　
end retIndexDataFromFrontDocument

–入れ子のリストを、アイテム間のデリミタとパラグラフ間のデリミタを指定してテキスト化
–というか、入れ子のリストをタブ区切りテキストにするのが目的
on retItemDelimedAndParagraphDelimedText(aList, itemDelim, paragraphDelim)
　　set aText to “”
　　
　　repeat with i in aList
　　　　set aStr to retDelimedText(i, itemDelim) of me
　　　　set aText to aText & aStr & paragraphDelim
　　end repeat
　　
　　return aText
end retItemDelimedAndParagraphDelimedText

on retDelimedText(aList, aDelim)
　　set aText to “”
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set aText to aList as text
　　set AppleScript’s text item delimiters to curDelim
　　return aText
end retDelimedText

–OmniGraffleですべてのWindowを表示状態に
on exposeEveryWindow()
　　tell application “OmniGraffle 5″
　　　　tell (every window whose miniaturized is true)
　　　　　　set miniaturized to false
　　　　end tell
　　end tell
end exposeEveryWindow

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–仕様書の、現在表示中のページ（Canvas）のみ処理を行うバージョン

–仕様書上に存在しているURLつきのStensilの一覧をもとに、画面設計図の書類中にCnavasが存在するかをチェックし、すべてOKなら画面設計図の内容を個別にPNG書き出しして仕様書にImportし直す（仕様書中の画面キャプチャを自動更新する）

property ignoreList : {“title”} –無視するURLの一覧　（画面キャプチャではなく、タイトルなどURLで別途識別したいものを書いておく）

–すべてのWindowを強制的に表示状態にする（最小化を解除）
exposeEveryWindow() of me

set aDocNameStrOrig to “仕様書”
set targDoc to retADocWhichContainsStr(aDocNameStrOrig) of me
–set targDoc to “機能定義書v4.graffle” –仕様書のファイル名

set aDocNameStrOrig to “画面設計”
set aDocNameStr to retADocWhichContainsStr(aDocNameStrOrig) of me
–set aDocNameStr to “画面設計図.graffle” –個別の画面を作成して、入れておくファイル名

–仕様書/機能定義書の中で使用している画面図（URL覧で識別）をリストアップし、登場ページ、該当オブジェクト、識別子（URL）を抽出する
set gRes to getCanvasNoAndURLFromEachSolidOnlyFromCurrentCanvas(targDoc) of me

–抽出したデータからURLのみ再抽出（重複部分は拾わない）
set urlList to {}
repeat with i in gRes
　　set aURL to contents of last item of i –リストからURLを取り出す
　　if aURL is not in urlList and aURL is not in ignoreList then
　　　　set the end of urlList to aURL –URLの一覧チェックを行うのと同時にユニーク化も行ってしまう
　　end if
end repeat

–画面設計図側に、指定の画面（URLで識別）が存在するかチェックする（Canvas名で存在確認を行う）
set aRes to getExistenceOfEachCanvasName(urlList, aDocNameStr) of me
–> {true, true, true}–ここでfalseになっているURL（Canvas Name）は、仕様書にそのURLが存在するが、画面設計書にはそのCanvas Nameが存在しないもの

–仕様書/機能定義書と画面設計書の間の不整合のチェック
set bRes to retFalseItemNoFromList(aRes) of me
if bRes is not equal to {} then
　　–もう少し丁寧にエラーレポートしてもいいかも
　　set aText to listToText(bRes) of me
　　display dialog “仕様書/機能定義書に存在しているのに、画面設計書に存在していない画面があります” & return & aText buttons {“OK”} default button 1
　　return gRes
end if

–urlList（ユニーク化ずみ）をもとに、指定フォルダに各画面をグラフィック書き出ししておく
set outFol to choose folder with prompt “書き出し先のフォルダを指定”
deleteInsideFolder(outFol) of me

set outFolStr to POSIX path of outFol
saveEachCanvasOnSpecifiedDocument(aDocNameStr, urlList, outFolStr) of me

–書き出しておいたPNG書類をインポートし、仕様書上のそれぞれの画面図を自動更新する
tell application “OmniGraffle 5″
　　repeat with i in gRes
　　　　set {repTargObj, targURL} to i
　　　　
　　　　if targURL is not in ignoreList then
　　　　　　
　　　　　　
　　　　　　–表示中のCanvasの取得
　　　　　　set aWin to retAWindowByDocumentName(targDoc) of me
　　　　　　set targCanvas to canvas of aWin
　　　　　　
　　　　　　–書き出し対象のGroupの特定と選択
　　　　　　tell aWin
　　　　　　　　set selection to {repTargObj}
　　　　　　end tell
　　　　　　
　　　　　　–書き出しておいた画像ファイルのパスを取得
　　　　　　set target_file to (outFol as string) & targURL & “.png” –ここ、Mac OS 形式のFile Pathが必要（OmniGroupのフォーラムに上がっていたScript側の仕様による）
　　　　　　
　　　　　　set originShape to makeShape(targCanvas, target_file) of omniGroupScriptLib of me
　　　　　　set aImage to image of originShape
　　　　　　
　　　　　　tell aWin
　　　　　　　　set image of repTargObj to aImage –グラフィックデータ部分（image属性）を差し替え
　　　　　　end tell
　　　　　　
　　　　　　delete originShape –一時的に作成したshapeを削除（imageを取り出したので用済み）
　　　　　　
　　　　　　–選択状態を解除する
　　　　　　tell aWin
　　　　　　　　set selection to {}
　　　　　　end tell
　　　　　　
　　　　end if
　　　　
　　end repeat
　　
end tell

———–以下、サブルーチン

–与えられたリスト中のfalseの項目番号をリストで返す
on retFalseItemNoFromList(aList)
　　set aCount to 1
　　set eResList to {}
　　
　　repeat with i in aList
　　　　set j to contents of i
　　　　
　　　　if j is not equal to true then
　　　　　　set the end of eResList to aCount
　　　　end if
　　　　
　　　　set aCount to aCount + 1
　　end repeat
　　
　　return eResList
end retFalseItemNoFromList

–指定名称のOmniGraffle書類中に、urlListで示した名称のCanvasが存在するかを取得する v2
on getExistenceOfEachCanvasName(urlList, aDocNameStr)
　　set eList to {}
　　
　　tell application “OmniGraffle 5″
　　　　tell document aDocNameStr
　　　　　　set cList to name of every canvas –最初にCanvas名称リストを一気に取得してアプリケーションとの通信頻度を下げる
　　　　end tell
　　end tell
　　
　　set the end of cList to “title” –titleだけ画面設計図に存在していなくてもOK
　　
　　
　　–以下、ただのリスト内の存在確認演算（速い）
　　repeat with i in urlList
　　　　set aURL to contents of i
　　　　set aExist to (aURL is in cList)
　　　　
　　　　set the end of eList to aExist
　　end repeat
　　
　　return eList
　　
end getExistenceOfEachCanvasName

–指定名称の書類から、URLつきの画像（Solid）の情報を集める
on getCanvasNoAndURLFromEachSolid(aDocNameStr)
　　tell application “OmniGraffle 5″
　　　　tell document aDocNameStr
　　　　　　set cCount to count every canvas
　　　　　　
　　　　　　set urlList to {}
　　　　　　
　　　　　　repeat with i from 1 to cCount by 1
　　　　　　　　tell canvas i
　　　　　　　　　　set s1List to {}
　　　　　　　　　　set sList to every solid
　　　　　　　　　　
　　　　　　　　　　repeat with ii in sList
　　　　　　　　　　　　
　　　　　　　　　　　　set jj to contents of ii
　　　　　　　　　　　　set uDat to url of jj
　　　　　　　　　　　　
　　　　　　　　　　　　try
　　　　　　　　　　　　　　
　　　　　　　　　　　　　　if uDat is not equal to missing value then
　　　　　　　　　　　　　　　　set s1List to {i, jj, uDat}
　　　　　　　　　　　　　　　　set the end of urlList to s1List
　　　　　　　　　　　　　　end if
　　　　　　　　　　　　　　
　　　　　　　　　　　　end try
　　　　　　　　　　　　
　　　　　　　　　　end repeat
　　　　　　　　　　
　　　　　　　　end tell
　　　　　　end repeat
　　　　　　
　　　　end tell
　　　　
　　　　return urlList
　　　　
　　end tell
　　
end getCanvasNoAndURLFromEachSolid

–指定ドキュメント名称を持つWindowを返す
on retAWindowByDocumentName(aDoc)
　　set wResList to {}
　　
　　tell application “OmniGraffle 5″
　　　　–可視状態で指定名称のドキュメントのウィンドウを返す（AppleScript特有のフィルタ参照処理）
　　　　set wList to every window whose visible is true and name of document of it is equal to aDoc
　　　　set wLen to length of wList
　　　　
　　　　if wLen = 1 then
　　　　　　–取得されたWindow数が１の場合　（通常処理）
　　　　　　return contents of first item of wList
　　　　　　
　　　　else if wLen > 1 then
　　　　　　–取得されたWindow数が１以上の場合　（リカバリできなくもないエラー処理）　　
　　　　　　return contents of first item of wList
　　　　　　
　　　　else
　　　　　　–完全にエラー
　　　　　　return false
　　　　　　
　　　　end if
　　　　
　　end tell
end retAWindowByDocumentName

–指定画像ファイルを現在のドキュメントにインポートする
–Omni Groupの配布しているScriptから、関係ないルーチンとプロパティを削除してほぼそのまま使用
script omniGroupScriptLib
　　– make the shape - I can’t get the import construct to work - so I make a shape and set its fill with the image.
　　on makeShape(onCanvas, myFile)
　　　　using terms from application “OmniGraffle 5″
　　　　　　tell onCanvas
　　　　　　　　set theShape to make new shape at front of graphics with properties {origin:{0, 0}, thickness:0.0, fill:no fill, draws stroke:false, image scale:1, size:{20, 20}, draws shadow:false}
　　　　　　　　getPicture(theShape, myFile) of me
　　　　　　　　return theShape
　　　　　　end tell
　　　　end using terms from – OmniGraffle
　　end makeShape
　　
　　– Get the dropped image, get it’s size and set it as a fill to the shape, and some (adjustable) settings.
　　on getPicture(theShape, myFile)
　　　　set filePath to (myFile) as string
　　　　set posixPath to POSIX path of file filePath
　　　　try
　　　　　　tell application “Image Events”
　　　　　　　　launch
　　　　　　　　set this_image to open filePath
　　　　　　　　set the props_rec to the properties of this_image
　　　　　　　　copy (dimensions of props_rec) to {myX, myY}
　　　　　　　　close this_image
　　　　　　end tell
　　　　end try
　　　　
　　　　tell application “OmniGraffle 5″
　　　　　　ignoring application responses
　　　　　　　　set image of theShape to posixPath
　　　　　　　　set image sizing of theShape to manual
　　　　　　　　set image scale of theShape to 1
　　　　　　　　set image offset of theShape to {0, 0}
　　　　　　　　set size of theShape to {myX, myY}
　　　　　　　　–select theShape
　　　　　　end ignoring
　　　　end tell
　　end getPicture
　　
　　return theShape
　　
end script

–指定ドキュメントの指定リストに入っているCanvasをPNG形式で書き出す
on saveEachCanvasOnSpecifiedDocument(outDoc, nList, outFolStr)
　　tell application “OmniGraffle 5″
　　　　
　　　　–書き出し対象のドキュメントを特定する
　　　　set curDoc to document outDoc
　　　　
　　　　–ドキュメント内のすべてのCanvas（ページ）
　　　　repeat with i in nList
　　　　　　set j to contents of i
　　　　　　set outFullPath to outFolStr & j
　　　　　　
　　　　　　saveAGroupInAcanvas(outFullPath, j, curDoc) of me
　　　　　　
　　　　end repeat
　　end tell
end saveEachCanvasOnSpecifiedDocument

–指定ドキュメント中の指定のcanvas上のgroupを指定のパス上にPNG形式で書き出す
on saveAGroupInAcanvas(outFilePOSIXpath, aCanvasName, aDoc)
　　tell application “OmniGraffle 5″
　　　　–書き出しオプションを指定する
　　　　tell current export settings
　　　　　　set area type to selected graphics
　　　　　　set draws background to false
　　　　　　set export scale to 1
　　　　　　set include border to false
　　　　　　set resolution to 1.0
　　　　end tell
　　　　
　　　　–表示中のCanvasの切り換え
　　　　set aWin to retAWindowByDocumentName(name of aDoc) of me
　　　　set targCanvas to canvas aCanvasName of aDoc
　　　　set canvas of aWin to targCanvas
　　　　
　　　　–書き出し対象のGroupの特定と選択
　　　　tell aWin –window
　　　　　　set gList to every group
　　　　　　set aGroup to first item of gList –複数のgroupがあっても、最初に見つかったものだけをピックアップする　【お約束】
　　　　　　set selection to {aGroup}
　　　　end tell
　　　　
　　　　–書き出し
　　　　save aDoc as “PNG” in POSIX file outFilePOSIXpath –POSIX fileで指定しなければならないのがかったるい
　　　　
　　　　–あとしまつ
　　　　tell aWin –window
　　　　　　set selection to {}
　　　　end tell
　　　　
　　end tell
end saveAGroupInAcanvas

–リストをテキストに
on listToText(aList)
　　set listText to {“{”}
　　set quotChar to ASCII character 34
　　set firstFlag to true
　　repeat with i in aList
　　　　set j to contents of i
　　　　set aClass to class of i
　　　　if (aClass = integer) or (aClass = number) or (aClass = real) then
　　　　　　set the end of listText to (getFirst(firstFlag) of me & j as text)
　　　　　　set firstFlag to false
　　　　else if (aClass = string) or (aClass = text) or (aClass = Unicode text) then
　　　　　　set the end of listText to ((getFirst(firstFlag) of me & quotChar & j as text) & quotChar)
　　　　　　set firstFlag to false
　　　　else if aClass is list then
　　　　　　set the end of listText to (getFirst(firstFlag) of me & listToText(j)) –ちょっと再帰処理
　　　　　　set firstFlag to false
　　　　end if
　　end repeat
　　set the end of listText to “}”
　　set listText to listText as text
　　return listText
end listToText

on getFirst(aFlag)
　　if aFlag = true then return “”
　　if aFlag = false then return “,”
end getFirst

–指定フォルダ内をすべて削除
on deleteInsideFolder(aFol)
　　set aU to (POSIX path of aFol)
　　
　　–本当にこれでいいのか？　folder or directoryであることをチェックすべきでは？
　　if aU does not end with “/” then
　　　　set aU to aU & “/”
　　end if
　　set aU to (quoted form of aU) & “*” –quoted formをつけてしまうと、ワイルドカードが効かない
　　
　　try
　　　　do shell script “rm -rf “ & aU
　　end try
end deleteInsideFolder

–オープン中の書類のうち、指定の文字を含むものの書類名を返す
on retADocWhichContainsStr(aStr)
　　tell application “OmniGraffle 5″
　　　　set dList to every document whose name contains aStr
　　　　if dList = {} then return “”
　　　　
　　　　set tmpDocName to name of first item of dList
　　　　
　　　　return tmpDocName
　　end tell
end retADocWhichContainsStr

–指定名称の書類の現在表示中のCanvas上から、URLつきの画像（Solid）の情報を集める
on getCanvasNoAndURLFromEachSolidOnlyFromCurrentCanvas(aDocNameStr)
　　
　　–指定名称の書類のWindowを取得
　　set aWin to retAWindowByDocumentName(aDocNameStr) of me
　　
　　tell application “OmniGraffle 5″
　　　　set aSel to name of canvas of aWin
　　end tell
　　
　　
　　
　　tell application “OmniGraffle 5″
　　　　tell document aDocNameStr
　　　　　　
　　　　　　set urlList to {}
　　　　　　
　　　　　　tell canvas aSel
　　　　　　　　set s1List to {}
　　　　　　　　set sList to every solid
　　　　　　　　
　　　　　　　　repeat with ii in sList
　　　　　　　　　　
　　　　　　　　　　set jj to contents of ii
　　　　　　　　　　set uDat to url of jj
　　　　　　　　　　
　　　　　　　　　　try
　　　　　　　　　　　　
　　　　　　　　　　　　if uDat is not equal to missing value then
　　　　　　　　　　　　　　set s1List to {jj, uDat}
　　　　　　　　　　　　　　set the end of urlList to s1List
　　　　　　　　　　　　end if
　　　　　　　　　　　　
　　　　　　　　　　end try
　　　　　　　　　　
　　　　　　　　end repeat
　　　　　　　　
　　　　　　end tell
　　　　　　
　　　　　　
　　　　end tell
　　　　
　　　　return urlList
　　　　
　　end tell
　　
end getCanvasNoAndURLFromEachSolidOnlyFromCurrentCanvas

–OmniGraffleですべてのWindowを表示状態に
on exposeEveryWindow()
　　tell application “OmniGraffle 5″
　　　　tell (every window whose miniaturized is true)
　　　　　　set miniaturized to false
　　　　end tell
　　end tell
end exposeEveryWindow

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set urlList to getCanvasNoAndURLFromEachSolidOnlyFromCurrentCanvas(aDocNameStr) of me
–> {{graphic id 66 of canvas id 50 of document “機能定義書v4.graffle” of application “OmniGraffle 5″, “D210″}, {graphic id 4 of canvas id 50 of document “機能定義書v4.graffle” of application “OmniGraffle 5″, “title”}, {graphic id 86557 of canvas id 50 of document “機能定義書v4.graffle” of application “OmniGraffle 5″, “D210″}}

–指定名称の書類の現在表示中のCanvas上から、URLつきの画像（Solid）の情報を集める
on getCanvasNoAndURLFromEachSolidOnlyFromCurrentCanvas(aDocNameStr)
　　
　　–指定名称の書類のWindowを取得
　　set aWin to retAWindowByDocumentName(aDocNameStr) of me
　　
　　tell application “OmniGraffle 5″
　　　　set aSel to name of canvas of aWin
　　end tell
　　
　　
　　
　　tell application “OmniGraffle 5″
　　　　tell document aDocNameStr
　　　　　　
　　　　　　set urlList to {}
　　　　　　
　　　　　　tell canvas aSel
　　　　　　　　set s1List to {}
　　　　　　　　set sList to every solid
　　　　　　　　
　　　　　　　　repeat with ii in sList
　　　　　　　　　　
　　　　　　　　　　set jj to contents of ii
　　　　　　　　　　set uDat to url of jj
　　　　　　　　　　
　　　　　　　　　　try
　　　　　　　　　　　　
　　　　　　　　　　　　if uDat is not equal to missing value then
　　　　　　　　　　　　　　set s1List to {jj, uDat}
　　　　　　　　　　　　　　set the end of urlList to s1List
　　　　　　　　　　　　end if
　　　　　　　　　　　　
　　　　　　　　　　end try
　　　　　　　　　　
　　　　　　　　end repeat
　　　　　　　　
　　　　　　end tell
　　　　　　
　　　　　　
　　　　end tell
　　　　
　　　　return urlList
　　　　
　　end tell
　　
end getCanvasNoAndURLFromEachSolidOnlyFromCurrentCanvas