1. Open the attached document, which does have a page rotation of 270.
2. Draw some annotation on this and create a stamp from selection.
3. Create a new PDF at A1 size and Landscape.
4. Draw some annotation on this document and create a stamp from selection.
5. Open the attached document again and place both stamps, this works as it should and NO stamp rotation is added.
6. Add the below code.
7. Open the attached document again and place both stamps. You will notice that the stamp created from the blank landscape document is now rotated??
Code: Select all
ElseIf e.nEventID = nIDS(CInt(IDS.e_annots_inserted)) Then
Dim annotsEvent As PDFXEdit.IPXV_AnnotsEvent = DirectCast(e.pEvent, PDFXEdit.IPXV_AnnotsEvent)
If annotsEvent IsNot Nothing Then
Dim pSInt As PDFXEdit.IPXS_Inst = DirectCast(Me.docPreview.Inst.GetExtension("PXS"), PDFXEdit.IPXS_Inst)
Dim nID As Integer = Me.docPreview.Inst.Str2ID("op.annots.setProps", False)
Dim Op As PDFXEdit.IOperation = Me.docPreview.Inst.CreateOp(nID)
Dim input As PDFXEdit.ICabNode = Op.Params.Root("Input")
Dim annotsCnt As UInteger = annotsEvent.Items.Count
Dim annot As PDFXEdit.IPXC_Annotation = Nothing
For i As UInteger = 0 To annotsCnt - 1
annot = annotsEvent.Items(i)
input.Add().v = annot
Next
If input.Count = 0 Then
Return
End If
Dim options As PDFXEdit.ICabNode = Op.Params.Root("Options")
Try
options("Subject").v = "Process"
options("Author").v = "Bob Jones"
options("Mask").v = PXV_OpModifyAnnotMaskFlags.OpModifyAnnot_Author + PXV_OpModifyAnnotMaskFlags.OpModifyAnnot_Subject
Op.Do()
Catch ex As Exception
Console.WriteLine(convertErr(ex))
End Try
End If
Thanks
Simon