Select. Фильтр блоков с атрибутом на нужном слое, и с нужным значением. Реально?

Command: insert
Command: (entget(entlast))
((-1 . <Entity name: 7efc04d0>) (0 . "INSERT") (330 . <Entity name: 7efbec10>)
(5 . "10A") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") [b](100 .
"AcDbBlockReference") (66 . 1)[/b] (2 . "Q-11") (10 14431.9 6792.11 0.0) (41 .
10.0) (42 . 10.0) (43 . 10.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 .
0.0) (210 0.0 0.0 1.0))
*******************************************************************************************
Command: _xattach
Attach Xref "05-05-3": F:\DWG-Samples\05-05-3.dwg
"05-05-3" loaded.
Xref "+3.90": C:\MyProj\2005\????05-05\ARCH\work\+3.90.dwg
"+3.90" is unloaded.
Command: (entget(entlast))
((-1 . <Entity name: 7efc0708>) (0 . "INSERT") (330 . <Entity name: 7efbec10>)
(5 . "151") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") [b](100 .
"AcDbBlockReference")[/b] (2 . "05-05-3") (10 0.0 0.0 0.0) (41 . 10.0) (42 . 10.0)
(43 . 10.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0
1.0))
*******************************************************************************************
Command: minsert
Enter block name or [?] <A$C12485B9F>: Q-11
Units: Unitless   Conversion:   10.0000
Specify insertion point or [Basepoint/Scale/X/Y/Z/Rotate]:
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>:
Enter Y scale factor <use X scale factor>:
Specify rotation angle <0>:
Enter number of rows (---) <1>: 10
Enter number of columns (|||) <1>: 10
Enter distance between rows or specify unit cell (---): 10
Specify distance between columns (|||): 10
Enter attribute values
enter o.k.:
Command: (entget(entlast))
((-1 . <Entity name: 7efc0710>) (0 . "INSERT") (330 . <Entity name: 7efbec10>)
(5 . "152") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") [b](100 .
"AcDbMInsertBlock") (66 . 1)[/b] (2 . "Q-11") (10 14582.3 7115.69 0.0) (41 . 10.0)
(42 . 10.0) (43 . 10.0) (50 . 0.0) (70 . 10) (71 . 10) (44 . 10.0) (45 . 10.0)
(210 0.0 0.0 1.0))

Sub a_101()
    Dim ssetObj As AcadSelectionSet
    Dim ssetObj_temp As New Collection
    'Обработчик ошибок
    On Error Resume Next
'Создание объекта выборки и сама выборка блоков
    Set ssetObj = ThisDrawing.SelectionSets("Boxa")
    If Err <> 0 Then
        Err.Clear
        Set ssetObj = ThisDrawing.SelectionSets.Add("Boxa")
    End If
    ssetObj.Clear
    ssetObj.SelectOnScreen
'Обработчик ошибок
    On Error GoTo error_
    For Each item In ssetObj 'Вычищаем выборку от всего кроме Блоков
    'И фильтруем эти блоки по каком то параметру из атрибутов
        If item.ObjectName = "AcDbBlockReference" Then
            Attributes = item.GetAttributes
            If Attributes(0).TextString = "255" Then ssetObj_temp.Add item
            'Если условие удовлетворяется
            'Перекладываю объект в новую коллекцию и в
            'последствии работаю только с ней.
        End If
    Next
error_:
If Err <> 0 Then MsgBox "Ошибочка была"
'Просто отладочнаЯ строка
    da = da + 1
'Завершение программы и закрытие всех объектов.
    ssetObj.Clear
    ssetObj.Delete
End Sub