| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen   | 
	 
	
	
		| Autor | 
		Nachricht | 
	 
	
		kikky •->
  
 
  Anmeldedatum: 20.12.2004 Beiträge: 14
 
  | 
		
			
				 Verfasst am: 26.07.2005 - 12:52    Titel: Linienziehen in Indesign | 
				     | 
			 
			
				
  | 
			 
			
				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 | 
		 | 
	 
	
		  | 
	 
	
		giesskanne •->
  
 
  Anmeldedatum: 18.11.2004 Beiträge: 17
 
  | 
		
			
				 Verfasst am: 29.09.2005 - 09:11    Titel:  | 
				     | 
			 
			
				
  | 
			 
			
				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 | 
		 | 
	 
	
		  | 
	 
	
		kikky •->
  
 
  Anmeldedatum: 20.12.2004 Beiträge: 14
 
  | 
		
			
				 Verfasst am: 13.10.2005 - 11:28    Titel:  | 
				     | 
			 
			
				
  | 
			 
			
				Hi Martin,
 
 
 
vielen Dank für Dein Script. Klappt wunderbar.
 
 
Danke.
 
 
christian | 
			 
		  | 
	 
	
		| Nach oben | 
		 | 
	 
	
		  | 
	 
	
		 | 
	 
 
  
	 
	    
	   | 
	
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 
		 | 
	 
 
 | 
 
 |