Hi.
I have a simple iLogic macro to export BOM, but I can't find the way to use the "Template" field as shown in th next screenshot.
Can anyone help exporting BOM with this field filled?
iLogic export BOM with template
Thanks. I tried adding that information, but it failed. I did try using similar code before.
Here is my current iLogic:
' PERMITIR GRAVAR "STRUCTURED" OU "PARTS ONLY"
Sub main
If ThisApplication.ActiveDocument.DocumentType <> kAssemblyDocumentObject Then
MessageBox.Show("Apenas pode executar esta macro num ficheiro *.iam", "Erro!")
Return
End If
Dim oDoc As AssemblyDocument = ThisApplication.ActiveDocument
Dim XlsFolder As String = ThisDoc.Path & "\PDF Automaticos\4-BOM\"
If Not System.IO.Directory.Exists(XlsFolder) Then System.IO.Directory.CreateDirectory(XlsFolder)
Dim XlsFile As String = XlsFolder & (iProperties.Value("Project", "Part Number")) & "_" & (iProperties.Value("Project", "Revision Number")) & ".xls"
' If the current non-master LOD document is dirty you should save it before you can use the master-LOD document background
If oDoc.Dirty Then
If MsgBox("You should save the document first!" & vbCrLf & "Would you like to save the document?", vbYesNo) = vbYes Then
oDoc.Save
Else
Exit Sub
End If
End If
ThisApplication.ScreenUpdating = False
Dim sFileName As String = oDoc.FullFileName
Dim oMasterLODDoc As AssemblyDocument = ThisApplication.Documents.Open(sFileName, False)
iLogicVb.RunExternalRule("Standards")
Dim oBOM As BOM = oMasterLODDoc.ComponentDefinition.BOM
oBOM.PartsOnlyViewEnabled = True
Dim oBOMView As BOMView
oBOMView = oBOM.BOMViews.Item("Parts Only")
oBOMView.Sort("Description", 1)
oBOMView.Sort("Part Number", 1)
oBOMView.Renumber(1,1)
oOptions = ThisApplication.TransientObjects.CreateNameValueMap
oOptions.Value("Template") = "T:\3 - CONFIG\2 - INVENTOR\2022\9-SETTINGS\TEMPLATE_BOM.xlsx" 'this _ExcelTemplate is the path
oOptions.Value("StartingCell") = "A2"
oBOMView.Export(XlsFile, kMicrosoftExcelFormat, oOptions)
'oBOMView.Export(XlsFile, kMicrosoftExcelFormat)
ThisApplication.ScreenUpdating = True
End Sub
Sub SortBOM
'Declare Variables
Dim oDoc As AssemblyDocument = ThisApplication.ActiveDocument
Dim oDraw As DrawingDocument
Dim sFilePath As String= ThisDoc.Path & "\"
Dim Name As String = oDoc.DisplayName
Name = Name.Substring(0,Name.Length-13)
Dim oAssyDef As AssemblyComponentDefinition
oAssyDef = oDoc.ComponentDefinition
Dim repMgr As RepresentationsManager
repMgr = oAssyDef.RepresentationsManager
'Switch to master LOD to get BOM object
Dim oMasterLOD As LevelOfDetailRepresentation
oMasterLOD = repMgr.LevelOfDetailRepresentations.Item(1)
oMasterLOD.Activate
Dim oBOM As BOM
oBOM = oAssyDef.BOM
Dim oBOMView As BOMView
oBOMView = oBOM.BOMViews.Item("Structured")
'Open dwg and run "Sort" rule in the drawing
oDraw = ThisApplication.Documents.Open(sFilePath & Name & ".dwg")
auto = iLogicVb.Automation
auto.RunRule(oDraw, "Sort")
oDraw.Save
oDraw.Close
'Sort by Item
oBOMView.Sort("Item",1)
'Switch back to "Custom" LOD
oMasterLOD = repMgr.LevelOfDetailRepresentations.Item(5)
oMasterLOD.Activate
oDoc.Save
End Sub
It generates this error:
Here is how I use BoM export with template.
1) export your template - open BoM and use columns you want to export
2) use this code, read the description and edit the code according to the description
'Check if assembly is active oDoc = ThisDoc.ModelDocument If oDoc.DocumentType = kPartDocumentObject Then MessageBox.Show("Assembly must be active!", "BoM Export") Return End If '----------------------------------------------------------------------------------------------------- oDoc = ThisApplication.ActiveDocument Dim oBOM As BOM oBOM = oDoc.ComponentDefinition.BOM '----------------------------------------------------------------------------------------------------- 'Import BoM template (change "D:\Projekty\Tryskací zařízení\0KonecVaultu\Sablona_kusovniku_KS.xml" with your location of the template) Dim oPath As String oPath = "D:\Projekty\Tryskací zařízení\0KonecVaultu\Sablona_kusovniku_KS.xml" oBOM.ImportBOMCustomization(oPath) '----------------------------------------------------------------------------------------------------- 'Path for export CSVpath = ThisDoc.Path + "\" '----------------------------------------------------------------------------------------------------- 'Structured view of BoM (maybe you will need to rewrite 'oStructuredBOMView = oBOM.BOMViews.Item("Structured")'. I have Inventor in czech language and I had to write in czech... oBOM.StructuredViewFirstLevelOnly = False oBOM.StructuredViewEnabled = True Dim oStructuredBOMView As BOMView oStructuredBOMView = oBOM.BOMViews.Item("Structured") '----------------------------------------------------------------------------------------------------- 'Renumber according to custom iProperty 'He_HeOnum' - (change for your iProperty) Dim activeAssembly As AssemblyDocument = ThisApplication.ActiveDocument Dim bomView As BOMView = activeAssembly.ComponentDefinition.BOM.BOMViews(2) Call bomView.Sort("He_HeOnum", True) Call bomView.Renumber(1, 1) '----------------------------------------------------------------------------------------------------- 'Export BoM to .xls oStructuredBOMView.Export(CSVpath + ThisDoc.FileName(False) + ".xls", kMicrosoftExcelFormat) '----------------------------------------------------------------------------------------------------- 'Preview i = MessageBox.Show("Open preview?", "BoM Preview", MessageBoxButtons.YesNo) If i = vbYes Then : launchviewer = 1 : Else : launchviewer = 0 : End If If launchviewer = 1 Then ThisDoc.Launch(CSVpath + ThisDoc.FileName(False) + ".xls") '----------------------------------------------------------------------------------------------------
