How to Renumber Itens in the Structured View

[gustavo.cassel]

Hello, i'm trying to renumber the itens in the Strucured View in a Assembly with a VBA Macro.

But with this line of code: 

Dim oAsm As AssemblyDocument
Set oAsm = ThisApplication.ActiveDocument
Dim oBOM As BOM
Set oBOM = oAsm.ComponentDefinition.BOM
oBOM.StructuredViewEnabled = True
oBOM.StructuredViewFirstLevelOnly = False
Dim oBOMView As BOMView
Set oBOMView = oBOM.BOMViews("Structured")
oBOMView.Renumber(1, 1)

I got an error called "Compile error: Expected : =".

Can someone tell me how i renumber the itens in the structured view of an assembly with VBA?

[JelteDeJong · Accepted solution]

I think you should be using a "call". like this:

Dim oAsm As AssemblyDocument
Set oAsm = ThisApplication.ActiveDocument
Dim oBOM As BOM
Set oBOM = oAsm.ComponentDefinition.BOM
oBOM.StructuredViewEnabled = True
oBOM.StructuredViewFirstLevelOnly = False
Dim oBOMView As BOMView
Set oBOMView = oBOM.BOMViews("Structured")
call oBOMView.Renumber(1, 1)

But I wonder why you write VBa code. Check this blog post: "Is VBA in Inventor obsolete?".

[gustavo.cassel]

I've tryied this before! It continue giving me this error, can you help me?

[JelteDeJong]

This works as an iLogic rule:

Dim oAsm As AssemblyDocument = ThisApplication.ActiveDocument
Dim oBOM As BOM = oAsm.ComponentDefinition.BOM
oBOM.StructuredViewEnabled = True
oBOM.StructuredViewFirstLevelOnly = False
Dim oBOMView As BOMView = oBOM.BOMViews("Structured")
oBOMView.Renumber(1, 1)

 (Sorry I did not install VBa so i can't test VBa code)

[gustavo.cassel]

I see that this works as a iLogic Rule, but i still need a version of he that works with VBA. The BOMView.Renumber method seems have a syntax error and its not working. If someone knows how to make it works, i'll be happy to know too.

[Ralf_Krieg · Accepted solution]

Hello

EDIT: Seen right now, Jelte wrote you exact the same VBA code. Can you post the error message?

As VBA:

Private Sub RenumberBOM()

Dim oAsm As AssemblyDocument
Set oAsm = ThisApplication.ActiveDocument
Dim oBOM As BOM
Set oBOM = oAsm.ComponentDefinition.BOM
oBOM.StructuredViewEnabled = True
oBOM.StructuredViewFirstLevelOnly = False
Dim oBOMView As BOMView
Set oBOMView = oBOM.BOMViews("Structured") '<-- the name is localized !!!

Call oBOMView.Renumber(1, 1)

End Sub

[gustavo.cassel]

I don't know why, but this time it works. I've just closed the Inventor and opened it again and it works. I hate this thing.

Thank you guys, you helped me so much!!