How to use the AddBaseView method with the Camera parameter ?

By Philippe Leefsma

Q:

I want to create a base drawing view with my own camera parameter. How to get the camera object and set its parameters to use with the "AddBaseView" method?

A:

The following VB.Net code sample illustrates the use of the Camera parameter with the "AddBaseView" method.

Note: The related Part or Assembly document has to be opened in Visible mode in order to retrieve the "Application.ActiveView.Camera" object.

The "ViewOrientation" parameter has to be "kArbitraryViewOrientation" in order to use a custom camera object.

    Sub CreateBaseViewWithCamera(ByVal app As Inventor.Application)

 

        ‘Open the part to insert in the drawing (Visible mode is required).

 

        Dim oPartDoc As PartDocument =

            app.Documents.Open("C:\Temp\Part1.ipt", True)

 

        ‘Get Camera object

        Dim oCamera As Camera = app.ActiveView.Camera

 

        ‘Set your Camera parameters

        oCamera.Eye = app.TransientGeometry.CreatePoint(0, 10, 10)

        oCamera.Target = app.TransientGeometry.CreatePoint(0, 0, 0)

        oCamera.UpVector = app.TransientGeometry.CreateUnitVector(0, 1, 0)

 

        ‘Open the Drawing doc

        Dim oDrawingDoc As DrawingDocument

        oDrawingDoc = app.Documents.Open(

            "C:\Temp\Drawing1.idw", True)

 

        Dim oSheet As Sheet

        oSheet = oDrawingDoc.Sheets.Item(1)

 

        ‘Position base view in middle of the sheet

        Dim oViewPos As Point2d

        oViewPos = app.TransientGeometry.CreatePoint2d(

            oSheet.Width / 2, oSheet.Height / 2)

 

        ‘Create view with parameters

        Dim oBaseView As DrawingView

        oBaseView = oSheet.DrawingViews.AddBaseView(

            oPartDoc,

            oViewPos,

            1,

            ViewOrientationTypeEnum.kArbitraryViewOrientation,

            DrawingViewStyleEnum.kHiddenLineDrawingViewStyle,

            "BaseView1",

            oCamera)

 

        ‘Close the part doc

        oPartDoc.Close()

 

    End Sub

<

p style=”line-height: normal;margin: 0in 0in 0pt” class=”MsoNormal”>