请问在VBA中怎么使一个选择集只选中模型空间中可见图元？

fyt234

请问在VBA中怎么使一个选择集只选中模型空间中可见图元？
我隐藏&锁定&冻结了其他,然后使用了

FilterType = 60
FilterData = 0
sset.SelectOnScreen FilterType, FilterData

可是选不中任何图元，也没什么错误提示？？？
烦闷！
高手，救救我吧？

mccad

Sub GetEnt()
    Dim ss As AcadSelectionSet
    Set ss = CreateSelectionSet
    Dim Ly As String
    Ly = ""
    Dim Lyer As AcadLayer
    Dim I As Integer
    Debug.Print ThisDrawing.Layers.Count
    For I = 0 To ThisDrawing.Layers.Count - 1
        Set Lyer = ThisDrawing.Layers(I)
        If Lyer.LayerOn = True Then
            Ly = Ly & Lyer.Name & ","
        End If
    Next
    Dim fType As Variant: Dim fData As Variant
    BuildFilter fType, fData, 8, Ly
    ss.Select acSelectionSetAll, , , fType, fData
    Debug.Print ss.Count
End Sub

Public Function CreateSelectionSet(Optional ssName As String = "ss") As AcadSelectionSet

    Dim ss As AcadSelectionSet
   
    On Error Resume Next
    Set ss = ThisDrawing.SelectionSets(ssName)
    If Err Then Set ss = ThisDrawing.SelectionSets.Add(ssName)
    ss.Clear
    Set CreateSelectionSet = ss

End Function

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