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

vb.net (to use as a rule):

Sub Main()
Dim oDoc As Document
oDoc = ThisApplication.ActiveDocument

For Each oSubDoc in oDoc.AllReferencedDocuments
If oSubDoc.DocumentType = kAssemblyDocumentObject Then
Call ExportDocStructBOM(oSubDoc)
End if
Next

MsgBox("Rule Complete!")
End Sub

Sub ExportDocStructBOM(oDoc As Document)
Dim oBOM As BOM oBOM = oDoc.ComponentDefinition.BOM oBOM.StructuredViewFirstLevelOnly = False oBOM.StructuredViewEnabled = True Dim oStructuredBOMView As BOMView oStructuredBOMView = oBOM.BOMViews.Item("Structured") oStructuredBOMView.Export("C:\Temp\StructuredBOM.csv", kTextFileCommaDelimitedFormat)
End Sub

 

vba:

Sub Main()
Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument

For Each oSubDoc in oDoc.AllReferencedDocuments
If oSubDoc.DocumentType = kAssemblyDocumentObject Then
Call ExportDocStructBOM(oSubDoc)
End if
Next

Call MsgBox("Rule Complete!")
End Sub

Sub ExportDocStructBOM(oDoc As Document)
Dim oBOM As BOM Set oBOM = oDoc.ComponentDefinition.BOM oBOM.StructuredViewFirstLevelOnly = False oBOM.StructuredViewEnabled = True Dim oStructuredBOMView As BOMView Set oStructuredBOMView = oBOM.BOMViews.Item("Structured") Call oStructuredBOMView.Export("C:\Temp\StructuredBOM.csv", kTextFileCommaDelimitedFormat)
End Sub 

 


--------------------------------------
Did you find this reply helpful ? If so please use the 'Accept as Solution' or 'Like' button below.

Justin K
Inventor 2018.2.3, Build 227 | Excel 2013+ VBA
ERP/CAD Communication | Custom Scripting
Machine Design | Process Optimization


iLogic/Inventor API: Autodesk Online Help | API Shortcut In Google Chrome | iLogic API Documentation
Vb.Net/VBA Programming: MSDN | Stackoverflow | Excel Object Model
Inventor API/VBA/Vb.Net Learning Resources: Forum Thread

Sample Solutions:Debugging in iLogic ( and Batch PDF Export Sample ) | API HasSaveCopyAs Issues |
BOM Export & Column Reorder | Reorient Skewed Part | Add Internal Profile Dogbones |
Run iLogic From VBA | Batch File Renaming| Continuous Pick/Rename Objects

Local Help: %PUBLIC%\Documents\Autodesk\Inventor 2018\Local Help

Ideas: Dockable/Customizable Property Browser | Section Line API/Thread Feature in Assembly/PartsList API Static Cells | Fourth BOM Type