Sujet: script conditionnel sur ps CS3

[cyberlecgui]

Bonjour,

Voilà mon problème, j'ai une photo en 75x50cm en paysage. Actuellement j'ai 2 scripts qui bascule la photo en 800x600 ou 600x800 selon l'orientation.

Je voudrais faire un script qui examine le sens de ma photo et en fonction de son orientation me lance la réduction soit en portrait soit en paysage.

De cette manière, je n'aurais plus qu'un seul script a lancer sur un traitement par lot par exemple.

Auriez-vous une idée SVP ?

Cordialement,
Guillaume

[stephh]

salut cyberlecgui,

le seul moyen que j'ai trouvé, c'est de faire un VBScript qui pilote CS.
si t'es sous windows et que le code t'intéresse, fais-le-moi savoir

[cyberlecgui]

Salut stephh,

Oui justement j'y pensais je suis preneur.

Guillaume

[stephh]

alors voici un petit VBScript.
je le lance depuis un dossier.
s'il trouve un fichier .xmp, c'est que le .nef a été post-traité dans CS.
dans ce cas, il ouvre le nef et lance le script approprié en fonction de l'orientation.

Code: Tout sélectionner

Sub CreateWebPhoto(path,nef)
    Dim appRef
    Set appRef = CreateObject("Photoshop.Application")
    Set docRef = appRef.Open(path+nef+".NEF")
    imgHeight = docRef.Height
    imgWidth = docRef.Width
    If imgHeight > imgWidth Then
        appRef.DoAction "Nom_du_script_portrait", "nom_de_l'ensemble"
    Else
        appRef.DoAction "Nom_du_script_paysage", "nom_de_l'ensemble"
    End If
    appRef.ActiveDocument.Close 2
End Sub

Dim stRep
Dim oFSO,oFl, f
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = oFSO.GetAbsolutePathName(".") + "\"
If oFSO.FolderExists(stRep) Then
 For each oFl in  oFSO.GetFolder(stRep).Files
     If Right(oFl.Name,4) = ".xmp" Then 
        CreateWebPhoto stRep,Replace(oFl.Name, ".xmp", "")
     End If
 Next
End If
MsgBox "OK"

en espérant que cela puisse t'aider
c'est très basique, d'ailleurs à noter que le nom du fichier xmp doit etre en minuscule.

[patrikB]

Lo

Ca m'interresse aussi mais la, n'étant pas informaticien, j'entrave couic...

Ca marche comment

[stephh]

tu ouvres le bloc-notes
tu colles le code ci-dessus (en le modifiant selon tes scripts bien sûr)
tu l'enregistres dans le dossier que tu veux traiter, avec l'extension .vbs
avec l'explorateur de fichiers tu vas dans le dossier
tu double-clique sur ton nouveau fichier vbs pour le lancer
à la fin du process, tu auras un message "OK", et tu peux fermer CS

[patrikB]

Je vais essayer ca ...
Merci

[stephh]

avec plaisir.
à noter que si le but est de sortir des photos au format web, c'est ton script CS qui doit les enregistrer

[patrikB]

Pour le script enregistrer c'est ok en script

[patrikB]

stephh, cela s'apparente t'il a ce script que j'ai débarrassé des mes personnalisations pour test
Script dont j'ai trouvé la base sur le web et dont j'ai oublié l'auteur mais que je remercie.

Redimensionne les images dans les 2 sens et renforce la netteté pour la mise sur forum

Test script

[cyberlecgui]

Salut Stephh,

Je vais regarder cela chez moi tranquillement ce soir.
Je vais voir pour le faire en JPEG.

A+

Guillaume

[cyberlecgui]

J'ai testé mais hélas ça ne fonctionne pas.

Le script se lance bien mais tout le suite j'ai le message OK aucun traitement ne se produit sur PS.

Aurais-tu une idée stp ?

[stephh]

salut cyberlecgui,

t'as bien remplacé les 2 lignes :

appRef.DoAction "Nom_du_script_portrait", "nom_de_l'ensemble"
et
appRef.DoAction "Nom_du_script_paysage", "nom_de_l'ensemble"

par le nom de tes scripts et ensembles ?

[cyberlecgui]

Oui j'ai bien mis les noms

[stephh]

t'as bien des fichiers xmp ?