Free Trial
Web API version
Licensing
Request A Quote
HAVE QUESTIONS OR NEED HELP? SUBMIT THE SUPPORT REQUEST FORM or write email to SUPPORT@BYTESCOUT.COM
Add 3D Annotations to PDF | VB.NET
Program.vb:
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" ' If you wish to load an existing document uncomment the line below And comment the Add page section instead ' pdfDocument.Load(".\existing_document.pdf") ' 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