BOM sorting and Renumbering in Assy

[Anonymous]

Hi

I have a custom itemnumber and qty ilogic code I use to get unique properties on each dwg.

The code runs from the main assy level in the 3D enviroment.

I would love to get the code to sort BOM by part number and then renumber items before doing what it already does.

I've seen it done very nicely from a drawing with iLogic, but I need it done directly from the 3D assy.

Any ideas?

[MechMachineMan]

Look at this file:

"C:\Program Files\Autodesk\Inventor 2016\Local Help\admapi_20_0.chm"

Type in 'Application' in the search tab.

Select Application object. Understand that when you start a call with ThisApplication, this is the object that is returned.

Select a logical path to what you are looking for under the properties/methods of the Application Object (what is now viewable in the main screen).

ie ActiveDocument property.

(Our code would now read Dim oDoc As Document = ThisApplication.ActiveDocument)

Keep following through, and eventually you wind up at:

''''

Dim oDoc As Document

oDoc = ThisApplication.ActiveDocument

Dim oCompDef As ComponentDefinition

oCompDef= oDoc.ComponentDefinition

Try

Dim oBOM As BOM = oCompDef.BOM

oBOM = oCompDef.BOM

Catch

With oBOM

       .Sort() 'PLUS ARGUMENTS OF METHOD

       .Renumber 'PLUS ARGUMENTS OF METHOD

End With

''''

[rhasell]

Hi

I wrote some code to do exactly that.

I manged to get it to work 95% of the time, but it was unreliable. It would never sort the same way from one iteration to the next.

I found that making a GA drawing, and doing my sorts from a dummy GA drawing works 100% of the time.

Attached is a copy of my working code, it's old and have not looked at it for years, hopefully you can get something out of it.

Dim oDoc As AssemblyDocument
oDoc = ThisApplication.ActiveDocument

' Set a reference to the BOM
Dim oBOM As BOM
oBOM = oDoc.ComponentDefinition.BOM

' Make sure that the parts only view is enabled.
    oBOM.PartsOnlyViewEnabled = True

' Set a reference to the "Parts Only" BOMView
Dim oBOMView As BOMView
oBOMView = oBOM.BOMViews.Item("Parts Only")


Call oBOMView.Sort("BOM Structure",True ,"TYPE",True ,"Stock Number",True)
Call oBOMView.Renumber(1, 1)
MessageBox.Show("Done", "Sort BOM")