Scope: Schematic editor
Object: ComponentPin Object
Prerequisites: None
Searches all component pin attributes for one matching AttributeName.
ComponentPin.FindAttribute(ByVal AttributeName As String) As IVdAttr
The attribute name that is targeted by the search.
As IVdAttr. The attribute object, if found; otherwise, the NULL string is returned.
This example finds the PINTYPE attribute.
Set Attr = CompPin.FindAttribute("PINTYPE")
If Attr Is Nothing Then
MsgBox "No PINTYPE atribute found"
Else
MsgBox "PINTYPE=" & Attr.Value
End If