Selecting unused color swatches using applescript?

Question

I cannot seem to remove unused colors from my swatches palette... got any suggestions?..
here's a few sample of what i've done so far...
    --set ColorWell to every page item of group item 1 of layer "Image Layer" of current document as list
    --set ColorList to {} as list
    --set ColorList to name of every swatch of selection
    set ColorList to name of every swatch of imposition as list
    set ColorList2 to name of every swatch of current layer as list
    (*repeat with EachItem in ColorWell
        set ColorList to ColorList & (name of fill color of EachItem as string) as list
    end repeat*)
    --log ColorWell
    --log ColorList
    (*repeat with EachColor in ColorList
        if not (exists name of swatch EachColor) then
                delete swatch EachColor of current document
        end if
    end repeat*)
    (*repeat with EachColor in ColorList
        --if swatch EachColor exists then
        if page items of ImageLayer contains {fill color:EachColor} then
            return
        else
            delete swatch EachColor of current document
        end if
        delay 1
    end repeat*)
    (*set PossibleColor to 1
    repeat (count swatches of current document) times
        if swatch PossibleColor of ImageLayer exists then
            return
        else
            delete swatch PossibleColor of current document
        end if
        set PossibleColor to PossibleColor + 1
    end repeat*)
thanks...

Answer 1

Try this:
tell application "Adobe Illustrator"
set myswatches to every swatch of document 1
repeat with myswatchnum from (count of items in myswatches) to 1 by -1
set myswatch to item myswatchnum of myswatches
try
set myfilledpaths to (path items of document 1 whose fill color = (color of myswatch))
if myfilledpaths is {} then
set mystrokedpaths to (path items of document 1 whose stroke color = (color of myswatch))
if mystrokedpaths is {} then
try
delete swatch myswatchnum of document 1
end try
end if
end if
end try
end repeat
end tell