AppleScript and Pages: Row Lines with Gutters

Row Lines with Gutters

Here’s a script for using lines to create a grid of gutter-separated rows:

Row Lines with Gutters

property defaultVerticalMargin : 36

property defaultHorizontalMargin : 36

property defaultgutterHeight : 12

property defaultrowCount : 6

tell application "Pages"

activate

set chosenPageSize to (choose from list {"Cancel", "A3", "A4", "A5", "B5", "US Letter", "US Legal", "Tabloid"} with prompt "Pick the page size:")

if chosenPageSize is false then error number -128

set chosenPageSize to chosenPageSize as string

if chosenPageSize is "A4" then

set thisPageDimensions to {595, 842}

else if chosenPageSize is "A3" then

set thisPageDimensions to {842, 1191}

else if chosenPageSize is "A5" then

set thisPageDimensions to {420, 595}

else if chosenPageSize is "B5" then

set thisPageDimensions to {499, 709}

else if chosenPageSize is "US Letter" then

set thisPageDimensions to {612, 792}

else if chosenPageSize is "US Legal" then

set thisPageDimensions to {612, 1008}

else if chosenPageSize is "Tabloid" then

set thisPageDimensions to {792, 1224}

end if

copy thisPageDimensions to {documentWidth, documentHeight}

set thisPrompt to "Enter the top margin height in pixels:"

set verticalTopMarginHeight to my promptForIntegerValue(thisPrompt, 0, documentHeight div 2, defaultVerticalMargin)

set thisPrompt to "Enter the bottom margin height in pixels:"

set verticalBottomMarginHeight to my promptForIntegerValue(thisPrompt, 0, documentHeight div 2, defaultVerticalMargin)

set thisPrompt to "Enter the left margin width in pixels:"

set sideLeftMarginWidth to my promptForIntegerValue(thisPrompt, 0, documentHeight div 2, defaultHorizontalMargin)

set thisPrompt to "Enter the right margin width in pixels:"

set sideRightMarginWidth to my promptForIntegerValue(thisPrompt, 0, documentHeight div 2, defaultHorizontalMargin)

set thisPrompt to "Enter the gutter height in pixels:"

set gutterHeight to my promptForIntegerValue(thisPrompt, 0, 200, defaultgutterHeight)

set thisPrompt to "Enter the row count:"

set rowCount to my promptForIntegerValue(thisPrompt, 2, 50, defaultrowCount)

set gutterCount to rowCount - 1

set editableAreaHeight to documentHeight - verticalTopMarginHeight - verticalBottomMarginHeight

set editableRowAreaHeight to editableAreaHeight - (gutterCount * gutterHeight)

set editableSegmentHeight to editableRowAreaHeight div rowCount

tell document 1

tell current page

set startPointHorizontal to sideLeftMarginWidth

set endPointHorizontal to documentWidth - sideRightMarginWidth

set thisStartPointVertical to verticalTopMarginHeight

set thisEndPointVertical to verticalTopMarginHeight

set repeatCount to rowCount + 1 -- add a line for the bottom

repeat with i from 1 to the repeatCount

-- MAKE LINE

set newLine to make new line

tell newLine

set start point to {startPointHorizontal, thisStartPointVertical}

set end point to {endPointHorizontal, thisEndPointVertical}

set locked to true

end tell

if i is not 1 and i is not repeatCount then

-- ADD GUTTER

set thisStartPointVertical to thisStartPointVertical + gutterHeight

set thisEndPointVertical to thisEndPointVertical + gutterHeight

set newLine to make new line

tell newLine

set start point to {startPointHorizontal, thisStartPointVertical}

set end point to {endPointHorizontal, thisEndPointVertical}

set locked to true

end tell

-- INCREMENT VERTICAL POSITION

set thisStartPointVertical to thisStartPointVertical + editableSegmentHeight

set thisEndPointVertical to thisEndPointVertical + editableSegmentHeight

else

-- INCREMENT VERTICAL POSITION

set thisStartPointVertical to thisStartPointVertical + editableSegmentHeight

set thisEndPointVertical to thisEndPointVertical + editableSegmentHeight

end if

end repeat

end tell

on promptForIntegerValue(thisPrompt, minimumValue, maximumValue, defaultValue)

tell application "Pages"

repeat

display dialog thisPrompt default answer (defaultValue as string)

100

try

101

set thisValue to (the text returned of the result) as integer

102

if thisValue is greater than or equal to minimumValue and thisValue is less than or equal to maximumValue then

103

return thisValue

104

end if

105

on error

106

beep

107

end try

108

end repeat

109

end tell

110

end promptForIntegerValue

TOP | CONTINUE

PAGES SCRIPTING

DISCLAIMER

THIS WEBSITE IS NOT HOSTED BY APPLE INC.

Mention of third-party websites and products is for informational purposes only and constitutes neither an endorsement nor a recommendation. MACOSXAUTOMATION.COM assumes no responsibility with regard to the selection, performance or use of information or products found at third-party websites. MACOSXAUTOMATION.COM provides this only as a convenience to our users. MACOSXAUTOMATION.COM has not tested the information found on these sites and makes no representations regarding its accuracy or reliability. There are risks inherent in the use of any information or products found on the Internet, and MACOSXAUTOMATION.COM assumes no responsibility in this regard. Please understand that a third-party site is independent from MACOSXAUTOMATION.COM and that MACOSXAUTOMATION.COM has no control over the content on that website. Please contact the vendor for additional information.