property NSSortDescriptor : a reference to current application’s NSSortDescriptor
property NSArray : a reference to current application’s NSArray
property NSSet : a reference to current application’s NSSet
property |NSURL| : a reference to current application’s |NSURL|
property PDFDocument : a reference to current application’s PDFDocument

set inFile to (choose file of type {"pdf"} with prompt "Choose your PDF files:")
set targPageList to {1, 3, 5, 7, -1, -2}

set pRes to removeSpecificPagesFromPDF(inFile, targPageList) of me

–指定PDF書類の複数ページの一括削除
on removeSpecificPagesFromPDF(inFileAlias, targPageNumList as list)
　　set inNSURL to |NSURL|’s fileURLWithPath:(POSIX path of inFileAlias)
　　set theDoc to PDFDocument’s alloc()’s initWithURL:inNSURL
　　
　　–削除対象ページリストをユニーク化して降順ソート（後方から削除）
　　set pRes to theDoc’s pageCount()
　　set t3List to relativeToAbsNumList(targPageNumList, pRes) of me
　　
　　repeat with i in t3List
　　　　copy i to targPageNum
　　　　(theDoc’s removePageAtIndex:(targPageNum – 1))
　　end repeat
　　
　　–Overwrite Exsiting PDF
　　set aRes to (theDoc’s writeToURL:inNSURL) as boolean
　　
　　return aRes
end removeSpecificPagesFromPDF

–絶対ページと相対ページが混在した削除対象ページリストを絶対ページに変換して重複削除して降順ソート
on relativeToAbsNumList(aList, aMax)
　　set newList to {}
　　
　　repeat with i in aList
　　　　set j to contents of i
　　　　if i < 0 then
　　　　　　set j to aMax + j
　　　　end if
　　　　
　　　　if (j ≤ aMax) and (j is not equal to 0) then
　　　　　　set the end of newList to j
　　　　end if
　　end repeat
　　
　　set t1List to my uniquify1DList(newList, true)
　　set t2List to my sort1DNumList:t1List ascOrder:false
　　
　　return t2List
end relativeToAbsNumList

on absNum(q)
　　if q is less than 0 then set q to –q
　　return q
end absNum

–1D/2D Listをユニーク化
on uniquify1DList(theList as list, aBool as boolean)
　　set aArray to NSArray’s arrayWithArray:theList
　　set bArray to aArray’s valueForKeyPath:"@distinctUnionOfObjects.self"
　　return bArray as list
end uniquify1DList

–Sort 1-Dimension List（String Number List）
on sort1DNumList:theList ascOrder:aBool
　　tell NSSet to set theSet to setWithArray_(theList)
　　tell NSSortDescriptor to set theDescriptor to sortDescriptorWithKey_ascending_("floatValue", aBool)
　　set sortedList to theSet’s sortedArrayUsingDescriptors:{theDescriptor}
　　return (sortedList) as list
end sort1DNumList:ascOrder:

property |NSURL| : a reference to current application’s |NSURL|
property PDFDocument : a reference to current application’s PDFDocument

set inFile to (choose file of type {"pdf"} with prompt "Choose your PDF files:")
set targPage to 7

set pRes to removeSpecificPageInPDF(inFile, targPage) of me

on removeSpecificPageInPDF(inFileAlias, targPageNum)
　　set inNSURL to |NSURL|’s fileURLWithPath:(POSIX path of inFileAlias)
　　set theDoc to PDFDocument’s alloc()’s initWithURL:inNSURL
　　
　　set pRes to theDoc’s pageCount()
　　if absNum(targPageNum) of me > pRes or targPageNum = 0 then
　　　　error "PDF Page Range error. This PDF document has " & (pRes as string) & " pages. But you pointed " & (targPageNum as string) & " page from your script. " & return & " (available abs range :1…" & (pRes as string) & ", relative range: -1…-" & (pRes as string) & ")"
　　end if
　　
　　–Allow Relative Page Num ( -1 = the last page)
　　if targPageNum ≤ 0 then
　　　　set targPageNum to pRes + targPageNum + 1
　　end if
　　theDoc’s removePageAtIndex:(targPageNum – 1)
　　
　　–Overwrite Exsiting PDF
　　set aRes to (theDoc’s writeToURL:inNSURL) as boolean
　　
　　return aRes
end removeSpecificPageInPDF

set aHFSPath to (choose file of type {"com.adobe.pdf"} with prompt "Choose a PDF with Annotation")
set aPOSIX to POSIX path of aHFSPath
set aURL to (current application’s |NSURL|’s fileURLWithPath:aPOSIX)

set aPDFdoc to current application’s PDFDocument’s alloc()’s initWithURL:aURL
set pCount to aPDFdoc’s pageCount()

set firstPage to (aPDFdoc’s pageAtIndex:0)
–>　　(PDFPage) PDFPage, label 1

set anoList to (firstPage’s annotations()) as list
if anoList = {missing value} then return –指定PDF中にAnotationが存在しなかった
log anoList
(*
{(PDFAnnotationMarkup) Type: ’Highlight’, Bounds: (81, 624) [434, 53]
, ​​​​​(PDFAnnotationSquare) Type: ’Square’, Bounds: (50, 419) [212, 162]
, ​​​​​(PDFAnnotationSquare) Type: ’Square’, Bounds: (301, 107) [244, 484]
​​​}
*)

repeat with i in anoList
　　set aBounds to i’s |bounds|()
　　
　　log aBounds
　　(* {origin:{x:80.79, y:624.4106}, size:{width:433.6944, height:52.8918}} *)
　　(* {origin:{x:50.05553, y:419.1671}, size:{width:212.27807, height:162.3308}} *)
　　(* {origin:{x:300.6213, y:106.8405}, size:{width:244.0961, height:484.4566}} *)
　　
end repeat

set aHFSPath to (choose file of type {"com.adobe.pdf"} with prompt "Choose a PDF with Annotation")
set aPOSIX to POSIX path of aHFSPath
set aURL to (current application’s |NSURL|’s fileURLWithPath:aPOSIX)

set aPDFdoc to current application’s PDFDocument’s alloc()’s initWithURL:aURL
set pCount to aPDFdoc’s pageCount()

set firstPage to (aPDFdoc’s pageAtIndex:0)

set anoList to (firstPage’s annotations()) as list

repeat with i in anoList
　　(firstPage’s removeAnnotation:i)
end repeat

set aHFSPath to (choose file of type {"com.adobe.pdf"} with prompt "Choose a PDF with Annotation")
set aPOSIX to POSIX path of aHFSPath
set aURL to (current application’s |NSURL|’s fileURLWithPath:aPOSIX)

set aPDFdoc to current application’s PDFDocument’s alloc()’s initWithURL:aURL
set pCount to aPDFdoc’s pageCount()

repeat with ii from 0 to (pCount – 1)
　　set firstPage to (aPDFdoc’s pageAtIndex:ii)
　　set anoList to (firstPage’s annotations()) as list
　　repeat with i in anoList
　　　　(firstPage’s removeAnnotation:i)
　　end repeat
end repeat

set aHFSPath to (choose file of type {"com.adobe.pdf"} with prompt "Select PDF")
set aPOSIX to POSIX path of aHFSPath
set aURL to (current application’s |NSURL|’s fileURLWithPath:aPOSIX)

set aPDFdoc to current application’s PDFDocument’s alloc()’s initWithURL:aURL
set pCount to aPDFdoc’s pageCount()
set aPage to aPDFdoc’s pageAtIndex:0

set firstPage to (aPDFdoc’s pageAtIndex:0)

–Remove Annotation
my removeAnnotationFromPage:firstPage –Call by Reference

–Get PDF size by Point
set aBounds to aPage’s boundsForBox:(current application’s kPDFDisplayBoxMediaBox)
set aSize to |size| of aBounds

–Add Annotation
repeat with xNum from 30 to ((width of aSize) – 30) by 50
　　repeat with yNum from 30 to ((height of aSize) – 30) by 50
　　　　set squAnn to (current application’s PDFAnnotationSquare’s alloc()’s initWithBounds:{origin:{x:xNum, y:yNum}, |size|:{width:40, height:40}})
　　　　(squAnn’s setValue:(current application’s NSColor’s blueColor()) forAnnotationKey:(current application’s kPDFAnnotationKey_Color))
　　　　(squAnn’s setValue:(current application’s NSColor’s clearColor()) forAnnotationKey:(current application’s kPDFAnnotationKey_InteriorColor))
　　　　(firstPage’s addAnnotation:squAnn)
　　end repeat
end repeat

–Save It
aPDFdoc’s writeToFile:aPOSIX

set aHFSPath to (choose file of type {"com.adobe.pdf"} with prompt "Select PDF")
set aPOSIX to POSIX path of aHFSPath
set aURL to (current application’s |NSURL|’s fileURLWithPath:aPOSIX)

set aPDFdoc to current application’s PDFDocument’s alloc()’s initWithURL:aURL
set pCount to aPDFdoc’s pageCount()
set aPage to aPDFdoc’s pageAtIndex:0

set firstPage to (aPDFdoc’s pageAtIndex:0)

–Remove Annotation
my removeAnnotationFromPage:firstPage –Call by Reference

–Get PDF size by Point
set aBounds to aPage’s boundsForBox:(current application’s kPDFDisplayBoxMediaBox)
set aSize to |size| of aBounds

–Add Annotation
repeat with xNum from 30 to ((width of aSize) – 30) by 25
　　repeat with yNum from 30 to ((height of aSize) – 30) by 25
　　　　set cAnn to (current application’s PDFAnnotationCircle’s alloc()’s initWithBounds:{origin:{x:xNum, y:yNum}, |size|:{width:20, height:20}})
　　　　(cAnn’s setValue:(current application’s NSColor’s redColor()) forAnnotationKey:(current application’s kPDFAnnotationKey_Color))
　　　　(firstPage’s addAnnotation:cAnn)
　　end repeat
end repeat

–Save It
aPDFdoc’s writeToFile:aPOSIX