12-19-2018
07:04 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
12-19-2018
07:04 AM
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
Mass Override for Each Model State
Custom Glyph Icon for iMates