Referencing preset with applescript

Question

I'd like to apply adjustment presets through an applescript.
Is there a way to have the applescript call them by their name?
I have a convoluted way to apply the presets, but it is cumbersome because the presets end up being referenced by a sequential number.
on importActionForVersions(input)
    tell application "Aperture"
        set adjustPreset to every image adjustment preset
        tell library 1
            repeat with i from 1 to count of input
                tell (item i of input)
                    try
                        if value of EXIF tag "ISOSpeedRating" is 1600 then
                            apply image adjustment preset (item 34 of adjustPreset)
                        else if value of EXIF tag "ISOSpeedRating" is 800 then
                            apply image adjustment preset (item 33 of adjustPreset)
                        end if
                    on error
                        log "image does not have a value for ISOSpeedRating"
                    end try
                end tell
            end repeat
        end tell
    end tell
end importActionForVersions
Thanks!

Answer 1

OK it was a struggle but here is at least a slightly more elegant solution.  I'd take any suggestions to improve it.
This example looks for presets named "ISO800" , "ISO1600" , "ISO3200" , and "ISO6400".
It currently only applies presets for images with an ISO rating of 800 or 1600
on importActionForVersions(input)
    tell application "Aperture"
        set adjustPreset to every image adjustment preset
     -- this associates the name of the preset to its location in the list  
         repeat with i from 1 to count of adjustPreset
            if name of (item i of adjustPreset) = "ISO800" then
                set i800 to i
            else if name of (item i of adjustPreset) = "ISO1600" then
                set i1600 to i
            else if name of (item i of adjustPreset) = "ISO3200" then
                set i3200 to i
            else if name of (item i of adjustPreset) = "ISO6400" then
                set i6400 to i
            end if
        end repeat
        --this section assigns a preset based on the iso value of the image
         tell library 1
            repeat with i from 1 to count of input
                tell (item i of input)
                    try
                        if value of EXIF tag "ISOSpeedRating" is 800 then
                            apply image adjustment preset (item ISO800 of adjustPreset)
                        else if value of EXIF tag "ISOSpeedRating" is 1600 then
                            apply image adjustment preset (item ISO1600 of adjustPreset)
                        end if
                    on error
                        log "image does not have a value for ISOSpeedRating"
                    end try
                end tell
            end repeat
        end tell
    end tell
end importActionForVersions