Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
bradeneuropeArthur
in reply to: Anonymous

Public Sub Main()
Dim a As Application
 a = ThisApplication

Dim b As Document
b = a.ActiveDocument
If b.DocumentType = kAssemblyDocumentObject Then
Dim fi As System.IO.FileInfo
                fi = New System.IO.FileInfo(b.FullFileName)

                If fi.IsReadOnly = True Then
					Exit Sub
				End If
Dim BOM As BOM
 BOM = b.ComponentDefinition.BOM
Try
	
	BOM.StructuredViewFirstLevelOnly = True
Catch ex As Exception
	MsgBox("Could not BOM stucture FirstLevekOnly")
	'MsgBox (ex.Message)
		End Try
		
MsgBox (BOM.StructuredViewFirstLevelOnly)

End If
End Sub

Regards,

Arthur Knoors

Autodesk Affiliations:

Autodesk Software:Inventor Professional 2025 | Vault Professional 2024 | Autocad Mechanical 2024
Programming Skills:Vba | Vb.net (Add ins Vault / Inventor, Applications) | I-logic
Programming Examples:Drawing List!|Toggle Drawing Sheet!|Workplane Resize!|Drawing View Locker!|Multi Sheet to Mono Sheet!|Drawing Weld Symbols!|Drawing View Label Align!|Open From Balloon!|Model State Lock!
Posts and Ideas:Dimension Component!|Partlist Export!|Derive I-properties!|Vault Prompts Via API!|Vault Handbook/Manual!|Drawing Toggle Sheets!|Vault Defer Update!


! For administrative reasons, please mark a "Solution as solved" when the issue is solved !