Is named Attribut in AttributSet

For handling AttributSets there is a function IsAttributSetPresent this one works. But handling Attributs a function IsAttributPresent is missing so I tried my own solution:

 

Private Function IsAttributPresent( _

ByRef seAttributSet As SolidEdgeFramework.AttributeSet, _

ByRef sAttributName As String) As Boolean

Dim lAttribut As Long

Dim seAttribut As SolidEdgeFramework.Attribute

For lAttribut = 1 To seAttributSet.Count

seAttribut = seAttributSet.Item(lAttribut)

If seAttribut.Name = sAttributName Then

Return True

Exit Function

End If

Next

Return False

End Function

 

My problem: it fails in "seAttribut = seAttributSet.Item(lAttribut)"

 

Juergen

 

Posted by: Jürgen Karl
Post date: 11/16/2005 6:37:20 PM