[IV 2014] - Open part from Drawing View with part selection filter

[gmassart]

Hi

I would like to know if it is possible to open a part selected from a view with

ThisApplication.ActiveDocument.SelectionPriority = kPartSelectionPriority

With the application we can do it (right click then open) but what about VBA ?

Thank you in advance for the help

[MechMachineMan]

In about 99% of cases, if you can do it with the UI, you can do it with the API.

https://forums.autodesk.com/t5/inventor-customization/selectset-part-priority-drawingview/td-p/52756...

Using the pick command, I can't find the specific part priority filter that allows you to select objects.

I also tried using the selection events similar to the link below.

https://forums.autodesk.com/t5/inventor-customization/pick-a-point-in-drawingsketch/td-p/6204822

Neither methods allow you to "preview" what part you select, and when you have selectionPriority put to Part in the drawing, it's actually selecting a Generic Object/Variant, so if you want it to show what object you are selecting, you likely need to use the interaction events and pre-highlight to make the full object visible based on what line is selected.

At any rate, good luck!

[gmassart]

I wonder if I am not in the 1% remaining cases 🐵

I had checked the first link you give, but the final step give you the model of the view, not the part selected (If I select a part in an assembly in a drawing view)

I am working on another workflow than the one expected but less convenient (I will ask the user to select the view, open the model, if the model is an assembly start the command for the pick with part only and then open that file and do what I have to do with the part selected, then close back both documents)

workflow expected was to select directly the part in the drawing view, open it and do what I have to do with the part and then close a single document.

Perhaps I would need the "right click open" using similar command:

    Dim Cm As CommandManager
    Set Cm = ThisApplication.CommandManager
    Call Cm.PostPrivateEvent(PrivateEventTypeEnum.kFileNameEvent, sFileFullPath)
    Dim oCtrlDef As ButtonDefinition
    Set oCtrlDef = ThisApplication.CommandManager.ControlDefinitions.Item("GeomToDXFCommand")
    Call oCtrlDef.Execute

[gmassart · Accepted solution]

Ok, here we go with the solution 🙂

    Dim Cm As CommandManager
    Set Cm = ThisApplication.CommandManager
    Call Cm.PostPrivateEvent(PrivateEventTypeEnum.kFileNameEvent, sFileFullPath)
    Dim oCtrlDef As ButtonDefinition
    Set oCtrlDef = ThisApplication.CommandManager.ControlDefinitions.Item("DLxOpenComponentCmd")
    Call oCtrlDef.Execute