Bill of Material/Cut List to show multiple quantities with only 1 Assembly

Bill of Material/Cut List to show multiple quantities with only 1 Assembly

Anonymous
Not applicable
406 Views
2 Replies
Message 1 of 3

Bill of Material/Cut List to show multiple quantities with only 1 Assembly

Anonymous
Not applicable

I have a drawing of a basic cabinet, I have it set within an IDW with all the views and Ilogic etc. What I need is when we do multiples of this 1 cabinet how do i get the BOM to change the quantity of the parts to reflect this change. Adding the assembly multiple times seems ridiculous. Sending out 6 drawings of the same thing is silly. There has to be a way for me to add a Parameter "Count" and Have it multiply against the BOM qty. I cant seem to find a way that these link without using some weird column in I-prop.

0 Likes
Accepted solutions (1)
407 Views
2 Replies
Replies (2)
Message 2 of 3

chandra.shekar.g
Autodesk Support
Autodesk Support

@Anonymous,

 

Hoping that below forum discussion links may be helpful.

 

https://forums.autodesk.com/t5/inventor-customization/vba-edit-bom/td-p/7686934

 

https://forums.autodesk.com/t5/inventor-customization/write-bom-number-and-quantity-to-parts/td-p/7626722

 

Thanks and regards,


CHANDRA SHEKAR G
Developer Advocate
Autodesk Developer Network



0 Likes
Message 3 of 3

Sergio.D.Suárez
Mentor
Mentor
Accepted solution

Hi, if you have a partslist on an active drawing sheet, you could use the following code to multiply the base quantity.
The code overwrites the original base quantity, multiplying it by a user defined multiple.
First you must write the name of your quantity column as it appears in your partslist (I have detailed it in red)

oColumn = "Quantity"   '''Enter the name of the quantity column of your partslist

multiple = InputBox("Indicate the multiple of the original quantity", "Multiple Quantities", "1")

Dim oDoc As DrawingDocument
oDoc = ThisDoc.Document
Dim oSheet As Sheet
oSheet = oDoc.ActiveSheet
oPartsList = oSheet.PartsLists.Item(1)
For i = 1 To oPartsList.PartsListRows.Count
	oPartsList.PartsListRows.Item(i).Item(oColumn).Static = False
Next

If IsNumeric(multiple) Then
	For i = 1 To oPartsList.PartsListRows.Count
		oQty = oPartsList.PartsListRows.Item(i).Item(oColumn).Value
		oPartsList.PartsListRows.Item(i).Item(oColumn).Value = oQty * multiple
	Next
End If

 I hope the rule can be useful. regards


Please accept as solution and give likes if applicable.

I am attaching my Upwork profile for specific queries.

Sergio Daniel Suarez
Mechanical Designer

| Upwork Profile | LinkedIn

0 Likes