Crop box in pdf

Question

Anyone know how i can get crop box or bleed box from a pdf in Applescript ?
not pagesize, but bleed - or crop box

Answer 1

Actally i guess im after the trim box :-)
this script is starting to look like something i can use.
this gives me the right box in mm
hopefully I can use this in my Filemaker soloution.
the idea is to drop a pdf file in and make the magic happend..
register the printjob, impose it and print it, and put out an invoice.
on run
          set fs to choose file of type "com.adobe.pdf" with prompt "Select one or more PDF files to process:" with multiple selections allowed
          my process_files_(fs)
end run
on open fs
          my process_files_(fs)
end open
on process_files_(fs)
          repeat with f in fs
                    tell application "System Events" to set finfo to the properties of f
                    if kind of finfo is "Folder" then
                              tell application "Finder" to set dirList to (items in f) as alias list
                              do shell script "echo Directory: " & name of finfo & " >> $HOME/Desktop/List.txt"
  process_files_(dirList) -- recurse directories
                    else if tolower(«class extn» of finfo) is not equal to "pdf" then
                              tell me to activate
                              tell me to display dialog (name of finfo & " is not a PDF file") with icon caution giving up after 2
                    else
                              my process_PDF_(f)
                    end if
          end repeat
end process_files_
on process_PDF_(f)
  do shell script "echo " & space & trimbox_(quoted form of POSIX path of f) & return
end process_PDF_
on tolower(theText)
          try
                    set newText to do shell script "echo" & space & theText & space & "|  tr \"[:upper:]\" \"[:lower:]\""
          end try
          return newText
end tolower
on trimbox_(f)
          set tb to do shell script "export VERSIONER_PYTHON_PREFER_32_BIT=yes;
/usr/bin/env python -c  'import os, sys, glob, Quartz
this_pdf = Quartz.CGPDFDocumentCreateWithProvider( Quartz.CGDataProviderCreateWithFilename('\"" & f & "\"') )
page = Quartz.CGPDFDocumentGetPage(this_pdf, 1)
r = Quartz.CGPDFPageGetBoxRect(page, Quartz.kCGPDFTrimBox)
print \"%.4f x %.4f\" % (r.size.width*0.352777778 , r.size.height*0.352777778)
Quartz.CGPDFContextClose(this_pdf)'  "
          return tb
end trimbox_