C# 在PDF中添加墨跡注釋Ink Annotation
PDF中的墨跡注釋(Ink Annotation),表現為徒手塗鴉式的形狀;該類型的注釋,可任意指定形狀頂點的位置及個數,通過指定的頂點,程式將連接各點繪製成平滑的曲線。下面,通過C#程式程式碼介紹如何在PDF中添加該注釋。
一、dll引用
步驟1:在Visual Studio中打開「解決方案資源管理器」- 滑鼠右鍵點擊「引用」-「管理NuGet包」。
步驟2:選擇「瀏覽」-在搜索框中輸入搜索內容,選擇搜索結果,點擊「安裝」。
步驟3:依次點擊「OK」-“接受”,然後等待程式完成安裝。
或者,通過官方渠道,下載包 Spire.PDF for .NET 到本地。解壓後,將BIN文件夾下的Spire.Pdf.dll文件引用至VS程式。
二、程式碼示例
添加註釋時,除了自定義各個點的位置及數量,也可以設置墨跡顏色、線條寬度、透明度、注釋的內容、名稱等。下面是程式碼實現的步驟:
- 創建PdfDocument類的對象,並通過PdfDocument.LoadFromFile(String fileName)方法載入PDF文檔。
- 通過PdfDocument.Pages[int Index]屬性獲取PDF指定頁面。
- 創建類型為int的對象集合,集合元素為各墨跡頂點。
- 創建PdfInkAnnotation類的實例。並通過該類提供的屬性設置墨跡顏色、寬度、注釋內容等格式。
- 調用PdfPageBase.AnnotationsWidget屬性提供的PdfAnnotationCollection.Add(PdfAnnotation annotation)方法添加註釋到PDF。
- 最後,通過PdfDocument.SaveToFile(string filename, FileFormat fileFormat)方法保存PDF文檔到指定路徑。
C#
using Spire.Pdf; using Spire.Pdf.Annotations; using System.Collections.Generic; using System.Drawing; namespace InkAnnotation { class Program { static void Main(string[] args) { //載入PDF文檔 PdfDocument pdf = new PdfDocument(); pdf.LoadFromFile("test.pdf"); //獲取第一頁 PdfPageBase pdfPage = pdf.Pages[0]; //設置墨跡坐標點位置 List<int[]> inkList = new List<int[]>(); int[] intPoints = new int[] { 370,700, 120,720, 110,760, 220,800, 270,790, 350,770, 350,670 }; inkList.Add(intPoints); //添加墨跡注釋到PDF頁面 PdfInkAnnotation inkannotation = new PdfInkAnnotation(inkList); inkannotation.Color = Color.MediumVioletRed; inkannotation.Border.Width = 6; inkannotation.Opacity = 0.5f; inkannotation.Text = "This is an ink annotation. "; inkannotation.Name = "Manager"; pdfPage.AnnotationsWidget.Add(inkannotation); //保存文檔 Pdf.SaveToFile("AddInkAnnotation.pdf",FileFormat.PDF); System.Diagnostics.Process.Start("AddInkAnnotation.pdf"); } } }
vb.net
Imports Spire.Pdf Imports Spire.Pdf.Annotations Imports System.Collections.Generic Imports System.Drawing Namespace InkAnnotation Class Program Private Shared Sub Main(args As String()) '載入PDF文檔 Dim pdf As New PdfDocument() pdf.LoadFromFile("test.pdf") '獲取第一頁 Dim pdfPage As PdfPageBase = pdf.Pages(0) '設置墨跡坐標點位置 Dim inkList As New List(Of Integer())() Dim intPoints As Integer() = New Integer() {370, 700, 120, 720, 110, 760, _ 220, 800, 270, 790, 350, 770, _ 350, 670} inkList.Add(intPoints) '添加墨跡注釋到PDF頁面 Dim inkannotation As New PdfInkAnnotation(inkList) inkannotation.Color = Color.MediumVioletRed inkannotation.Border.Width = 6 inkannotation.Opacity = 0.5F inkannotation.Text = "This is an ink annotation. " inkannotation.Name = "Manager" pdfPage.AnnotationsWidget.Add(inkannotation) '保存文檔 pdf.SaveToFile("AddInkAnnotation.pdf", FileFormat.PDF) End Sub End Class End Namespace
注釋效果:
—End—