It appears that calling the line
Code: Select all
MsgBox " OUTPUT : " & varAtts.Item(0).textString
Does anyone know the proper method or more details on working with the GetAttributes property? All the examples I've found seem to match the methods I've used.
Code: Select all
For i = 0 To (entcount - 1)
Set objEntity = ThisWorkspace.ActiveDocument.ModelSpace.Item(i)
If objEntity.EntityType = vicBlockInsert And objEntity.Layer = "TRAFFIC" Then
Set objBlockRef = objEntity
BLOCKNAME = objBlockRef.Name
If BLOCKNAME = "HANDICAP" Then HCOUNT = HCOUNT + 1
If BLOCKNAME = "PARKING SPACES" Then
MsgBox objBlockRef.GetAttributes.count 'Returns 1 which is correct
Set varAtts = objBlockRef.GetAttributes
'PROBLEM: THIS IS RETURNING NOTHING TO THE VARIABLE!
MsgBox " OUTPUT : " & varAtts.Item(0).textString
'PCOUNT = PCOUNT + val(varAtts)
End If
End If
Next i