Automatic BOM export
There are plenty of solutions that won't require you to manually open your files, but the program or application will still be opening the files in the background. The best solution is a stand-alone application I've found.
Jonathan D. Kriek
MFG Solutions Engineer
KETIV Technologies, Inc.
MFG Solutions Engineer
KETIV Technologies, Inc.
Hi documentation,
As mcgyvr suggested, you can get the entire assembly from the top level model.
If you're looking to automate it from there, you can use something like the snippet posted here:
http://forums.autodesk.com/t5/Autodesk-Inventor-Customization/Recurssive-BOM/m-p/3507166#M38941
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
BOMxTrator works from outside the Inventor enviroment as well. Can be found on the cbliss.com website
Inventor 2020, In-Cad, Simulation Mechanical
Just insert the picture rather than attaching it as a file
Did you find this reply helpful ? If so please use the Accept as Solution or Kudos button below.
Delta Tau Chi ΔΤΧ
Accepted solution
I understand you want to export the BOM from the drawing but drawings may contain multiple parts lists.
If you don't mind exporting the BOM directly from the assemblies, another thought is to use some iLogic code and wrap this up in a Task Scheduler custom task.
If you unzip attached 2013 files in a folder called c:\test, start Inventor and follow the instructions from this blog post (the post uses a different iLogic rule but the principles remain the same), you will see two Excel files with BOM info show up in the c:\test folder after running the custom task. Use the exe in attached zip (not the one from the blog post).
The names of the assemblies you are interested in need to be stored in myfiles.csv and can be customized to your needs. The ilogic code that I used can be found in Externalrule.txt.
Bob
Bob Van der Donck
Principal UX designer DMG group
Accepted solution
If you want particular columns in a particular position, it is still possible to use my proposed technique but you will have to code considerably more. There is an API Example available that explains how to do custom BOM columns..
Search with the keyword "BOMquery" in the API Help.
It is quite easy to convert VBA code to iLogic code. The conversion typically consists in dropping the "Set" and "Sub"
statements and providiing the proper Inventor enum statements.
Bob
Bob Van der Donck
Principal UX designer DMG group
I don't know why the iLogic code that you mention is providing only a fixed order of columns. VBA would give you more flexibility.
If you still want to use iLogic, it is relatively easy to change the column orderr AFTER the file is created.
If you still want to use iLogic, it is relatively easy to change the column orderr AFTER the file is created.
In attached code , I create a CSV file called C:\Users\User\Documents\Inventor\bom.csv
You can influence the column order by changing the order of the numbers on this line in the code:
displayorder = {9, 3, 2, 4, 5, 6, 7, 8, 1}
In my example of 9 columns, I swapped columns 1 and 9 around and also columns 2 and 3.
Cheers
Bob
'Default BOM order
'1 = BOM Structure
'2 = Description
'3 = Item
'4 = Part Number
'5 = REV
'6 = Stock Number
'7 = Thumbnail
'8 = QTY
'9 = Unit QTY
Dim displayorder As Array
'displayorder = {1, 2, 3, 4, 5, 6, 7, 8, 9} ' default
displayorder = {9, 3, 2, 4, 5, 6, 7, 8, 1}
Dim filename = "C:\Users\User\Documents\Inventor\bom.csv"
ThisBOM.Export("Parts Only", filename, kTextFileCommaDelimitedFormat)
Dim tempfile As String
Dim i As Integer
tempfile = filename + "_tmp"
Dim ReadCSV As New System.IO.StreamReader(filename)
Dim TestArray As New ArrayList()
Dim oFile As System.IO.File
Dim oWrite As System.IO.StreamWriter
oWrite = oFile.CreateText(tempfile)
Dim textline As String
Dim j As Integer
j=0
Do While ReadCSV.Peek <> -1 ' Loop until end of file.
Testarray.Add(ReadCSV.ReadLine.Split(","))
Dim newstr As String
newstr = ""
For i = 0 To UBound(displayorder)
If newstr <> "" Then
newstr = newstr + "," + TestArray (j) (displayorder(i)-1)
Else
newstr = TestArray (j) (displayorder(i)-1)
End If
Next i
j= j+1
oWrite.WriteLine(newstr)
Loop
ReadCSV.Close()
oWrite.Close()
System.IO.File.Delete( filename )
System.io.File.Move(tempfile, filename)
Bob Van der Donck
Principal UX designer DMG group
