Parts List Hide Children

[KWarrenCA]

I'm trying to modify the following code to only hide parts that are apart of an expandable assembly but not the main assembly. I also don't want to look at the item number because some assemblies we renumber and some wont have the "." in the number.

Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument
Dim oPartsList As PartsList
Dim oRow As PartsListRow

For Each oPartsList In oDrawDoc.ActiveSheet.PartsLists
	Try
		For Each oRow In oPartsList.PartsListRows
			Try
				If oRow.Expanded Then
					Visible = False
				Else
				End If

			Catch
			End Try
	Next
	Catch
	End Try
	Next

After Expanding and hiding rowsPrior to expanding and hiding rows.

[Andrii_Humeniuk]

Hi @KWarrenCA .
You need to check if the Row is Expanded and if so, set Expanded = False.
Please check the iLogic code below.

Dim oDrawDoc As DrawingDocument = ThisApplication.ActiveDocument

For Each oPartsList As PartsList In oDrawDoc.ActiveSheet.PartsLists
	Try
		For Each oRow As PartsListRow In oPartsList.PartsListRows
			With oRow
				If .Expandable Then .Expanded = False
			End With
		Next
	Catch : End Try
Next

[KWarrenCA]

@Andrii_Humeniuk so you are just taking the expanded assembly and collapsing it. I'm looking to turn the visibility of the parts off while while it still expanded and just show the the main assembly. I know its not exactly how the parts list is but this is how I'm looking to do a few parts list while we are in a transition to moving to item master in the vault so that we can have a full bom with all of the parts on the drawing cover page and then have the assemblies detailed in the drawings else where.

[Andrii_Humeniuk]

Controlling the visibility of each row will take more time than the usual method of collapsing subrows. The code below makes rows invisible if they are children.

Public Sub Main()
	Dim oDrawDoc As DrawingDocument = ThisApplication.ActiveDocument
	
	For Each oPartsList As PartsList In oDrawDoc.ActiveSheet.PartsLists
		Dim iItem As Integer = GetRowITEM(oPartsList)
		For Each oRow As PartsListRow In oPartsList.PartsListRows
			If oRow(iItem).Value.Contains(".") Then oRow.Visible = False
		Next
	Next
End Sub

Private Function GetRowITEM(ByVal oPsList As PartsList) As Integer
	Dim iItem As Integer = 1
	For i As Integer = 1 To oPsList.PartsListColumns.Count
		Select Case oPsList.PartsListColumns(i).PropertyType
		Case PropertyTypeEnum.kItemPartsListProperty : Return i
		Case PropertyTypeEnum.kItemQuantityPartsListProperty : Return i
		End Select
	Next i
	Return iItem
End Function