ILogic Code to put Drawing BOM Item number into a part custom iproperty

[BrandonLee_Innovex]

Hello, 

I am trying to determine a way to grab an item number from a drawing BOM and have it populate in a custom iproperty. 

A little background why.... We have a custom view label that needs to reference the BOM as well as the single part file.

If anyone has any Ilogic code that may work to achieve this, please let me know 

Thank you for your time 

[JelteDeJong]

try the following rule in a drawing of an assembly.

Dim doc As DrawingDocument = ThisDoc.Document
Dim sheet As Sheet = doc.ActiveSheet
Dim view As DrawingView = sheet.DrawingViews.Item(1)

Dim assemblyDoc As AssemblyDocument = view.ReferencedDocumentDescriptor.ReferencedDocument
Dim propertyName As String = "BomItemNumber"

Dim bom As BOMView = assemblyDoc.ComponentDefinition.BOM.BOMViews.Item("Structured")
For Each row As BOMRow In bom.BOMRows
    Dim itemNumber As String = Row.ItemNumber

    ' 1 bom row can be associated with multiple parts
    ' we need to find all.
    For Each occ As ComponentOccurrence In Row.ComponentOccurrences
        Try
            Dim occDoc As Document = occ.ReferencedDocumentDescriptor.ReferencedDocument
            Dim propSet As PropertySet = occDoc.PropertySets.Item("Inventor User Defined Properties")

            Try
                propSet.Item(propertyName).Value = itemNumber
            Catch ex As Exception
                propSet.Add(itemNumber, propertyName)
            End Try

        Catch ex As Exception
            MsgBox("Could not set Item number to occurrence: " & occ.Name)
        End Try
    Next
Next