Get / Set Camera view

[NachoShaw]

Hi

i am looking for a piece of code that ca nhelp me achieve my task which is:

add a drawing view (manually for now)

use the custom view to rotate the model to a specific view

run some code to get the camera view from the drawing view and apply that view to all other views in a drawing sheet.

I have a bunch of different parts all on one sheet like a brochure and i need all of the views to have the exact same camera view. its very difficult to do manually....

is it possible to get a camera view and apply it to another view?

Thanks

[YuhanZhang]

Here is a VBA sample, you should have a drawing view placed on the first sheet in a drawing, also you should change the file path in the code for oModel:

Sub test()
    Dim oDrawing As DrawingDocument
    Set oDrawing = ThisApplication.ActiveDocument
    
    Dim oSheet As Sheet
    Set oSheet = oDrawing.Sheets(1)
    
    Dim oDrawingView As DrawingView
    Set oDrawingView = oSheet.DrawingViews(1)
    
    Dim oCamera As Camera
    Set oCamera = oDrawingView.Camera
    
    Dim oModel As Document
    Set oModel = ThisApplication.Documents.Open("C:\Temp\Part1.ipt", False)
    
    Dim oNewBase As DrawingView
    Set oNewBase = oSheet.DrawingViews.AddBaseView(oModel, oDrawingView.Center, 1, kArbitraryViewOrientation, kShadedDrawingViewStyle, , oCamera)
    
    Dim oPt As Point2d
    Dim dHeight As Double
    dHeight = oDrawingView.Center.Y / 2 + oNewBase.Center.Y / 2
    
    Set oPt = ThisApplication.TransientGeometry.CreatePoint2d(oDrawingView.Center.X, oDrawingView.Center.Y + dHeight)
    oNewBase.Center = oPt
End Sub

Hope this helps.