Spaced Out

[Bob Sneidar]

A simple object spacing script.

on spacedOut
  put 1 into mCnt
  put 12 into mSpace
  put the selectedObjects into theObjectList

  repeat for each line mLine in theObjectList

    if mCnt is 1 then -- it's the first object
      put the right of mLine into nextRight
      put mcnt + 1 into mCnt
      next repeat
    end if

    set the left of mLine to nextRight + mSpace
    put the right of mLine into nextRight 
    put mcnt + 1 into mcnt
  end repeat
end spacedOut