Multi level Parts List for Crimped Hoses

[jonathan.ngEGWWL]

Hi all,

I have been testing out modelling crimped hose assemblies using the hose and pipe run module but have been running into an issue with the layout of the Parts List when putting together drawings. 

In the sample assembly I have inserted the hose fittings in to their corresponding hose runs. I would like the Parts List to show the fittings the same way as the Bill of Material. This way someone who is building the hose knows which fittings are to be used on each hose. 

Currently the Parts List is being displayed like below. Is there a way to create a multi level parts list like above? I realize that if I set this to phantom I will get a list showing the total quantity of each fitting. Perhaps the solution is to create a drawing with views for hose run to show they are built instead and use the Parts List for purchasing. 

Thanks for any help and hope that made some sense.

[JonathanKruger]

Just Right click and edit the parts list on your drawing and then expand them https://autode.sk/3JUOVf8 

I use ilogic to toggle between them, if you create a new rule and paste the below into it then running the rule will expand the parts list

Dim app As Inventor.Application = ThisApplication
Dim doc As DrawingDocument = app.ActiveDocument
Dim oSheet As Sheet = doc.ActiveSheet
Dim partslist As PartsList = oSheet.PartsLists(1)
Dim oRow As PartsListRow
Dim FirstRowCount As Integer = partslist.PartsListRows.Count
Dim LastRowCount As Integer = 0
Do Until FirstRowCount = LastRowCount
	FirstRowCount = partslist.PartsListRows.Count
	For Each oRow In partslist.PartsListRows
		Try
			oRow.Expanded = True
		Catch ex As Exception
			
		End Try
	Next
	LastRowCount = partslist.PartsListRows.Count
Loop

And to collapse it you can create a new rule that contains the below

Dim app As Inventor.Application = ThisApplication
Dim doc As DrawingDocument = app.ActiveDocument
Dim oSheet As Sheet = doc.ActiveSheet
Dim partslist As PartsList = oSheet.PartsLists(1)
Dim oRow As PartsListRow
Dim FirstRowCount As Integer = partslist.PartsListRows.Count
Dim LastRowCount As Integer = 0
Do Until FirstRowCount = LastRowCount
	FirstRowCount = partslist.PartsListRows.Count
	For Each oRow In partslist.PartsListRows
		Try
			oRow.Expanded = False
		Catch ex As Exception
			
		End Try
	Next
	LastRowCount = partslist.PartsListRows.Count
Loop

[jonathan.ngEGWWL]

For some reason these assemblies are not expandable?

[JonathanKruger · Accepted solution]

What if you right click on the parts list in the drawing and then select "Bill Of Materials..."

Then right click on the structured tab and is it set as per the below?

After this try again

[CGBenner]

@jonathan.ngEGWWL 

Your parts list needs to be showing the same view as the BOM (Structured, Parts Only etc).  Once that is set up, if the BOM is showing "All Levels", the parts list can as well.  You may need to remove the parts list and place it again, and check as shown below:

[jonathan.ngEGWWL]

Thanks this resolved the issue!