ASME B16.9 Flange Rating Calculator

Autodesk Inventor iLogic - Model & Vault Browser Toggle.

Sub SwitchVaultModelTree()

    Dim oDoc As Document
    Set oDoc = ThisApplication.ActiveDocument


    Dim oPanes As BrowserPanes
    Set oPanes = oDoc.BrowserPanes
   
    If oPanes.ActivePane.Name = "Vault" Then
        'oPanes.Item(3).Activate
        oPanes.Item("Model").Activate
    Else
        oPanes.Item("Vault").Activate
    End If
   
    If oDoc.Type = kDrawingDocumentObject Then
        oPanes.Item("Model").Activate
    End If
   
End Sub