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.
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