ByteScout PDF Suite – VB.NET – Add 3d annotations to pdf with pdf sdk

Home
/
Articles
/
ByteScout PDF Suite – VB.NET – Add 3d annotations to pdf with pdf sdk

printable version:
ByteScout-PDF-Suite-VB-NET-Add-3d-annotations-to-pdf-with-pdf-sdk.pdf

How to add 3d annotations to pdf with pdf sdk in VB.NET using ByteScout PDF Suite

This code in VB.NET shows how to add 3d annotations to pdf with pdf sdk with this how to tutorial

Sample source code below will display you how to manage a complex task like add 3d annotations to pdf with pdf sdk in VB.NET. ByteScout PDF Suite can add 3d annotations to pdf with pdf sdk. It can be applied from VB.NET. ByteScout PDF Suite is the set that includes 6 SDK products to work with PDF from generating rich PDF reports to extracting data from PDF documents and converting them to HTML. This bundle includes PDF (Generator) SDK, PDF Renderer SDK, PDF Extractor SDK, PDF to HTML SDK, PDF Viewer SDK and PDF Generator SDK for Javascript.

The following code snippet for ByteScout PDF Suite works best when you need to quickly add 3d annotations to pdf with pdf sdk in your VB.NET application. Just copy and paste the code into your VB.NET application’s code and follow the instructions. Further improvement of the code will make it more robust.

You can download free trial version of ByteScout PDF Suite from our website with this and other source code samples for VB.NET.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Program.vb

      Imports Bytescout.PDF

''' <summary>
''' This example demonstrates how to create 3D annotation.
''' </summary>
Class Program

    Shared Sub Main()

        ' Create new document
        Dim pdfDocument = New Document()
        pdfDocument.RegistrationName = "demo"
		pdfDocument.RegistrationKey = "demo"
        ' Add page
        Dim page = New Page(PaperFormat.A4)
        pdfDocument.Pages.Add(page)

        ' Add 3D annotation from .u3d file
        Dim model = New ThreeDData("box.u3d")
        Dim annotation = New ThreeDAnnotation(model, 100, 100, 200, 200)
        page.Annotations.Add(annotation)

        ' Save document to file
        pdfDocument.Save("result.pdf")

        ' Cleanup 
		pdfDocument.Dispose()

        ' Open document in default PDF viewer app
        Process.Start("result.pdf")

    End Sub

End Class