大侠看看这段选择集过滤的代码如何修改

csqqqqq

Sub 创建新的选择集()
Dim sset As AcadSelectionSet
     If Not IsNull(ThisDrawing.SelectionSets.Item("newadd")) Then
        Set sset = ThisDrawing.SelectionSets.Item("newadd")
        sset.Delete
     End If
Set sset = ThisDrawing.SelectionSets.Add("newadd")

FilterType = 8
FilterData = "图层1"

sset.Select acSelectionSetAll, , , FilterType, FilterData
End Sub
提示FilterType位于Select中无效 代码错误，请指教

mccad

已经有人解决了。

过滤器中的FilterType和Filter均应为数组，而不应该只是整数和变体。