Counter for Virtual Components - Help
Hi @munderwood4GRE6. Your request is a little difficult to understand. What are you calling a 'virtual component'? There is a VirtualComponentDefinition that is only found within an assembly's BOM. I believe that is the type of ComponentDefinition that is returned from a BOM row that was created using the 'Create Virtual Component' tool within the BOM dialog. Is that what you mean? Or is the component's BOMStructure set to something like Reference or Phantom or Purchased? Also, it seems to me like you would need a collection type variable with two factor items inside as a variable to use in the code, to return both a count and part number data of multiple different possible components. Maybe something like a NameValueMap or Dictionary would work in a situation like that. With a variable like that, you can have a collection object to gather data into, and each item in that collection can hold 2 pieces of data...like a Part Number and an Integer.
Wesley Crihfield
(Not an Autodesk Employee)
Maybe this does help you.
Public Class ThisRule Sub Main() Dim doc As AssemblyDocument = ThisDoc.Document Dim virComps = findAllWhere(doc, Function(occ) occ.Definition.Type = ObjectTypeEnum.kVirtualComponentDefinitionObject). ToList() Dim counter As New Dictionary(Of String, Double) For Each occ As ComponentOccurrence In virComps Dim def As VirtualComponentDefinition = occ.Definition Dim iProperty As [Property] = def.PropertySets. Item("Design Tracking Properties"). Item("Part Number") Dim key As String = iProperty.Value Dim val As Double = def.BOMQuantity.GetEvaluatedBaseQuantity(def.BOMQuantity.UnitQuantity) If (counter.ContainsKey(key)) Then counter.Item(key) = counter.Item(key) + val Else counter.Add(key, val) End If Next Dim msg As String = "" For Each item In counter msg = msg & item.Key & " : " & item.Value & System.Environment.NewLine Next MsgBox(msg) End Sub Private Function findAllWhere(doc As AssemblyDocument, predicate As Func(Of ComponentOccurrence, Boolean)) As IEnumerable(Of ComponentOccurrence) Dim list As IEnumerable(Of ComponentOccurrence) = doc.ComponentDefinition. Occurrences.Cast(Of ComponentOccurrence). Where(predicate) Dim assemblyList As IEnumerable(Of ComponentOccurrence) = doc.ComponentDefinition. Occurrences.Cast(Of ComponentOccurrence). Where(Function(o) o.DefinitionDocumentType = DocumentTypeEnum.kAssemblyDocumentObject) For Each assOcc As ComponentOccurrence In assemblyList If TypeOf assOcc.Definition Is VirtualComponentDefinition Then Continue For Dim assDoc As AssemblyDocument = assOcc.ReferencedDocumentDescriptor.ReferencedDocument Dim listToAdd As IEnumerable(Of ComponentOccurrence) = findAllWhere(assDoc, predicate) list = list.Concat(listToAdd) Next Return list End Function End Class
Jelte de Jong
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Blog: hjalte.nl - github.com
depending on your exact need maybe there is a simpler method. but I can start by explaining what happens. you will comment in the code.
Dim doc As AssemblyDocument = ThisDoc.Document ' this function finds all VirtualComponent and puts them in a list. ' you can find more about this function on my blog: ' http://www.hjalte.nl/34-universal-occurrence-search-function Dim virComps = findAllWhere(doc, Function(occ) occ.Definition.Type = ObjectTypeEnum.kVirtualComponentDefinitionObject). ToList() ' create a Dictionary of key/value pairs Dim counter As New Dictionary(Of String, Double) ' Loop over all VirtualComponents For Each occ As ComponentOccurrence In virComps Dim def As VirtualComponentDefinition = occ.Definition ' Get the iProperty Dim iProperty As [Property] = def.PropertySets. Item("Design Tracking Properties"). Item("Part Number") Dim key As String = iProperty.Value Dim val As Double = def.BOMQuantity.GetEvaluatedBaseQuantity(def.BOMQuantity.UnitQuantity) ' Check ik the counter with sertain key already ' exists in the Dictionary of key/value pairs. If (counter.ContainsKey(key)) Then ' Yes: add the value of the found VirtualComponent to the item we found before counter.Item(key) = counter.Item(key) + val Else ' No: create create a key/value pair and add it to the Dictionary counter.Add(key, val) End If Next ' This is just to show how you can use the information in the Dictionary Dim msg As String = "" For Each item In counter msg = msg & item.Key & " : " & item.Value & System.Environment.NewLine Next MsgBox(msg)
Jelte de Jong
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Blog: hjalte.nl - github.com
