Hallo Goar,
[ ich war im Urlaub, deshalb die verspätete Antwort. ]
Deine Beobachtungen kann ich bestätigen. Und ein kurzer Versuch mit QuarkXPress 6.52 zeigt, dass mit jener Version der richtige Wert zurückgegeben würde ...
Ich habe allerlei versucht, doch ohne eine direkte Lösung zu finden.
Ein Umweg: Die Zeile in eine temporäre Textbox kopieren:
---
tell document 1 of application "QuarkXPress Passport"
tell current box
set {y1, x1, y2, x2} to bounds as list
end tell
make text box at beginning with properties {bounds:{y1, x1, y2, x2}, name:"tmp"}
copy line 1 of current box to text box "tmp"
tell text box "tmp"
tell line 1
set vAscent to ascent as millimeter units as real
end tell
end tell
delete text box "tmp"
end tell
vAscent
---
Und so erhält man die Werte aller Zeilen:
---
set ascentList to {}
tell document 1 of application "QuarkXPress Passport"
tell current box
set {y1, x1, y2, x2} to bounds as list
end tell
make text box at beginning with properties {bounds:{y1, x1, y2, x2}, name:"tmp"}
repeat with i from 1 to count of lines of current box
copy line i of current box to text box "tmp"
tell text box "tmp"
tell line 1
set end of ascentList to ascent as millimeter units as real
end tell
delete story 1
end tell
end repeat
delete text box "tmp"
end tell
ascentList
---
Nach dem Kopieren in die temporäre Box sollte die ganze Zeile sichtbar sein. Deshalb ist es am einfachsten, die Bounds der aktiven Box zu übernehmen.
Gruss, Hans
als Antwort auf: [#423082]
