Scale Photoshop layer using AppleScript

Question

Obviously, this is a Mac PS issue.
I am trying to script scaling a Photoshop layer (a smart object layer) to a specified percentage that I calculate from a layout in InDesign.
However, I am stumped on the syntax I should use to actually get the layer to resize, or perhaps I don't know how to call out the layer properly.
Here is my code (it is very simple at this point in time:
tell application "Adobe InDesign CS6"
          set mySelect to selection
  --error trap to make sure I have graphic content selected
          tell active spread of active window
                    set thisBox to item 1 of mySelect
                    set HScale to the absolute horizontal scale of thisBox
          end tell
end tell
myScaleConversion(HScale)
set PSScaled to result as real
tell application "Adobe Photoshop CS6"
          set thisLayer to current layer of current document
          set scaleSet to {horizontal scale:PSScaled, vertical scale:PSScaled, anchor:"top left"}
  scale current layer of current document with scaleSet
end tell
on myScaleConversion(HScale)
          set ScaleRatio to 2.5 as real
          set PSScale to (ScaleRatio * HScale)
          return PSScale
end myScaleConversion
I would appreciate any help with this. I run this script and no error messages occur, but then again, nothing happens to the Photoshop layer I have targeted.

Answer 1

There are 2 things I see that are not right… top right should a compiled word pair from the apps dictionary… You have it as string…
Now anchor should be anchor position but I can't get this to compile inside your list… hum… if I take it out it works just fine…
tell application "Adobe InDesign CS5"
  activate
          set mySelect to selection
  --error trap to make sure I have graphic content selected
          tell active spread of active window
                    set thisBox to item 1 of mySelect
                    set HScale to the absolute horizontal scale of thisBox
          end tell
end tell
myScaleConversion(HScale)
set PSScaled to result as real
tell application "Adobe Photoshop CS5"
  activate
          set thisLayer to current layer of current document
  --set scaleSet to {horizontal scale:PSScaled, vertical scale:PSScaled, anchor position:top left}
  scale current layer of current document ¬
  horizontal scale PSScaled ¬
  vertical scale PSScaled ¬
  anchor position top left
end tell
on myScaleConversion(HScale)
          set ScaleRatio to 2.5 as real
          set PSScale to (ScaleRatio * HScale)
          return PSScale
end myScaleConversion