Attribute textstrings by Tagstring

[darfnuggi]

Merry Christmas and a happy new year everybody. Just a little question before the party breaks loose. I'm making a macro that will notify me of all blocknames in a drawing, their occurrence, and a textvalue based on a tagstring. The macro works ok, but the attribute it looks for is fixed. I want to make it dependant on the tagstring ("Type") , and I'm having trouble figuring out how. This part of the code is what I need to change to make it work that way:

 For Each Ent In sset
        
        If TypeOf Ent Is AcadBlockReference Then
        Set Blkref = Ent
        If Blkref.HasAttributes Then
            TextAtts = Blkref.GetAttributes
            Attext = TextAtts(1).TextString
        End If
        End If
        
        BlkNmString = BlkNmString & Blkref.EffectiveName & " - " & Attext & ":"
        Attext = ""
    Next Ent

I tried the following but it also selects the second attribute, and ignores the tagstring (wich should be the criterium for getting the textstring).

''                For i = LBound (Textatts)  To UBound(TextAtts)
''                If TextAtts(i).TagString = "Type" Then
''                        Attext = TextAtts(i).TextString
''                        Else
''                        Attext = ""
''                End If
''                Next i

Inspiration & help would be great. I've run out of ideas.

[RobertB]

I see no problem other than the usual issues with string comparisons:

If UCase(TextAtts(i).TagString) = "TYPE" Then

[darfnuggi]

Thank you very much. This worked well. Another bad in my program was ( Else Attext = " ") because it wiped the result of "Type" if the macro found another blockattribute after that one.

[fixo]

Originally Posted by darfnuggi

Thank you very much. This worked well. Another bad in my program was ( Else Attext = " ") because it wiped the result of "Type" if the macro found another blockattribute after that one.

Change on this code block

 
               For i = LBound (Textatts)  To UBound(TextAtts)
                If UCase(TextAtts(i).TagString) = "TYPE" Then
                       Attext = TextAtts(i).TextString  
             End If
             Next i

~'J'~

[darfnuggi]

I would leave the "Else" in there. Like this:

 For i = LBound (Textatts)  To UBound(TextAtts)
             If UCase(TextAtts(i).TagString) = "TYPE" Then
                       Attext = TextAtts(i).TextString  
                 Else
             End If
             Next i

Without the "Else" the program stops when "TYPE" isn't found.

[RobertB]

Originally Posted by darfnuggi

I would leave the "Else" in there. Like this:

 For i = LBound (Textatts)  To UBound(TextAtts)
             If UCase(TextAtts(i).TagString) = "TYPE" Then
                       Attext = TextAtts(i).TextString  
                 Else
             End If
             Next i

Without the "Else" the program stops when "TYPE" isn't found.

What makes you think that?

[darfnuggi]

You are right, I shouldn't have thought that. I assumed the program wouldn't know what to do if "TYPE" didn't occur in the block at all, but it just ignores those attributes.