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

Here's a sample of what you could do.

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

I know you have parts of my code already in your code but you get the idea.

If I've helped you, please help me by supporting this idea.
Mass Override for Each Model State

Custom Glyph Icon for iMates