How to select the open file in Model Browser?

[Anonymous]

With this piece of code I am able to select an occurance in the Model Browser.

But not the main assy, like in this picture... how can I do?

Public Sub teer()
Dim oapp As Inventor.Application
Set oapp = GetObject(, "Inventor.Application")
Dim odoc As AssemblyDocument
Set odoc = oapp.ActiveEditObject

Dim oPane As BrowserPane
Set oPane = odoc.BrowserPanes.Item("Model")
oPane.TopNode.BrowserNodes.Item(7).DoSelect
End Sub

[YuhanZhang]

You can use below code:

oPane.TopNode.DoSelect

 or :

Sub SelectActiveDocTopNode()
     Dim odoc As Document
     Set odoc = ThisApplication.ActiveDocument
     
     If odoc.DocumentType = kAssemblyDocumentObject Or odoc.DocumentType = kPartDocumentObject Then
         odoc.SelectSet.Select odoc.ComponentDefinition
     End If
End Sub

[Anonymous]

Thanks Rocky, both work just fine!