请教：过滤语法好像没错，为什么选择集里没对象呢？

Public Sub mx()
    Dim Pt1 As Variant
    Dim Pt2 As Variant
    Dim ssEnt As AcadSelectionSet
    Dim EntObj(0) As AcadEntity
    On Error Resume Next
    Set ssEnt = ThisDrawing.SelectionSets.Add("ssEnt")
    ssEnt.SelectOnScreen
    Set EntObj(0) = ssEnt.Item(0)
    ssEnt.Clear: ssEnt.Delete
    EntObj(0).GetBoundingBox Pt1, Pt2
    
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")
    ssetObj.Clear    Dim gpCode(0) As Integer
    Dim dataValue(0) As Variant
    gpCode(0) = 8
    dataValue(0) = "1"ssetObj.Select acSelectionSetCrossing, Pt1, Pt2, gpCode, dataValue
ssetObj.Clear
ssetObj.Delete
End Sub