[GastForen Programmierung/Entwicklung AppleScript ps funzt – cs2 nicht?

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Themen
Beiträge
Moderatoren
Letzter Beitrag

ps funzt – cs2 nicht?

Anonym
Beiträge gesamt: 22827

19. Nov 2007, 11:15
Beitrag # 1 von 7
Bewertung:
(712 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
hallo zusammen,

folgendes kurzes script funktioniert wunderbar mit ps 7 (hier nochmal dank an hans ::)) ) unter 9.2, aber unter cs2 und 10.48 passiert nach dem oeffnen in ps cs2 nichts.

funktionsweise: datei wird geoeffnet, es wird auf hoch bzw. querformat getestet, entsprechend bemaßt, ps-aktion wird gestartet, datei wird als jpg gesichert (out), original wird vom finder verschoben (originale)

code:
on adding folder items to thisFolder after receiving itemList
   
    repeat with aFile in itemList
       
        tell application "Finder"
            set theFile to aFile as alias
            set theFileName to name of theFile
           
        end tell
       
       
        tell application "Adobe Photoshop CS2"
            activate
            try
                open theFile showing dialogs never
            end try
           
           
           
            set docRef to the current document
           
            try
                change mode docRef to RGB
            end try
            if (bits per channel of docRef is sixteen) then
                set bits per channel of docRef to eight
            end if
           
           
            tell docRef
                set newWidth to (width as pixels) as real
                set newheight to (height as pixels) as real
            end tell
            set curQuotient to newWidth / newheight
            if curQuotient is greater than 1 then
                resize image current document width 16.93 resolution 72 as inches resample method bicubic
               
                «event miscdosc» "online"
               
                set docName to name of docRef
                set docBaseName to (docName as string)
                set newFileName to (thisFolder as string) & "out:" & docBaseName
                set myOptions to {class:JPEG save options, embed color profile:true, format options:optimized, quality:10}
                save docRef in file newFileName as JPEG with options myOptions appending lowercase extension with copying
                close current document without saving
            else
                resize image current document width 9.88 resolution 72 as inches resample method bicubic
               
                «event miscdosc» "online"
               
                set docName to name of docRef
                set docBaseName to (docName as string)
                set newFileName to (thisFolder as string) & "out:" & docBaseName
                set myOptions to {class:JPEG save options, embed color profile:true, format options:optimized, quality:10}
                save docRef in file newFileName as JPEG with options myOptions appending lowercase extension with copying
                close current document without saving
               
            end if
        end tell
       
        set subFolder to (thisFolder as string) & "originale:"
        try
            tell application "Finder" to move file theFile to folder subFolder with replacing
        end try
       
       
       
    end repeat
end adding folder items to
X

ps funzt – cs2 nicht?

Hans Haesler
  
Beiträge gesamt: 5816

19. Nov 2007, 13:43
Beitrag # 2 von 7
Beitrag ID: #422133
Bewertung:
(711 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Hans,

wenn ich es richtig verstehe, dann wird das Dokument geöffnet. Aber dann geschieht nichts mehr.

Bei Ordneraktionen ist es leider so, dass bei einem Fehler keine Meldungen gezeigt werden. Man muss selbst nachforschen, welcher Befehl den Stillstand auslöst.

Ich nehme an, es wird nichts bringen, anstelle der rohen Codes «event miscdosc», ein 'do action' einzusetzen.

Ich kann erst heute Abend versuchen, die Voraussetzungen zu konstruieren, um herauszufinden, wo es klemmt.

Gruss, Hans


als Antwort auf: [#422132]

ps funzt – cs2 nicht?

Hans Haesler
  
Beiträge gesamt: 5816

19. Nov 2007, 19:11
Beitrag # 3 von 7
Beitrag ID: #422134
Bewertung:
(711 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Hans,

also ... hier funktioniert die Ordneraktion. Okay, ich habe die beiden 'do action'-Zeilen auskommentiert, aber der Rest wird abgewickelt wie vorgesehen.

Im folgenden Code habe ich den Finder-Block entfert (weil theFileName nicht gebraucht wird). Folglich wird die Variable theFile zum schlichten aFile.

Code
on adding folder items to thisFolder after receiving itemList 
repeat with aFile in itemList
  tell application "Adobe Photoshop CS2"
  activate
  try
    open aFile showing dialogs never
  end try
 
  set docRef to the current document
 
  try
    change mode docRef to RGB
  end try
  if (bits per channel of docRef is sixteen) then
    set bits per channel of docRef to eight
  end if
 
  tell docRef
    set newWidth to (width as pixels) as real
    set newheight to (height as pixels) as real
  end tell
  set curQuotient to newWidth / newheight
  if curQuotient is greater than 1 then
    resize image current document width 16.93 resolution 72 as inches ¬
    resample method bicubic
   
    do action "online"
   
    set docName to name of docRef
    set docBaseName to (docName as string)
    set newFileName to (thisFolder as string) & "out:" & docBaseName
    set myOptions to {class:JPEG save options, embed color profile:true ¬
    , format options:optimized, quality:10}
    save docRef in file newFileName as JPEG with options myOptions ¬
    appending lowercase extension with copying
    close current document without saving
  else
    resize image current document width 9.88 resolution 72 as inches ¬
    resample method bicubic
   
    do action "online"
   
    set docName to name of docRef
    set docBaseName to (docName as string)
    set newFileName to (thisFolder as string) & "out:" & docBaseName
    set myOptions to {class:JPEG save options, embed color profile:true ¬
    , format options:optimized, quality:10}
    save docRef in file newFileName as JPEG with options myOptions ¬
    appending lowercase extension with copying
    close current document without saving
   
  end if
  end tell
 
  set subFolder to (thisFolder as string) & "originale:"
  try
  tell application "Finder" to move file aFile to folder subFolder with replacing
  end try
 
end repeat
end adding folder items to


Ich kann im Moment leider nicht sagen, weshalb es bei Dir nicht will.

Gruss, Hans


als Antwort auf: [#422132]

ps funzt – cs2 nicht?

Anonym
Beiträge gesamt: 22827

20. Nov 2007, 09:22
Beitrag # 4 von 7
Beitrag ID: #422135
Bewertung:
(711 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
hi hans,

danke fuer's bereinigen :)

... muss halt hier nochmal schauen warum es ps cs2 nicht will ...

cu

hans


als Antwort auf: [#422132]

ps funzt – cs2 nicht?

Hans Haesler
  
Beiträge gesamt: 5816

20. Nov 2007, 09:46
Beitrag # 5 von 7
Beitrag ID: #422136
Bewertung:
(711 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Hans,

hier als Hilfestellung eine Abwandlung des Scripts. Nicht als Ordneraktion zuweisen, sondern ab Skripteditor starten. Vorteil: Eventuelle Probleme werden gemeldet. Man kann auch das Eventprotokoll öffnen und nachprüfen, wie das Ganze abläuft.

Zu Beginn kommt ein Dialog, mit welchem Du den Hotfolder auswählen musst. Und mit dem zweiten Dialog wird eine Bilddatei ausgewählt.
Code
set thisFolder to choose folder 
set aFile to choose file

tell application "Adobe Photoshop CS2"
activate
try
  open aFile showing dialogs never
end try

set docRef to the current document

try
  change mode docRef to RGB
end try
if (bits per channel of docRef is sixteen) then
  set bits per channel of docRef to eight
end if

tell docRef
  set newWidth to (width as pixels) as real
  set newheight to (height as pixels) as real
end tell
set curQuotient to newWidth / newheight
if curQuotient is greater than 1 then
  resize image current document width 16.93 resolution 72 as inches ¬
  resample method bicubic
 
  do action "online"
 
  set docName to name of docRef
  set docBaseName to (docName as string)
  set newFileName to (thisFolder as string) & "out:" & docBaseName
  set myOptions to {class:JPEG save options, embed color profile:true ¬
  , format options:optimized, quality:10}
  save docRef in file newFileName as JPEG with options myOptions ¬
  appending lowercase extension with copying
  close current document without saving
else
  resize image current document width 9.88 resolution 72 as inches ¬
  resample method bicubic
 
  do action "online"
 
  set docName to name of docRef
  set docBaseName to (docName as string)
  set newFileName to (thisFolder as string) & "out:" & docBaseName
  set myOptions to {class:JPEG save options, embed color profile:true ¬
  , format options:optimized, quality:10}
  save docRef in file newFileName as JPEG with options myOptions ¬
  appending lowercase extension with copying
  close current document without saving
 
end if
end tell

Gruss, Hans


als Antwort auf: [#422132]

ps funzt – cs2 nicht?

Anonym
Beiträge gesamt: 22827

20. Nov 2007, 13:20
Beitrag # 6 von 7
Beitrag ID: #422137
Bewertung:
(711 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
hi hans, danke das war sehr hilfreich.
"... as pixels" wollte er nicht, ebensowenig wie "do action" ¿

lokal laeuft es prima :) servermaessig verweigert es allerdings seinen dienst.

cu

hans

on adding folder items to thisFolder after receiving itemList
    repeat with aFile in itemList
        tell application "Adobe Photoshop CS2"
            activate
            try
                open aFile showing dialogs never
            end try
           
            set docRef to the current document
           
            try
                change mode docRef to RGB
            end try
            if (bits per channel of docRef is sixteen) then
                set bits per channel of docRef to eight
            end if
           
            tell docRef
                set newWidth to (width as inches) as real
                set newheight to (height as inches) as real
            end tell
            set curQuotient to newWidth / newheight
            if curQuotient is greater than 1 then
                resize image current document width 16.93 resolution 72 ¬
                    resample method bicubic
               
                «event miscdosc» "online"
               
                set docName to name of docRef
                set docBaseName to (docName as string)
                set newFileName to (thisFolder as string) & "out:" & docBaseName
                set myOptions to {class:JPEG save options, embed color profile:true ¬
                    , format options:optimized, quality:10}
                save docRef in file newFileName as JPEG with options myOptions ¬
                    appending lowercase extension with copying
                close current document without saving
            else
                resize image current document width 9.88 resolution 72 ¬
                    resample method bicubic
               
                «event miscdosc» "online"
               
                set docName to name of docRef
                set docBaseName to (docName as string)
                set newFileName to (thisFolder as string) & "out:" & docBaseName
                set myOptions to {class:JPEG save options, embed color profile:true ¬
                    , format options:optimized, quality:10}
                save docRef in file newFileName as JPEG with options myOptions ¬
                    appending lowercase extension with copying
                close current document without saving
               
            end if
        end tell
       
        set subFolder to (thisFolder as string) & "originale:"
        try
            tell application "Finder" to move file aFile to folder subFolder with replacing
        end try
       
    end repeat
end adding folder items to


als Antwort auf: [#422132]

ps funzt – cs2 nicht?

Hans Haesler
  
Beiträge gesamt: 5816

20. Nov 2007, 14:30
Beitrag # 7 von 7
Beitrag ID: #422138
Bewertung:
(711 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Hans,

stimmt, da habe ich mich vertan. Nicht 'do action', sondern 'do script' sollte es sein. Aber mit Adobe Photoshop CS2 wird dieser Befehl nur in der rohen Form akzeptiert: «event miscdosc». Die letzen vier Buchstaben dosc = do script.

Gruss, Hans


als Antwort auf: [#422132]
X

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

pdf-icon Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen
08.11.2022

Frankfurt, Fraport Conference Center
Dienstag, 08. Nov. 2022, 13.30 - 18.00 Uhr

Seminar

Auf der Enfocus World Tour stellen wir Ihnen gemeinsam mit Enfocus die aktuellen Highlights von Enfocus Switch und dem Impressed Workflow Server (IWS) vor. Wir präsentieren Ihnen anhand typischer Aufgabenstellungen in einem modernen Produktionsbetrieb die Möglichkeiten, die Enfocus Switch für die Automatisierung und Standardisierung von Abläufen bietet. Wir haben sowohl für Produktionsverantwortliche als auch technisch Interessierte ein spannendes Programm vorbereitet, bei dem Sie sicherlich viel Neues erfahren werden, welches Sie in Ihrem eigenen Betrieb umsetzen können. Die Veranstaltung bietet darüber hinaus eine hervorragende Möglichkeit, sich mit anderen Anwendern und Workflow-Spezialisten auszutauschen und Antworten auf konkrete Aufgabenstellungen zu erhalten, welche Sie mit Hilfe von Enfocus Switch/IWS umsetzen möchten.

Wir sind jeweils an 2 Tagen in Frankfurt, Hamburg und München vor Ort. Der erste (halbe) Tag richtet sich in erster Linie an Betriebsleiter und Produktionsverantwortliche in Druckereien - ist also weniger technisch orientiert - sondern gibt einen Überblick zu den heutigen Möglichkeiten einer automatisierten Produktion.

Der zweite Tag (Switch Anwender-Treffen) richtet sich an bestehende Switch-Anwender und Administratoren.

Anmeldung und weitere Infos: https://www.impressed.de/schulung.php?c=sDetail&sid=310

Ja

Organisator: Enfocus/Impressed

Kontaktinformation: Silvia Noack, E-Mailsnoack AT impressed DOT de

https://www.impressed.de/schulung.php?c=sDetail&sid=310

Enfocus World Tour 2022
Veranstaltungen
08.11.2022

Frankfurt, Fraport Conference Center
Dienstag, 08. Nov. 2022, 13.30 - 18.00 Uhr

Seminar

Auf der Enfocus World Tour stellen wir Ihnen gemeinsam mit Enfocus die aktuellen Highlights von Enfocus Switch und dem Impressed Workflow Server (IWS) vor. Wir präsentieren Ihnen anhand typischer Aufgabenstellungen in einem modernen Produktionsbetrieb die Möglichkeiten, die Enfocus Switch für die Automatisierung und Standardisierung von Abläufen bietet. Wir haben sowohl für Produktionsverantwortliche als auch technisch Interessierte ein spannendes Programm vorbereitet, bei dem Sie sicherlich viel Neues erfahren werden, welches Sie in Ihrem eigenen Betrieb umsetzen können. Die Veranstaltung bietet darüber hinaus eine hervorragende Möglichkeit, sich mit anderen Anwendern und Workflow-Spezialisten auszutauschen und Antworten auf konkrete Aufgabenstellungen zu erhalten, welche Sie mit Hilfe von Enfocus Switch/IWS umsetzen möchten.

Wir sind jeweils an 2 Tagen in Frankfurt, Hamburg und München vor Ort. Der erste (halbe) Tag richtet sich in erster Linie an Betriebsleiter und Produktionsverantwortliche in Druckereien - ist also weniger technisch orientiert - sondern gibt einen Überblick zu den heutigen Möglichkeiten einer automatisierten Produktion.

Der zweite Tag (Switch Anwender-Treffen) richtet sich an bestehende Switch-Anwender und Administratoren.

Anmeldung und weitere Infos: https://www.impressed.de/schulung.php?c=sDetail&sid=310

Ja

Organisator: Enfocus/Impressed

Kontaktinformation: Silvia Noack, E-Mailsnoack AT impressed DOT de

https://www.impressed.de/schulung.php?c=sDetail&sid=310

Enfocus World Tour 2022