Wie kann ich in der Foto-App auf dem Mac Bilder ohne Schlagwort suchen?
In Aperture konnte ich alle Fotos suchen, die noch kein Schlagwort hatten.
Wie geht das in der Foto-App?
iMac mit Retina 5K display, iOS 11.0.3, Foto-App
Frage gekennzeichnet als
Beste Antwort
Fotos kann nur nach Fotos suchen, die ein Schlagwort haben. Du müsstest all Schlagworte aufzählen und nach "Schlagwort ist nicht ...." suchen.
Man kann aber ein AppleScript verwenden, um alle Fotos ohne Schlagwort zu finden. Ich habe im englischen Apple Support Forum so ein Skript veröffentlicht, siehe:
https://discussions.apple.com/docs/DOC-10291
Um es zu benutzen, wähle alle Fotos in Fotos aus, die du auf Schlagworte überprüfen willst.
Öffne das Skript in ScriptEditor. Dann drücke die Run Taste.
Das Skript geht die ausgewählten Fotos durch, und fügt dann jedes Foto ohne Schlagworte einem Album namens "missingKeywordsAlbum" zu.
-- --- ✄ ✄ ------------- Ab hier in den Script Editor kopieren ------------------
(* Find All Photos Without Keywords © Léonie
This script will scan the photos passed to it for keywords and add all photos without keywords to a standard album called missingKeywordsAlbum
To use this script, select a some photos in Photos to check for missing keyword.
Then press the "Run" button.
The photos can be passed to the script in two ways:
1. Either select photos while viewing the "All Photos" album; this works better than Moments or smart albums
2. Or collect the Photos in a top level defined album with a fixed name. This is safer when your Photos Library is an iCloud Photo Library.
If you want to select the photos without collecting them in an album, set the variable "ReadFromAlbum" to false
If you want to pass the photos in a toplevel album, set ReadFromAlbum to true and change the variable "theAlbumName" to the name of the album you are using.
*)
setReadFromAlbumtofalse
-- set this to true, if you want to pass the photos in a toplevel album
settheAlbumName to "PhotoDropBox" -- change this to the name of the album you will use
set imageSel to {}
setsaved_delimitertoAppleScript'stext item delimiters--save the delimiter
set missingalbumname to "missingKeywordsAlbum"
tell application "Photos"
activate
if (ReadFromAlbum) then -- the photos will be passed in a toplevel album named "PhotoDropBox"
try
if existscontainertheAlbumNamethen
set thePhotosBuffertocontainertheAlbumName
set imageSel to every media itemofthePhotosBuffer
else
error "Album " & theAlbumName & "does not exist"
end if
on error errTexttwonumbererrNumtwo
display dialog "Cannot open album: " & errNumtwo & return & errTexttwo
end try
else -- process the selected photos from the All Photos album
try
set imageSel to (get selection)
on error errTexttwonumbererrNumtwo
display dialog "Cannot get the selection: " & errNumtwo & return & errTexttwo
end try
end if
-- check, if the album or the selected photos do contain images
if imageSel is {} then
error "Please select some images."
else -- create an album for the photos without keywords
try
if existscontainermissingalbumnamethen
set kwatocontainermissingalbumname
else
set kwa to (makenewalbumnamedmissingalbumname)
end if
on error errTexttwonumbererrNumtwo
display dialog "Cannot open album missingKeywordsAlbum: " & errNumtwo & return & errTexttwo
end try
repeat with im in imageSel
try
tell im
--set the text item delimiter
set AppleScript'stext item delimiters to {", "} --use a comma and space as the delimiter
-- retrieve the keywords
set kws to its keywords as string
if (not (exists kws) or (kws is "missing value")) then
add {im} to kwa
end if
end tell
on error errText number errNum
display dialog "Error: " & errNum & return & errText & "Trying again"
try
delay 2 -- wait and try again
tell im
--set the text item delimiter
set AppleScript'stext item delimiters to {", "} --use a comma and space as the delimiter
-- retrieve the keywords
set kws to its keywords as string
if (not (exists kws) or (kws is "missing value")) then
add {im} to kwa
end if
end tell
on error errTexttwonumbererrNumtwo
display dialog "Skipping image due to repeated error: " & errNumtwo & return & errTexttwo
end try
end try
end repeat
end if
end tell
-- display dialog "Done"
setAppleScript'stext item delimiterstosaved_delimiter--restore the delimiter
return "Done"