[求助]怎样利用SelectOnScreen方法的过滤机制

Public SSetObj As AcadSelectionSet
Public EntObj As AcadEntity
Private Sub www()
    Dim fType As Variant
    Dim fData As Variant
       
    On Error Resume Next
    Set SSetObj = ThisDrawing.SelectionSets("test")
    If Err.Number  0 Then
        Err.Clear
        Set SSetObj = ThisDrawing.SelectionSets.Add("test")
    End If
    SSetObj.Clear
    BuildFilter fType, fData, [b]-4, ""[/b]
    SSetObj.SelectOnScreen fType, fData
    Dim bl
    bl = EntObj.TextString
    
End Sub
Public Sub BuildFilter(typeArray, dataArray, ParamArray gCodes())
    Dim fType() As Integer, fData()
    Dim index As Long, i As Long
     
    index = LBound(gCodes) - 1
         
    For i = LBound(gCodes) To UBound(gCodes) Step 2
        index = index + 1
        ReDim Preserve fType(0 To index)
        ReDim Preserve fData(0 To index)
        fType(index) = CInt(gCodes(i))
        fData(index) = gCodes(i + 1)
    Next
    typeArray = fType: dataArray = fData
End Sub