Indesign - Crop placed pdf file?

[Matt_McGregor]

[format][/format]Hi All,

Working on a script to assemble pdf pages on an Indesign page. I can create the document, place the pdf, BUT can’t crack the syntax in AS to crop the placed file.

I have tried changing both the ‘geometric bounds’ and ‘visible bounds’ properties for the placed item.

Any help appreciated. Thanks.

set mypdf to "System 10.10:sample.pdf" as alias

tell application "Adobe InDesign CS6"
	activate
	set mydoc to make new document
	tell mydoc
		tell page 1
			set myplacedfile to place mypdf
			set myplacefileprop to the properties of item 1 of myplacedfile
			set {vX, vY, vW, vH} to the visible bounds of myplacefileprop
			-- display dialog {vX, vY, vW, vH} as string giving up after 2
			set visible bounds of myplacefileprop to {vX + 10, vY, vW - 10, vH}
			set {gX, gY, gW, gH} to the geometric bounds of myplacefileprop
			-- display dialog {gX, gY, gW, gH} as string giving up after 2
			set geometric bounds of myplacefileprop to {gX + 10, gY, gW - 10, gH}
		end tell
	end tell
	
end tell

Ps. where is the control for inserting images into a post. Thanks.

Model: MacPro 6.1
AppleScript: 2.4
Browser: Safari 603.1.30
Operating System: Mac OS X (10.10)

[EricLipton]

Hi, a while ago i made this script. Maybe its what you’re looking for?

set thePDF to (choose file)

set mychoice to (choose from list {“Doc”, “Doc incl afloop”, “Doc incl afloop en snijtekens”} with prompt “Hoe wilt u de pdf importeren?” default items “None” OK button name {“Ok”} cancel button name {“Annuleer”})

if mychoice is false then
error number -128 – user canceled

else if mychoice contains “Doc” then
tell application “Adobe Acrobat Pro”
open thePDF with invisible
set pageCount to number of pages of document 1
set {x5, y5, x6, y6} to trim box of page 1 of document 1 – pag zndr afloop en zndr snij
set {tbBreedte, tbHoogte} to {(x6 - x5), (y5 - y6)}
close document 1
end tell
tell application “Adobe InDesign CS6”
activate
set newDoc to make document
set horizontal measurement units of view preferences of newDoc to millimeters
set vertical measurement units of view preferences of newDoc to millimeters
set page width of document preferences of newDoc to (tbBreedte / 72) * 25.4
set page height of document preferences of newDoc to (tbHoogte / 72) * 25.4
zoom window 1 of newDoc given fit spread
set pages per document of document preferences of newDoc to (pageCount as number)
with timeout of 1200 seconds
repeat with i from 1 to pageCount
set active spread of window 1 to parent of page i of newDoc
set page number of PDF place preferences to i
set PDF crop of PDF place preferences to crop trim
set transparent background of PDF place preferences to false
place thePDF on page i of newDoc
end repeat
end timeout
end tell

else if mychoice contains “Doc incl afloop” then
tell application “Adobe Acrobat Pro”
open thePDF with invisible
set pageCount to number of pages of document 1
set {x3, y3, x4, y4} to bleed box of page 1 of document 1 – pag met afloop en zndr snij
set {bbBreedte, bbHoogte} to {(x4 - x3), (y3 - y4)}
close document 1
end tell
tell application “Adobe InDesign CS6”
activate
set newDoc to make document
set horizontal measurement units of view preferences of newDoc to millimeters
set vertical measurement units of view preferences of newDoc to millimeters
set page width of document preferences of newDoc to (bbBreedte / 72) * 25.4
set page height of document preferences of newDoc to (bbHoogte / 72) * 25.4
zoom window 1 of newDoc given fit spread
set pages per document of document preferences of newDoc to (pageCount as number)
with timeout of 1200 seconds
repeat with i from 1 to pageCount
set active spread of window 1 to parent of page i of newDoc
set page number of PDF place preferences to i
set PDF crop of PDF place preferences to crop bleed
set transparent background of PDF place preferences to false
place thePDF on page i of newDoc
end repeat
end timeout
end tell

else if mychoice contains “Doc incl afloop en snijtekens” then
tell application “Adobe Acrobat Pro”
open thePDF with invisible
set pageCount to number of pages of document 1
set {x1, y1, x2, y2} to crop box of page 1 of document 1 – pag met afloop en met snij
set {cbBreedte, cbHoogte} to {(x2 - x1), (y1 - y2)}
close document 1
end tell
tell application “Adobe InDesign CS6”
activate
set newDoc to make document
set horizontal measurement units of view preferences of newDoc to millimeters
set vertical measurement units of view preferences of newDoc to millimeters
set page width of document preferences of newDoc to (cbBreedte / 72) * 25.4
set page height of document preferences of newDoc to (cbHoogte / 72) * 25.4
zoom window 1 of newDoc given fit spread
set pages per document of document preferences of newDoc to (pageCount as number)
with timeout of 1200 seconds
repeat with i from 1 to pageCount
set active spread of window 1 to parent of page i of newDoc
set page number of PDF place preferences to i
set PDF crop of PDF place preferences to crop PDF
set transparent background of PDF place preferences to false
place thePDF on page i of newDoc
end repeat
end timeout
end tell
end if

Greetz, Eric

[Matt_McGregor]

Hi Mark,

Thanks for the response, I’m sorry I not following your formula. I understand my naming of variables for the co-ordinates is incorrect. H, W are wrong, as you pointed out these are the extremities of the rectangle at opposite to the point of origin. I’ve changed the variables to tlY, tlY, brY, brX (top left Y, top left X … etc) and now tried this :

tell application "Adobe InDesign CS6"
	activate
	set mydoc to make new document
	tell mydoc
		tell page 1
			set myplacedfile to place mypdf
			set myplacefileprop to the properties of item 1 of myplacedfile
			
			set {tlY, tlX, brY, brX} to the geometric bounds of myplacefileprop
			display dialog "DEFAULT Top Left Y :" & tlY & " Top Left X :" & tlX & " Bottom Right Y :" & brY & " Bottom Right X :" & brX
			set geometric bounds of myplacefileprop to {(tlY + 10), (tlX + 10), (brY - 10), (brX - 10)}
			display dialog "NEW Geo Bounds Top Left Y :" & tlY & " Top Left X :" & tlX & " Bottom Right Y :" & brY & " Bottom Right X :" & brX
		end tell
	end tell
	
end tell

BUT the values don’t calculate with +10 & -10

Then I tried calculating the variable outside of the set geo bound command with this …

tell application "Adobe InDesign CS6"
	activate
	set mydoc to make new document
	tell mydoc
		tell page 1
			set myplacedfile to place mypdf
			set myplacefileprop to the properties of item 1 of myplacedfile
			
			set {tlY, tlX, brY, brX} to the geometric bounds of myplacefileprop
			display dialog "DEFAULT Top Left Y :" & tlY & " Top Left X :" & tlX & " Bottom Right Y :" & brY & " Bottom Right X :" & brX
			
			set tlY to tlY + 10
			set tlX to tlX + 10
			set brY to brY + 10
			set brX to brX + 10
			display dialog tlY giving up after 1
			display dialog tlX giving up after 1
			display dialog brY giving up after 1
			display dialog brX giving up after 1
			
			set geometric bounds of myplacefileprop to {tlY, tlX, brY, brX}
			display dialog "NEW Geo Bounds Top Left Y :" & tlY & " Top Left X :" & tlX & " Bottom Right Y :" & brY & " Bottom Right X :" & brX
		end tell
	end tell
	
end tell

The numbers changed to what I require, essentially shrinking the geometry box, but this was NOT reflected on the rectangle on the indesign page. (Ie. The box was the same size)

What I missing here? Could you please demonstrate the syntax that will shrink the Placed PDF frame by 10mm (Eg) on each edge.

Thanks in Advance.

[Matt_McGregor]

Hi Eric,

Thanks for your script, it works for changing (or setting) the page box to either trim or crop, by setting this in PDF import setting.

What I am trying to achieve is to bring 2 pages into InDesign with trims and bleed (Print ready files) then adjust the spine edges on the page boxes (or rectangles) so that they line up as a Double Page Spread.

To do this my larger script opens the separate pages in Acrobat and measures the trim boxes, so that even 2 pages with different size widths can be imposed (or laid out) in Indesign with the inside trim edges of the pages butting together.
Ie. reading as a spread.

Based on your scripts, I could change the media & bleed boxes on the 2 pages in Acrobat, but I really what to be able to control this in Indesign.

[EricLipton]

Hi, not quite sure if i understand what you mean, but is this of any help?

– pdf plaatsen op enkele pag incl. afloop
set thePDF to (choose file)
tell application “Adobe Acrobat Pro”
open thePDF with invisible
set pageCount to number of pages of document 1
set {x1, y1, x2, y2} to bleed box of page 1 of document 1 – pag met afloop en zndr snij
set {bbBreedte, bbHoogte} to {(x2 - x1), (y1 - y2)}
set {x5, y5, x6, y6} to trim box of page 1 of document 1 – pag zndr afloop en zndr snij
set {tbBreedte, tbHoogte} to {(x6 - x5), (y5 - y6)}
close document 1
end tell

tell application “Adobe InDesign CS6”
activate
set newDoc to make document
set horizontal measurement units of view preferences of newDoc to millimeters
set vertical measurement units of view preferences of newDoc to millimeters
set page width of document preferences of newDoc to (bbBreedte / 72) * 25.4
set page height of document preferences of newDoc to (bbHoogte / 72) * 25.4
zoom window 1 of newDoc given fit spread
set pages per document of document preferences of newDoc to (pageCount as number)

repeat with i from 1 to pageCount
	set active spread of window 1 to parent of page i of newDoc
	set page number of PDF place preferences to i
	set PDF crop of PDF place preferences to crop bleed
	set transparent background of PDF place preferences to false
	place thePDF on page i of newDoc
end repeat

set page width of document preferences of newDoc to (tbBreedte / 72) * 25.4
set page height of document preferences of newDoc to (tbHoogte / 72) * 25.4
set pageWidth to page width of document preferences of document 1
set pageHeight to page height of document preferences of document 1

set mgDialog to make dialog with properties {name:"Afloop"}
tell mgDialog
	tell (make dialog column)
		tell (make border panel)
			tell (make dialog column)
				make static text with properties {static label:"Wilt u het document als spreads? ", min width:140}
			end tell
		end tell
		set mgResult to show mgDialog
		if mgResult is true then
			destroy mgDialog
		else
			error number -128
		end if
		
		tell newDoc
			set i to 1 -- start oneven pagina's
			repeat until i > (count pages)
				tell page i to tell page item 1 to set geometric bounds to {-3, 0, (pageHeight + 3), (pageWidth + 3)}
				set i to i + 2
			end repeat
			
			set i to 2 -- start even pagina's
			repeat until i > (count pages)
				tell page i to tell page item 1 to set geometric bounds to {-3, -3, (pageHeight + 3), pageWidth}
				set i to i + 2
			end repeat
		end tell
	end tell
end tell
tell document 1 to set properties of document preferences to {facing pages:true}
tell document 1 to set properties of view preferences to {ruler origin:page origin}

end tell

Kind regards, Eric

[Marc_Anthony]

Hi. I stated that you must supply a delta, or the difference; your post #4 now indicates this is 10mm, so let’s go with that. You must also have a height and width to adjust the dimensions.

set |∆| to -10 --desired change, or delta (∆ is the Greek letter for this); a negative number will crop; a positive number will pad

tell application "Adobe InDesign CS3"'s document 1
	tell view preferences to set {horizontal measurement units, vertical measurement units} to {millimeters, millimeters} --optional, depending on existing prefs
	set {Y1, X1, y2, x2} to page item 1's geometric bounds --refer to the target rectangle
	set {theHeight, theWidth} to {y2 - Y1, x2 - X1} --given math for arriving at height and width
	set rectangle 1's geometric bounds to {Y1 - |∆|, X1 - |∆|, (Y1 + theHeight + |∆|), (X1 + theWidth + |∆|)} --given math for dimension change
end tell