運用Essential Reporting在PDF文檔中添加3D文件

原文來自：http://www.evget.com/zh-CN/Info/catalog/17325.html

Essential Studio Reporting Edition中的Essential PDF是一個能從您的數據中產生Adobe PDF文件 的.NET庫。它具有一個成熟的對象模型，允許用任何.NET語言來輕鬆地創建PDF文件。它不依賴於任何外部條件。在Pdf 3D Annotation類的支持下，Essential PDF支持嵌入三維對象集合(如CAD軟件的對象)在PDF文件中。

下面的代碼示例演示瞭如何嵌入一個U3D文件。

[C#]

// Pdf 3D Annotation
Pdf3DAnnotation annot = new Pdf3DAnnotation(new RectangleF(10, 70, 150, 150), @"..\..\Data\AQuick Example.u3d");

// Create font, font style and brush.
Font f = new Font("Calibri", 11, FontStyle.Regular);
PdfFont font = new PdfTrueTypeFont(f, false);
PdfBrush brush = new PdfSolidBrush(Color.DarkBlue);
PdfBrush bgbrush = new PdfSolidBrush(Color.WhiteSmoke);
PdfColor color = new PdfColor(Color.Thistle);

page.Graphics.DrawRectangle(bgbrush, new RectangleF(10, 270, 150, 150));

// Pdf 3D Appearance
annot.Appearance = new PdfAppearance(annot);
annot.Appearance.Normal.Graphics.DrawString("Click to activate", font, brush, new PointF(40, 40));
annot.Appearance.Normal.Draw(page, new PointF(annot.Location.X, annot.Location.Y));

Pdf3DProjection projection = new Pdf3DProjection();
projection.ProjectionType = Pdf3DProjectionType.Perspective;

projection.FieldOfView = 10;
projection.ClipStyle = Pdf3DProjectionClipStyle.ExplicitNearFar;
projection.NearClipDistance = 10;

Pdf3DActivation activation = new Pdf3DActivation();
activation.ActivationMode = Pdf3DActivationMode.ExplicitActivation;
activation.ShowToolbar = false;
annot.Activation = activation;

Pdf3DBackground background = new Pdf3DBackground();
background.Color = color;

Pdf3DRendermode rendermode = new Pdf3DRendermode();
rendermode.Style = Pdf3DRenderStyle.Solid;

Pdf3DLighting lighting = new Pdf3DLighting();
lighting.Style = Pdf3DLightingStyle.Headlamp;

// Create the default view.
Pdf3DProjection projection1 = new Pdf3DProjection(Pdf3DProjectionType.Perspective);
projection1.FieldOfView = 50;
projection1.ClipStyle = Pdf3DProjectionClipStyle.ExplicitNearFar;
projection1.NearClipDistance = 10;

Pdf3DView defaultView = CreateView("Default View", new float[] { -0.382684f, 0.92388f, -0.0000000766026f, 0.18024f, 0.0746579f, 0.980785f, 0.906127f, 0.37533f, -0.19509f, -122.669f, -112.432f, 45.6829f }, 131.695f, background, projection, rendermode, lighting);

annot.Views.Add(defaultView);

// Add the pdf Annotation.
page.Annotations.Add(annot);

[VB.NET]

' Pdf 3D Annotation
Dim annot As Syncfusion.Pdf.Interactive.Pdf3DAnnotation = New Syncfusion.Pdf.Interactive.Pdf3DAnnotation(New RectangleF(10, 70, 150, 150), "..\..\Data\AQuick Example.u3d")

' Create font, font style and brush.
Dim f As Font = New Font("Calibri", 11, FontStyle.Regular)
Dim font As Syncfusion.Pdf.Graphics.PdfFont = New Syncfusion.Pdf.Graphics.PdfTrueTypeFont(f, False)
Dim brush As Syncfusion.Pdf.Graphics.PdfBrush = New Syncfusion.Pdf.Graphics.PdfSolidBrush(color.DarkBlue)
Dim bgbrush As Syncfusion.Pdf.Graphics.PdfBrush = New Syncfusion.Pdf.Graphics.PdfSolidBrush(color.WhiteSmoke)
Dim color As Syncfusion.Pdf.Graphics.PdfColor = New Syncfusion.Pdf.Graphics.PdfColor(color.Thistle)

page.Graphics.DrawRectangle(bgbrush, New RectangleF(10, 270, 150, 150))

' Pdf 3D Appearance
annot.Appearance = New PdfAppearance(annot)
annot.Appearance.Normal.Graphics.DrawString("Click to activate", font, brush, New PointF(40, 40))
annot.Appearance.Normal.Draw(page, New PointF(annot.Location.X, annot.Location.Y))

Dim projection As Syncfusion.Pdf.Interactive.Pdf3DProjection = New Syncfusion.Pdf.Interactive.Pdf3DProjection()
projection.ProjectionType = Pdf3DProjectionType.Perspective

projection.FieldOfView = 10
projection.ClipStyle = Pdf3DProjectionClipStyle.ExplicitNearFar
projection.NearClipDistance = 10

Dim activation As Syncfusion.Pdf.Interactive.Pdf3DActivation = New Syncfusion.Pdf.Interactive.Pdf3DActivation()
activation.ActivationMode = Pdf3DActivationMode.ExplicitActivation
activation.ShowToolbar = False
annot.Activation = activation

Dim background As Syncfusion.Pdf.Interactive.Pdf3DBackground = New Syncfusion.Pdf.Interactive.Pdf3DBackground()
background.Color = color

Dim rendermode As Syncfusion.Pdf.Interactive.Pdf3DRendermode = New Syncfusion.Pdf.Interactive.Pdf3DRendermode()
rendermode.Style = Pdf3DRenderStyle.Solid

Dim lighting As Syncfusion.Pdf.Interactive.Pdf3DLighting = New Syncfusion.Pdf.Interactive.Pdf3DLighting()
lighting.Style = Pdf3DLightingStyle.Headlamp

' Create the default view.
Dim projection1 As Syncfusion.Pdf.Interactive.Pdf3DProjection = New Syncfusion.Pdf.Interactive.Pdf3DProjection(Pdf3DProjectionType.Perspective)
projection1.FieldOfView = 50
projection1.ClipStyle = Pdf3DProjectionClipStyle.ExplicitNearFar
projection1.NearClipDistance = 10

Dim defaultView As Syncfusion.Pdf.Interactive.Pdf3DView = CreateView("Default View", New Single() {-0.382684F, 0.92388F, -0.0000000766026F, 0.18024F, 0.0746579F, 0.980785F, 0.906127F, 0.37533F, -0.19509F, -122.669F, -112.432F, 45.6829F}, 131.695F, background, projection, rendermode, lighting)

annot.Views.Add(defaultView)

' Add the pdf Annotation.
page.Annotations.Add(annot)