Fischer-Bayern.de
 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

Linienziehen in Indesign

 
Dieses Forum ist gesperrt, du kannst keine Beiträge editieren, schreiben oder beantworten.   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.    Fischer-Bayern.de Foren-Übersicht -> AppleScript-Forum
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
kikky
•->
•->


Anmeldedatum: 20.12.2004
Beiträge: 14

BeitragVerfasst am: 26.07.2005 - 12:52    Titel: Linienziehen in Indesign Antworten mit Zitat

Hallo,

kurze Frage:

Ist es mit AS möglich, Linien unterhalb von ausgewählten bildboxen in indesign CS ziehen zu lassen. die linien sollen in einem bestimmten abstand in der breite der bildboxen gezogen werden?

es sollen linien für mehrere gleichzeitig selektierte boxen gezogen werden.


schönen tag noch und danke für antworten
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
giesskanne
•->
•->


Anmeldedatum: 18.11.2004
Beiträge: 17

BeitragVerfasst am: 29.09.2005 - 09:11    Titel: Antworten mit Zitat

Hi Kikky,

schon ne Weile her, aber vielleicht schaust Du ja mal wieder rein.
Versuch's mal mit einem Einstieg damit:
Code:

tell application "Adobe InDesign CS2"
   set myDoc to active document
   tell myDoc
      -- Einstellung Maßeinheiten (Punkte)
      set oldUnits to {horizontal measurement units of view preferences, vertical measurement units of view preferences}
      set {horizontal measurement units of view preferences, vertical measurement units of view preferences} to {points, points}
      
      -- Linienart
      set myGLType to "Durchgezogen"
      
      -- Linienstärke
      set myGLWeight to 3
      
      -- Farbe der Linie
      set myGLColor to swatch "Black" of myDoc
      
      -- Abstand der Linie von der Abbildung
      set myGLDist to 5
      
      set mySel to selection
      repeat with myCounter from 1 to count of mySel
         -- Positionsbestimmung der zu behandelnden Abbildung
         set {myY1, myX1, myY2, myX2} to geometric bounds of item myCounter of mySel
         
         -- Seite, auf welcher sich die zu behandelnde Abbildung befindet
         set myPage to parent of item myCounter of mySel
         
         -- erstelle die Linie
         set myLine to make graphic line at page 1 with properties ¬
            {geometric bounds:{myY2 + myGLDist, myX1, myY2 + myGLDist, myX2}, stroke type:myGLType, stroke weight:myGLWeight, stroke color:myGLColor}
      end repeat
      set x to name of stroke type of myLine
      set {horizontal measurement units of view preferences, vertical measurement units of view preferences} to oldUnits
   end tell
end tell


Gruß
Martin
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
kikky
•->
•->


Anmeldedatum: 20.12.2004
Beiträge: 14

BeitragVerfasst am: 13.10.2005 - 11:28    Titel: Antworten mit Zitat

Hi Martin,


vielen Dank für Dein Script. Klappt wunderbar.

Danke.

christian
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Dieses Forum ist gesperrt, du kannst keine Beiträge editieren, schreiben oder beantworten.   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.    Fischer-Bayern.de Foren-Übersicht -> AppleScript-Forum Alle Zeiten sind GMT + 2 Stunden
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.


Powered by phpBB © 2001, 2002 phpBB Group
Deutsche Übersetzung von phpBB.de


AppleScript für absolute Starter