O AppleScript não parece ter atualmente um método para definir uma determinada foto como oculta. Se você fizer uma seleção no iPhoto, abra o Editor AppleScript e cole este código e execute-o:
tell application "iPhoto"
set theSel to selection
get properties of item 1 of theSel
end tell
Você verá que não há nenhuma propriedade "hidden: true / false". Aqui está um exemplo dos detalhes encontrados em um item que eu escondi no iPhoto para ver quais são as propriedades disponíveis:
name:"M4V01346.MP4"
width:640.0
dimensions:{640.0, 480.0}
altitude:0.0
image filename:"M4V01346_3.jpg"
image path:"/Users/<username>/Pictures/iPhoto Library/Modified/2007/Sep 9, 2007/M4V01346_3.jpg"
date:date "Saturday
October 6
2007 11:16:40 AM"
class:photo
rating:0
title:"M4V01346.MP4"
height:480.0
thumbnail path:"/Users/<username>/Pictures/iPhoto Library/Data/2007/Sep 9, 2007/M4V01346.jpg"
id:4.2949778E+9
latitude:3.40282346638529E+38
comment:""
original path:"/Users/<username>/Pictures/iPhoto Library/Originals/2007/Sep 9
2007/M4V01346.MP4"
longitude:3.40282346638529E+38
thumbnail filename:"M4V01346.jpg"
Meu conselho é criar um álbum no iPhoto chamado algo como "Oculto" e, em seu fluxo de trabalho do Automator, adicionar as fotos que você deseja ocultar para o álbum, para que você possa processá-las manualmente com mais facilidade.
Como alternativa, você pode definir o comentário de uma foto para incluir uma tag como "oculto" ou "ocultar" e criar um álbum inteligente com essa condição. Quando as fotos são processadas pelo computador, todas as fotos que ainda precisam ser ocultadas serão exibidas nesse álbum inteligente, que você pode processar e, em seguida, apagar o comentário. No entanto, manipular o comentário exigiria o AppleScript no seu fluxo de trabalho do Automator. Se você quiser usar esse método, adicione a tarefa Executar AppleScript no fluxo de trabalho e cole-a no comentário (* Seu script vai aqui *):
tell application "iPhoto"
set taggingText to "to hide" --Change this to your desired special word or phrase
repeat with anPhoto in input
tell anPhoto
set anComment to comment of anPhoto
set comment of anPhoto to anComment & ", " & taggingText
end tell
end repeat
end tell