werte einer box in variabel kopieren (xpress)

[herkules]

hallo zusammen!
ich bin gerade dabei ein monsterskript für xpress4.11 zusammenzubasteln. dabei möchte ich von einer textbox die breite, höhe, x- und y-koordinaten rausfinden. die höhe und breite konnte ich bereits ausfindig machen. wie es aber mit dem x- und y-koordinaten geht, habe ich leider noch nicht rausgekriegt.
kann mir jemand helfen?

hier habe ich noch eine kleine ansicht, was ich bereits rausgekriegt habe:

*****************************************************
tell application "QuarkXPress Passport™ 4.1"
activate
tell document 1
tell page 1
tell text box T_Name
copy width of bounds as real to wert1
copy height of bounds as real to wert2
end tell
end tell
end tell
****************************************************
der befehl "copy horizontal offset of bounds to wert3" klappt übrigens nicht...

vielen dank schon mal
_________________
gruss christos;-)

[Folker]

Uups - Doppelposting???
_________________
Gruß,
Folker Brandt
=============================
Systemberatung · Datenbanken · Webdesign

[Folker]

In aller Kürze:

tell document 1
set horizontal measure to millimeters
set vertical measure to millimeters -- wir rechnen jetzt in mm!
set page rule origin to {0,0} --linke obere Ecke auf 0,0 Koordinaten!
tell tell text box T_Name
copy bounds to {btop,bleft,bbottom,bright}
get btop as real

--usw.
_________________
Gruß,
Folker Brandt
=============================
Systemberatung · Datenbanken · Webdesign

[herkules]

cool, vielen dank!
hab in der zwischenzeit auch noch eine kleine lösung gefunden:

*********************************************
-- Boxart vom Namen ableiten
set BW_BoxArt to (characters 1 thru 1 of BW_Name) as text

-- Werte der Box in Liste uebertragen (X,Y,Hoehe,Breite)
tell application "QuarkXPress Passport™ 4.1"
tell document 1
tell page 1
if BW_BoxArt = "T" then
tell text box BW_Name
set BW_Werteliste to get bounds as list
end tell
else -- Bild- oder Generellbox
tell picture box BW_Name
set BW_Werteliste to get bounds as list
end tell
end if
end tell
end tell
end tell

-- Werte auslesen
set BW_YKoordinat to get item 1 of BW_Werteliste as real
set BW_XKoordinat to get item 2 of BW_Werteliste as real
set BW_Hoehe to get item 3 of BW_Werteliste as real
set BW_Breite to get item 4 of BW_Werteliste as real
*********************************************

deine lösung behalte ich mir natürlich auch auf
_________________
gruss christos;-)