Crop Drawing view through API

[Mario-Villada]

Is there any way to do a Crop operation in a drawing view using iventor API?

thanks In advance.

Mario.

[YuhanZhang]

No official API exposed for the crop operation yet.

[YuhanZhang · Accepted solution]

But you can try below workaround:

Sub CreateCropView()
    Dim oDoc As DrawingDocument
    Set oDoc = ThisApplication.ActiveDocument
    
    Dim oSheet As Sheet
    Set oSheet = oDoc.Sheets(1)
    
    Dim oDrawingView As DrawingView
    Set oDrawingView = oSheet.DrawingViews(1)
    
    Dim oSk As DrawingSketch
    Set oSk = oDrawingView.Sketches.Add
    
    oSk.Edit
    oSk.SketchCircles.AddByCenterRadius ThisApplication.TransientGeometry.CreatePoint2d(0, 0), 2
    oSk.ExitEdit
    
    Me.SelectSet.Select oSk
    
    Dim oDef As ControlDefinition
    Set oDef = ThisApplication.CommandManager.ControlDefinitions("DrawingCropViewCmd")
    oDef.Execute
    
End Sub

 Hope this helps.

[Mario-Villada]

Fantastic!, That is what  I needed.

Thank you very much.

Mario.