Bounds of quark 6 as a string
Bounds of quark 6 as a string
- Subject: Bounds of quark 6 as a string
- From: Bastiaan Boertien <email@hidden>
- Date: Mon, 10 Jan 2005 13:44:03 +0100
Hi list
I'm trying to make the bounds of a generic box into a string so i can store them in a file.
Here's my code to know what I'm trying to do
set TheText to "This list conains the bounds of every box in the document" &
return &
return as string
tell application "QuarkXPress Passport"
set theDocName to name of document 1
tell document 1
repeat with theBox from 1
to count the numbers of generic boxes
set theBounds to bounds of generic box theBox
set theClass to class of generic box theBox
if theClass is equal to text box then
set theClassInString to "Text Box"
else if theClass is equal to picture box then
set theClassInString to "Picture Box"
else if theClass is equal to line box then
set theClassInString to "Line Box"
else
set theClassInString to "Others"
end if
set TheText to TheText & (
theBounds &
tab &
tab &
theClassInString &
return)
as string
end repeat
end tell
end tell
set theFile to (
path to desktop folder) &
theDocName as string
try
open for access file theFile with write permission
write TheText to file theFile as text
close access file theFile
on error
close access file theFile
display dialog "still not working"
end try
greetings bastiaan
_______________________________________________
Do not post admin requests to the list. They will be ignored.
Applescript-users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
This email sent to email@hidden