How to get PartDocument object from mouse selection by vba?

Anonymous — Mon, 23 Sep 2019 13:53:10 GMT

I have an active assembly, where I would like to select a part or subassembly by clicking on model (not browser). How can I get PartDocument or AssemblyDocument object from mouse selection?

Re: How to get PartDocument object from mouse selection by vba?

Sergio.D.Suárez — Mon, 23 Sep 2019 14:28:43 GMT

Hi, here is an example of how to access through VBA. When you select a component in the graphic window or in the navigator tree you will see the name of the file.

Sub Select_Component()

    Dim oCC As ComponentOccurrence
    Set oCC = ThisApplication.CommandManager.Pick(16643, "Select Component")
    'kAssemblyLeafOccurrenceFilter 16643 Assembly leaf occurrence filter.
    'kAssemblyOccurrenceFilter 16640 Assembly occurrence filter.
    
    Dim oDoc As Document
    Set oDoc = oCC.Definition.Document
    MsgBox (oDoc.DisplayName)

End Sub

Here the same action with ilogic.

Dim oCC As ComponentOccurrence = ThisApplication.CommandManager.Pick(16643, "Select Component")
'kAssemblyLeafOccurrenceFilter 16643 Assembly leaf occurrence filter. 
'kAssemblyOccurrenceFilter 16640 Assembly occurrence filter.

Dim oDoc As Document = oCC.Definition.Document
MessageBox.Show(oDoc.DisplayName)

I hope this helps with your problem. Regards

topic Re: How to get PartDocument object from mouse selection by vba? in Inventor Programming Forum

How to get PartDocument object from mouse selection by vba?

Re: How to get PartDocument object from mouse selection by vba?