topic iLogic to renumber partlist in assembly in Inventor Programming Forum

iLogic to renumber partlist in assembly

Anonymous — Tue, 10 Oct 2017 07:06:46 GMT

Hello,
I am searching for a code snipped to renumber the partlist in an assembly with start by 1 and ingrement by 1.
I only found some codes for the partlist in drawing documents.

Anyone who already uses something like that?

Re: iLogic to renumber partlist in assembly

HermJan.Otterman — Tue, 10 Oct 2017 07:16:24 GMT

Look in Inventor, in the API help,

you can use this

BOMView.Renumber Method BOMView.Renumber( [StartValue] As Long, [Increment] As Long, [BOMRowsToRenumber] As Variant )

also from the help:

Using the BOM APIs API Sample

' Set a reference to the assembly document.
    ' This assumes an assembly document is active.
    Dim oDoc As AssemblyDocument
    oDoc = ThisApplication.ActiveDocument

    Dim FirstLevelOnly As Boolean
    If MsgBox("First level only?", vbYesNo) = vbYes Then
        FirstLevelOnly = True
    Else
        FirstLevelOnly = False
    End If
    
    ' Set a reference to the BOM
    Dim oBOM As BOM
    oBOM = oDoc.ComponentDefinition.BOM
    
    ' Set whether first level only or all levels.
    If FirstLevelOnly Then
        oBOM.StructuredViewFirstLevelOnly = True
    Else
        oBOM.StructuredViewFirstLevelOnly = False
    End If
    
    ' Make sure that the structured view is enabled.
    oBOM.StructuredViewEnabled = True
    
    'Set a reference to the "Structured" BOMView
    Dim oBOMView As BOMView
     oBOMView = oBOM.BOMViews.Item("Structured")

Re: iLogic to renumber partlist in assembly

Anonymous — Tue, 10 Oct 2017 21:22:04 GMT

This one works for me... (Frankensteined from @Anonymous and others)

You can sort by anything in the list: "0" is descending, "1" is ascending.

'sort parts list by PART NUMBER
Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument

Dim oPartsList As PartsList
oPartsList = oDrawDoc.ActiveSheet.PartsLists.Item(1)

If Not oPartsList Is Nothing Then 
'sort by part number
  Call oPartsList.Sort("PART NUMBER", 1, "ITEM QTY", 1)
'renumber the parts list
  oPartsList.Renumber 
'save overrides to BOM
  oPartsList.SaveItemOverridesToBOM 
End If

Re: iLogic to renumber partlist in assembly

Anonymous — Wed, 11 Oct 2017 04:44:57 GMT

First of all thanks for the help. 🙂

Herman, your code does resort the partlist in assemblies with a structure, but it doesnt renumber the items (parts). Maybe the info in the api can help. Hopefully it does. 😄

Curtis code renumber the parts, but only in drawings. I have no drawing for the assembly, because we export the partlist as excel sheets.

Re: iLogic to renumber partlist in assembly

Anonymous — Wed, 11 Oct 2017 04:52:47 GMT

With Hermans code snipped I found the correct code in the forum to renumber the parts in assembly.

https://forums.autodesk.com/t5/inventor-customization/bomview-renumber/td-p/6885184

Thanks for the help! 🙂