Hallo Hans,
das Script hilft bei der Anlage eines Schriftzuges auf einem Buchrücken bzw. auf den Seitenkanten. Auf jedem der - in diesem Fall 480 - Blätter wird das Bild positioniert und um die Seitenstärke verschoben. Da das Buch in mehrere Dokumente unterteilt ist, besteht die Möglichkeit, einen Anfangswert für den Versatz einzugeben.
--Wähle das Rückenbild per dialog oder fix (!"alias")
--set myNameFile to "74GB:20050904_19.jpg"
set myNameFile to choose file with prompt "Klick das Rueckenbild!"
tell document 1 of application "Adobe InDesign CS2"
--lege das rückenbild auf einen auf jeder seite bzw. montagefläche zu erzeugenden benannten Rahmen
--repeat with i from 1 to count of spreads
tell every spread
set myRueckenRectangle to make rectangle with properties {geometric bounds:{20, 292, 190, 299}, label:"Rueckenbild"}
try
--place alias (myNameFile) on myRueckenRectangle
place (myNameFile) on myRueckenRectangle
end try
end tell
--end repeat
-- Zweiter Teil: Verschiebe den Bildinhalt
set frameLabel to "Rueckenbild"
-- die Liste der Rahmen zusammenstellen, deren Namen dem eingegebenen entspricht
---- Den Anwender bitten, den Anfangs-Wert einzugeben
set anfangswert to text returned of (display dialog "Das Bild im ersten Rückenbildrahmen versetzen um:
Bitte positiven Wert mit Punkt statt Komma." default answer "0.0") as real
-- set anfangswert to 0
set seitenstaerke to anfangswert
repeat with i from 1 to count of spreads
set frameRefs to (every page item of spread i whose label is frameLabel)
-- eine Schleife durch die Rahmen, um den Versatz zuzuweisen
repeat with curFrame in frameRefs
tell curFrame
try
set {y1, x1, y2, x2} to geometric bounds of graphic 1
set properties of graphic 1 to {geometric bounds:{y1, x1 - seitenstaerke, y2, x2 - seitenstaerke}}
end try
end tell
end repeat
set seitenstaerke to (seitenstaerke + 0.12)
end repeat
display dialog "Fertig." buttons "OK" default button 1 with icon 1 giving up after 1
end tell
Grüße
Thorsten
als Antwort auf: [#421017]
