[efuchs]

These work fine:

set size of self to 9
set text placement of self to top

Why doesn't this work?????:

set alignment of self to center

There aren't words for how frustrated I am right now.

[kenfromboston]

Hi,

From what I've seen, the text alignment property is a property of the container, not the text itself. This sample code creates a rectangle with centered text inside:

tell document myDocumentName of application "OmniGraffle Professional 4"

make new shape at end of graphics of first canvas with properties {origin:{10, 10}, size:{200, 200}, draws shadow:false, draws stroke:true, name:"Rectangle", fill color:{65535, 65535, 65535}, text:{font:"Arial", size:10, alignment:center, text:"Hello!"}}
end tell

Hope this helps,

Ken

[efuchs]

Hi Ken,
Thanks for the help.
I know how to create a new shape with centered text. What I am trying to do, however, is center the text of an already existing shape.
TIA,
Evan

[nvahalik]

Over here:

set text of g to { text: "My new text", size: 8, font: "arial", alignment: center, color:{65535,65535,65535}}

Originally Posted by efuchs

I know how to create a new shape with centered text. What I am trying to do, however, is center the text of an already existing shape.

The code needed for a Runs a script action in the Action inspector might look like this (which, crucially uses a reference to the text, to avoid coercing it to a simple string).

set refText to a reference to text of self
set alignment of first attribute run of refText to center
tell front window to set zoom to zoom * 0.999

The (possibly puzzling) zoom line at the end is a work-around to cope with a bug in OmniGraffle: scripted format changes can not be seen at the zoom level at which they were made, so a slight zoom shift is needed to see what has really happened.