AnsweredAssumed Answered

Identifying Border symbol?

Question asked by delinquent on Jan 31, 2017
Latest reply on Feb 2, 2017 by delinquent

Hi all,

we are planning to change our schematic borders. Some new properties are added, some will be deleted. All new properties are listed in CentLib.prp

Now Im trying to identify if a titleblock was updated or is still the old one....

So far so good. The concept of searching for new titleblock properties does not work since these properties are not listed after processing "Tools - Update Symbols..."

Also selecting these properties in schematic is not possible until you change the value in properties window.

Im using this code: Old properties are listed completely. New properties are not listed unless value was changed....

Sub ReadBorderProps()

    Dim comp, attr, colAttrs

   

    ' Activate the current view, important after switching active windows.

    Application.ActiveView.Activate()

   

    ' Scan each component until you find the one that has a unique border property.

    For Each comp In Application.ActiveView.Query(VDM_COMP, VD_ALL)

        If Not comp Is Nothing Then

            ' Look for the property TitleHeading on the symbol

            Set attr = comp.SymbolBlock.FindAttribute("TITLEHEADING" )

            If Not attr Is Nothing Then

                ' Found the border, comp now points to it.

                Set gobjBorderComp = comp

                ' Now read the attributes from the border comp and get their values.

                For Each attr In gobjBorderComp.Attributes

                    gdictBorderProps(attr.Name) = attr.EitherValue

                    ListBoxMessages.AddString(attr.Name & " : " & gdictBorderProps(attr.Name))

                Next

                Exit For

            End If

        End If

    Next

End Sub

What can I do to get it to work? How can I identify new titleblock

Outcomes