Extract iProperty information directly from an occurence

[shastu]

I know how to extract iProperty information from a file that is open.  What I am wanting to do is be able to capture the iProperty information of a part that is selected in an assembly.  Similar to how I can get the name of the occurrence with:

    Dim oSS As SelectSet
    Set oSS = oDoc.SelectSet

 OccurrenceName= oSS.Item(1).Name

I want to be able to get the Part Number, Stock Number, and Description iProperties of that occurrence

[chandra.shekar.g · Accepted solution]

@shastu,

Try below VBA code to extract iPorperty information from selected occurrence.

Sub FindiProperties()
    Dim oDoc As AssemblyDocument
    Set oDoc = ThisApplication.ActiveDocument
    
    Dim oSS As SelectSet
    Set oSS = oDoc.SelectSet

    Dim occ As ComponentOccurrence
    On Error GoTo Exception
    Set occ = oSS.Item(1)
    
    Dim oReferDoc As Document
    Set oReferDoc = occ.ReferencedDocumentDescriptor.ReferencedDocument
    
    Dim oPartNo As String
    Dim oStockNo As String
    Dim oDesc As String
    
    oPartNo = oReferDoc.PropertySets.Item("Design Tracking Properties").Item("Part Number").Expression
    oStockNo = oReferDoc.PropertySets.Item("Design Tracking Properties").Item("Stock Number").Expression
    oDesc = oReferDoc.PropertySets.Item("Design Tracking Properties").Item("Description").Expression
    
Exception:
    If Err.Number = 13 Then
        MsgBox ("Selected object is not occurrence")
    End If
End Sub

Thanks and regards,

[shastu]

Thanks so much.  I appreciate it greatly.