Change item number of a specific component in BOM

[Darrell.johnson]

Hello,

is it possible to change the item number of a specific component in an assembly file?

Dim ThisDoc As Document = ThisApplication.ActiveDocument
Dim oComps As ComponentOccurrences = ThisDoc.ComponentDefinition.Occurrences
Dim oComp As ComponentOccurrence

For Each oComp In oComps
	If oComp.Name.Contains("xyz")
		'change the item number
	End If
Next

[Ralf_Krieg]

Hello

I think you must start in the BOM and search per row to find your occurrence. The item number is not stored in the occurrence object.

Wich Inventor version?

Structured or Parts only BOM View?

What if the item number is already in use by another occurrence?

Why do you need an explicit number for this occurrence?

[Darrell.johnson]

Hello thank you for your reply,

- I'm using Inventor Version 2021

- Structered BOM view

- I think that's not the case in this scenario

- I need to renumber the components by their name, sorting doesn't work for me in this case

for example: the component "41-00639-1-0" needs to be renumbered from 176 to 1; "5041-0009" from 178 to 2; "41-02943-1-0" from 174 to 3.

[dutt.thakar · Accepted solution]

@Darrell.johnson 

Can you try this code ? it actually checks the name of the part, if it contains a certain characters, it changes it's item number, you just need to be aware that, it does not do anything if two components has the same item number, you will see it highlighted in yellow in BOM.

Dim oDoc As AssemblyDocument = ThisApplication.ActiveDocument
Dim oDef As AssemblyComponentDefinition = oDoc.ComponentDefinition

Dim oBOM As BOM = oDef.BOM
Dim oBOMView As BOMView
oBOMView = oBOM.BOMViews.Item("Structured")

Dim bRows As BOMRowsEnumerator = oBOMView.BOMRows

For Each bRow In bRows
	Dim rDoc As Document
	rDoc = bRow.ComponentDefinitions.Item(1).Document
	If rDoc.DisplayName.Contains("PolyGon")
		bRow.ItemNumber = 1
	End If
Next

Hope this will help you.

[Darrell.johnson]

Thank you very much, this code works perfectly.