I also have keyboard assignments to a simple OmniGraffle
Zoom OUT (zooms a bit further out on each keypress)
Code:
property pTitle : "OG Zoom OUT"
property pFactor : 20
tell application id "OGfl"
tell front window
set dblZoom to zoom - (pFactor / 100)
if dblZoom < 0.05 then set dblZoom to 0.05
set zoom to dblZoom
end tell
end tell
and a corresponding
Zoom IN
Code:
property pTitle : "OG Zoom IN"
property pFactor : 20
tell application id "OGfl"
tell front window to set zoom to (zoom + pFactor / 100)
end tell