ilogic code to rename selected assembly browser nodes

[Slothian]

I'm looking for a method that will enable me to select several files/nodes in the assembly browser and rename them to the default part number.

These assemblies generally have some stabilised nodes for ilogic code execution, therefore using the inbuilt "rename browser nodes" wipes out the stabalised parts and defeats its use.

Any help would be greatly appreciated.

Steve

[MechMachineMan]

Go find admapi_18_.....chm in your inventor file or just open up the Programming Help through inventor.

From there, search for SelectionFilterEnum. One of the options is similiar to kAssemblyBroswerNodes.

Use the Pick method through the command manager to select a browser node based off of that feature.

The returned object will be the broswer node component.

From there you can simply rename it by going into the occurrence and pulling the part number.

Good luck.

[Slothian]

Thanks MechMachineMan, that got me started and I have put together some code that basically works. Still relearning the programming skills that have been long forgotten.

My code allows me to select an enity or node and rename it by resetting it to nothing which pulls in the original name. It then prompts if another node needs renaming. Ideally, I would prefer that instead of a single selection, that multiple nodes could be picked and added to an array/list, and then that array list is renamed.

I am struggling to see how to add picked items to an array though. I have also had no luck in returning the selected nodes part number, which i would prefer to use to rename the nodes. Just reseting the name gives mixed results on the test assemblies I am trying this on, returning the original node names form the copied assembly/parts

Heres my code as it stands

' set a reference to the assembly component definintion.
' This assumes an assembly document is open.
Dim oAsmCompDef As AssemblyComponentDefinition
oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition

MessageBox.Show("Select Browser Nodes to be Renamed", "Select Nodes")

'setup some variables
Dim entity
Dim msgresponse = vbYes

While msgresponse = vbYes
entity = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kAssemblyLeafOccurrenceFilter,"Select Component:")
entity.Name = "" 'reset name to nothing, which pulls in the original name

msgresponse = MessageBox.Show("Would you like to add another node item to be renamed?", "Add another node?", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)
End While

 Steve

[MechMachineMan · Accepted solution]

You have to access the occurence definition document.

ie;

oOcc = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kAssemblyLeafOccurrenceFilter,"Select Component:")

oOcc.Name = oOcc.Definition.Document.ComponentDefinition.Document.PropertySets.Item("Design Tracking Properties").Item("Part Number").Value

As for multiple select, just search for vb.net array help anywhere.

Or you  might also be able to use the Document.SelectSet.SelectMultiple method to select multiple.

[Slothian]

Thanks, that got it.

Didn't get the array working, but what I have solves my problem and is workable.