Select all Assembly Browser Nodes VBA or ILOGIC and Ground

[frank_schalla]

During the fact that traversing a assembly structure and grounding each first level component is painfull slow

i see that doing this task by selecting interactiv  all nodes and force a ground via right mouse button is very fast.

So i need a solution via (VBA) to select all nodes in a assembly file (Version is 2015 and above so i mean the entry is starting at 5)

and then start the command ground (AllselectedNodes = True)

Thank's for your help

Frank

[MechMachineMan]

Yes it is possible.

oPane = ThisApplication.ActiveDocument.BrowserPanes("Model")

oDwgName = oPane.TopNode 'Is the WO# and sheet name
oDwgRes = oDwgName.BrowserNodes.Item("Drawing Resources")
oSktch = oDwgRes.BrowserNodes.Item(4)

Code similiar to that will get your there. 

You may need to just have it pre-selected and use a control definition, unless the API supports the method to ground based upon the BrowserNodes collection.

Good luck.

[Vladimir.Ananyev]

You can avoid an assembly structure traversing using ComponentOccurrences.AllLeafOccurrences() property.  You may filter this collection to select components to be grounded.

You may also access all the unique sub-assemblies via AssemblyDocument.AllReferencedDocuments() collection without traversing the structure.

The following code should toggle the ground state for  the selected components:

Dim oCtrlDef As ControlDefinition
Set oCtrlDef = ThisApplication.CommandManager _
       .ControlDefinitions.Item("AssemblyGroundCtxCmd")
oCtrlDef.Execute