🚀 go-pugleaf

Well, what you know!

With the GREAT help from Olivier, here is the final script:



set myXPercentages to {25, 50, 75} 
--MakeGuidesByPercentage(margins).scpt  
--Places guides on a page based on a list of percentages of page margins height/page margins width.   
--   
--Enter the horizontal locations you want as percentages in the following list. 
--Enter the vertical locations you want as percentages in the following list.   
set myYPercentages to {25, 50, 75}

tell application "InDesign 2.0.2" 
	set myDocument to active document 
	tell myDocument 
		set myPage to page 1 
		set myPageHeight to page height of document preferences of myDocument 
		set myPageWidth to page width of document preferences of myDocument 
		set myMarginPreferences to margin preferences of myPage 
		set theLiveWidth to myPageWidth - (margin left of myMarginPreferences) - (margin right of myMarginPreferences) 
		set theLiveHeight to myPageHeight - (margin top of myMarginPreferences) - (margin bottom of myMarginPreferences) 
		tell page 1 of myDocument 
			repeat with myGuidePercent in myXPercentages 
				set myGuide to make guide with properties {orientation:vertical, location:((myGuidePercent * 0.01) * theLiveWidth) + (margin left of myMarginPreferences)} 
			end repeat 
			repeat with myGuidePercent in myYPercentages 
				set myGuide to make guide with properties {orientation:horizontal, location:((myGuidePercent * 0.01) * theLiveHeight) + (margin top of myMarginPreferences)} 
			end repeat 
		end tell 
	end tell 
end tell



Only sad thing is that I didn't learn to do this with handler/subroutine, but maybe this is impossible to do that way...

Kari