Apple, AppleScript, AppleScript Studio, AppleTalk, AppleWorks, ColorSync, Finder, HyperCard, iBook, iLife, iMac, iWork, Keynote, Mac, Macintosh, Mac OS, Pages, Panther, PowerBook, Power Mac, Power Macintosh, QuickTime, Safari, Tiger, Xcode sont des marques déposées par Apple Computer, Inc., enregistrées aux Etats-Unis et dans les autres pays. Liste officielle

De : (Liste AppleScript francophone) <applescript_fr@xxxxxxx.net>
À : "(Liste AppleScript francophone)" <applescript_fr@xxxxxxx.net>
Date : samedi 16 mars 2002 06:00
Objet : applescript_fr Digest #447

        Liste AppleScript francophone Digest #447

 1) Re: Xpress - débutant total
    by "obao.ben" <obao.ben@xxxxxxx.be>

De : "obao.ben" <obao.ben@xxxxxxx.be>
Date : Fri, 15 Mar 2002 16:49:34 +0100
Objet : [AS] Re: Xpress - débutant total

voilà le script

<script>

tell application "Finder"
    
    set folder_choosen to (choose folder) as string
    count every file in folder folder_choosen
    set nb_pp to result as integer
    set ajout_de_pp to nb_pp - 1 as integer
    
    
end tell


tell application "QuarkXPress Passport™ 4.11"
    activate
    open file (choose file)
    
    tell front document
        
        repeat ajout_de_pp times
            make new page at end
        end repeat
        
        set x to 0
        
        repeat nb_pp times
            set x to x + 1
            set dateauto to (current date) as string
            set img_name to (folder_choosen & "pp" & x & ".eps") as string
            tell page x
                
                
                tell picture box 1
                    set image 1 to img_name
                    set bounds of image 1 of current box to exact fit
                    set imageScale to scale of image 1 of current box as
list
                    set imageHeight to item 1 of imageScale as real
                    set imageWidth to item 2 of imageScale as real
                    if imageWidth < imageHeight then
                        set newPercent to item 2 of imageScale
                    else
                        set newPercent to item 1 of imageScale
                    end if
                    set scale of image 1 of current box to {newPercent,
newPercent}
                    set bounds of image 1 of current box to centered
                end tell
                
                tell text box 1
                    set text 1 to dateauto
                end tell
            end tell
        end repeat
        
    end tell
    
    
end tell

</script>

Le seul truc est que tu dois faire un dossier avec toutes les images et
celles-ci doivent se nommer impérativement comme suit
pp1.eps, pp2.eps, pp3.eps,...

ou alors tu modifies ce script.

En ce qui concerne d'imprimer directement le pdf
J'ai déjà essayé mais j'ai rencontré pas mal de problème avec la commande
postscript file qui me dit souvent le fichier qu'il est en train d'imprimé
existe déjà

Et j'ai eu d'autres problèmes avec distiller qui n'attend pas que le fichier
pdf soit créer pour continuer alors que la commande with wait est présente.


Donc, je continue de les faire à la main.

mais je sais qu'il existe une extension xpresxs qui s'appelle batch print et
qui permet de gérer les impressions mais c'est une extensions payantes et je
ne l'ai jamais utilisée.

Voilà c'est tout

ben


le 7/03/02 17:56, formation@xxxxxxx.org à formation@xxxxxxx.org a écrit :

> 
> Merci, il n'y a pas d'urgence du tout, c'est juste un truc que j'aimerai
> mettre en place pour démontrer tout l'intérêt de se pencher sur un petit
> peu de développement en interne. C'est donc de l'évangélisation plus
> qu'autre chose (un peu comme la conf power of X sur le site apple).
> fred
>