Inventor: Automatisch Stückliste nach Bauteilersetzung neu nummerieren.

Konstruktion in Inventor 2022:

 Das Problem beim Ersetzen von mehreren Bauteilen in der Baugruppe, wenn sie bereits mehrmals enthalten sind, erzeugt zusätzlich Positionsnummern in der Stückliste.
Damit man jetzt nicht manuell neu nummerieren muss, habe ich mit ChatGPT folgendes, für mich funktionierendes Script für ILogic geschrieben:

' Startnummer festlegen
Dim startNum As Integer = 1

' Baugruppe holen
Dim oAsmDoc As AssemblyDocument
oAsmDoc = ThisApplication.ActiveDocument

' Alle Komponenten durchlaufen
Dim oCompDef As AssemblyComponentDefinition
oCompDef = oAsmDoc.ComponentDefinition

' Stücklistenelemente holen
Dim oBOM As BOM
oBOM = oAsmDoc.ComponentDefinition.BOM

' Strukturansicht setzen
oBOM.StructuredViewFirstLevelOnly = False

' Alle Stücklistenelemente durchlaufen
Dim oBOMView As BOMView
oBOMView = oBOM.BOMViews.Item("Strukturiert") 
' den richtigen Namen finden Sie auf dem Reiter im Menu "Stückliste"

Dim oBOMRow As BOMRow
For Each oBOMRow In oBOMView.BOMRows
    ' Neue Stücklistennummer setzen
    oBOMRow.ItemNumber = startNum
    
    ' Nummer erhöhen
    startNum += 1
Next