Hi @Andy20002
The way you did it manually in the parts list is probably the most straight forward way.
Doing so by ilogic Involves:
- Ensure a unique "AssyRef" iproperty exist in each subassembly.
- Loop through the Main Assemblies looking for subassemblies
- Create an iproperty in every child part called "AssyRef"
- Look at the parent occurrence of the part occurrence and read the iproperty from the parent and place into the child.
- Add "AssyRef" as iproperty column in the partslist
- Read the iproperty in the partlist
This works great until you roll up the parts using their part number and the readable iproperty goes to Varies!
Another solution is to forget about adding an iproperty to the part itself but rather record it's assembly iproperty in a dictionary and then input this value into each row of the partslist.
See below:
Sub Main
If Not ThisApplication.ActiveDocumentType = DocumentTypeEnum.kDrawingDocumentObject Then
MessageBox.Show("Not a drawing! Exiting")
Return
End If
Dim DrawDoc As DrawingDocument = ThisDoc.Document
Dim activeSheet As Sheet = DrawDoc.ActiveSheet
Dim prtList As PartsList = activeSheet.PartsLists.Item(1)
Dim asmDoc As AssemblyDocument = prtList.ReferencedDocumentDescriptor.ReferencedDocument
For Each plRow As PartsListRow In prtList.PartsListRows
Dim dBomRow As DrawingBOMRow = plRow.ReferencedRows.Item(1)
Dim rowDoc As Document = dBomRow.BOMRow.ComponentDefinitions.Item(1).Document
TraverseAssembly(asmDoc.ComponentDefinition.Occurrences)
For Each key As String In dict.Keys
If rowDoc.FullFileName = key Then
Dim AssyRef As PartsListCell = plRow.Item("AssyRef")
AssyRef.Value = dict.Item(key)
End If
Next
Next
End Sub
'Create a dictionary to store the part filename along with the assembly reference
Dim dict As New Dictionary(Of String, String)
Private Sub TraverseAssembly(occs As ComponentOccurrences)
For Each occ As ComponentOccurrence In occs
If occ.DefinitionDocumentType = DocumentTypeEnum.kPartDocumentObject Then
Dim partDoc As PartDocument = occ.Definition.Document
Try
If partDoc.IsModifiable AndAlso Not occ.ParentOccurrence Is Nothing Then
Dim parentDoc As AssemblyDocument = occ.ParentOccurrence.Definition.Document
Dim partFileName As String = partDoc.FullFileName
Dim assyRef As String = parentDoc.PropertySets.Item(4).Item("AssyRef").Value
If dict.ContainsKey(partFileName) Then
If dict.Item(partFileName) <> "" AndAlso Not dict.Item(partFileName).Contains(assyRef) Then
dict.Item(partFileName) = dict.Item(partFileName) & "," & assyRef
End If
Else
dict.Add(partFileName, assyRef)
End If
End If
Catch
End Try
End If
If occ.DefinitionDocumentType = kAssemblyDocumentObject Then
TraverseAssembly(occ.SubOccurrences)
End If
Next
End Sub
If this solved a problem, please click (accept) as solution.
Or if this helped you, please, click (like)
Regards
Alan
