b.hassink

How to get information from ICT table

Discussion created by b.hassink on Jan 18, 2010
Latest reply on Feb 1, 2010 by b.hassink

The following Walk_Comps(objComps) function doesn't walk though a ICT table if this is part from an Hierarchical Schematic.

 

' Traverse components, sheets, and hierarchy; perform functions
Sub Walk_Comps(objComps)
    Dim objComp, objSymBlk, iSymType
    For Each objComp In objComps
        Set objSymBlk = objComp.SymbolBlock
        iSymType = objSymBlk.SymbolType
        'Skip Annotate and Pin type symbols
        If ((iSymType <> VDB_ANNOTATE) And (iSymType <> VDB_PIN) And (objComp.Refdes <> "")) Then
            'Update parts list with component data
            GetComponentData objComp
        End If 
    Next
End Sub

 

'Get the data from the component
Sub GetComponentData(comp)
        Refdes = comp.Refdes
        'Refdes = GetCompSymAttributeValue(comp, "REFDES")
        If (Refdes = "") Then Refdes = comp.Uid
        DeviceAtt = GetCompSymAttributeValue(comp, "DEVICE")
        If (DeviceAtt = "") Then DeviceAtt = comp.SymbolBlock.GetName(SHORT_NAME)
        PartNumAtt = GetCompSymAttributeValue(comp, "PART_NUMBER")
        'More attributes can be added here
        ValueAtt = GetCompSymAttributeValue(comp, "VALUE")
        AttachAtt = GetCompSymAttributeValue(comp, "Attachment")
  DNPAtt = GetCompSymAttributeValue(comp, "Unplaced Symbol")

 

Could someone suggest how you could walk through a entire design including Interconnectivity Tables and get the REFDES and PART_Number information?

 

Looking forward for any suggestion.

 

Best regards,

Bas

Outcomes