Setting Bounds as Text

Scripting Forums AppleScript | Mac OS X
#1

I am trying to make a list from the bounds in an AppleWorks file for a script I am writing


tell application "AppleWorks 6"
	tell drawing area of front document
		set myBounds to bounds of selection 
		display dialog myBounds -- for testing 
	end tell
end tell

tell application "TextEdit"
	activate
	set text of document 1 to (text of document 1 & ",(" & myBounds & ")")
end tell

This is the result I am getting
,(290.0625301.0380.0625337.0)

This is what I want
,{290.0625, 301.0, 380.0625, 337.0}

How can I get the commas in there?

Thanks
darock

#2

Here’s 2 examples of how to convert the bounds to the format you want…

set myBounds to {12, 20, 40, 60}

set text item delimiters to ", "
set stringBounds to myBounds as text
set text item delimiters to ""
set finalBounds to "{" & stringBounds & "}"

set myBounds to {12, 20, 40, 60}
set finalBounds to "{" & (item 1 of myBounds as text) & ", " & (item 2 of myBounds as text) & ", " & (item 3 of myBounds as text) & ", " & (item 4 of myBounds as text) & "}"
#3

Thanks for the help regulus6633.

I used your second suggestion.

I thought about doing something like that but was not thinking clear. I tried to get word, did not even think that I needed to get it by item.

darock