AppleScript - Get links from one layer

Question

I need to make a list of linked files from one InDesign layer only but can't figure out how.
This is my base that works just fine but gives me a list of all linked files in my document.
set layFilesLinksList to every link of document 1
I have tried this
set linksList to every link of document 1 whose active layer is "Images"
set linksList to every link of layer "Images" of document 1
Any other suggestions?

Answer 1

Thanks!
We are a bit on the way, if i run your script as stand alone i get one of many images in the layer "Images"
But when implementing this code in my bigger script i get nothing.
This works as before, i get every link in my document.
on createMiniature()
  tell application "Adobe InDesign CS5"
  set user interaction level of script preferences to never interact
  activate
  set myLinks to every link of document 1
  -- Images from one layer only workaround --
  tell active document
  if exists layer "Images" then set layerImages to layer "Images"
  set grphicBoxs to all graphics of layerImages
  set myLinks to {}
  repeat with i in grphicBoxs
  set iLink to item link of i
  set pathLink to file path of iLink
  set end of myLinks to pathLink
  end repeat
  return myLinks
  end tell
  -- End Images from one layer only workaround --
  repeat with thisFile in myLinks
  set ruler origin of view preferences of document 1 to spread origin
  set zero point of document 1 to {0, 0}
  set zeroX to 0
  set zeroY to ((page height of document preferences of document 1) + 5)
  set pageHeight to ((page height of document preferences of document 1))
  set pageWidth to ((page width of document preferences of document 1))
  set maxHeight to 13
  set theScale to maxHeight / pageHeight
  set imageXPos to ((item 2 of geometric bounds of parent of parent of thisFile))
  set imageYPos to ((item 1 of geometric bounds of parent of parent of thisFile))
  set imageXPos2 to ((item 4 of geometric bounds of parent of parent of thisFile))
  set imageYPos2 to ((item 3 of geometric bounds of parent of parent of thisFile))
  set imageWidth to imageXPos2 - imageXPos
  set imageHeight to imageYPos2 - imageYPos
  set theName to name of thisFile
  set filePath to ((file path of thisFile))
  set theImgPath to quoted form of POSIX path of filePath
  set imageStatus to ""
  set imageStatus to do shell script ("/usr/bin/exiftool -xmp:Instructions -b " & theImgPath)
  if imageStatus = "" then
  set imageStatus to "Paper"
  end if
  set newBox to (make new rectangle of document 1 with properties {geometric bounds:{zeroY + imageYPos * theScale, zeroX + imageXPos * theScale, (zeroY + (imageYPos + imageHeight) * theScale), zeroX + (imageXPos + imageWidth) * theScale}, stroke weight:0.2, stroke color:"Black", fill color:imageStatus, active layer:StatusLayer})
  set opacity of blending settings of fill transparency settings of newBox to 60
  end repeat
  set the properties of layer StatusLayer of document 1 to {visible:false}
  end tell
end createMiniature
Changing the script to this gives me a blank result with no images
on createMiniature()
  tell application "Adobe InDesign CS5"
  set user interaction level of script preferences to never interact
  --activate
  --set myLinks to every link of document 1
  -- Images from one layer only workaround --
  tell active document
  if exists layer "Images" then set layerImages to layer "Images"
  set grphicBoxs to all graphics of layerImages
  set myLinks to {}
  repeat with i in grphicBoxs
  set iLink to item link of i
  set pathLink to file path of iLink
  set end of myLinks to pathLink
  end repeat
  return myLinks
  end tell
  -- End Images from one layer only workaround --
  repeat with thisFile in myLinks
  set ruler origin of view preferences of document 1 to spread origin
  set zero point of document 1 to {0, 0}
  set zeroX to 0
  set zeroY to ((page height of document preferences of document 1) + 5)
  set pageHeight to ((page height of document preferences of document 1))
  set pageWidth to ((page width of document preferences of document 1))
  set maxHeight to 13
  set theScale to maxHeight / pageHeight
  set imageXPos to ((item 2 of geometric bounds of parent of parent of thisFile))
  set imageYPos to ((item 1 of geometric bounds of parent of parent of thisFile))
  set imageXPos2 to ((item 4 of geometric bounds of parent of parent of thisFile))
  set imageYPos2 to ((item 3 of geometric bounds of parent of parent of thisFile))
  set imageWidth to imageXPos2 - imageXPos
  set imageHeight to imageYPos2 - imageYPos
  set theName to name of thisFile
  set filePath to ((file path of thisFile))
  set theImgPath to quoted form of POSIX path of filePath
  set imageStatus to ""
  set imageStatus to do shell script ("/usr/bin/exiftool -xmp:Instructions -b " & theImgPath)
  if imageStatus = "" then
  set imageStatus to "Paper"
  end if
  set newBox to (make new rectangle of document 1 with properties {geometric bounds:{zeroY + imageYPos * theScale, zeroX + imageXPos * theScale, (zeroY + (imageYPos + imageHeight) * theScale), zeroX + (imageXPos + imageWidth) * theScale}, stroke weight:0.2, stroke color:"Black", fill color:imageStatus, active layer:StatusLayer})
  set opacity of blending settings of fill transparency settings of newBox to 60
  end repeat
  set the properties of layer StatusLayer of document 1 to {visible:false}
  end tell
end createMiniature