求助关于选择集的问题。

zhumb

以下程序错在哪里？ '选择该层所有对象
Public Sub s()
Dim sset As AcadSelectionSet
On Error Resume Next
Set sset = ThisDrawing.SelectionSets.Item("SS1")
sset.Delete
Set sset = ThisDrawing.SelectionSets.Add("SS1")
FilterType = 8
FilterData = "0"
sset.SelectOnScreen FilterType, FilterData
End Sub

mccad

过滤器有误，注意过滤器的两个参数是数组，而不是单纯的数据

alin

Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
FilterType(0) = 8
FilterData(0) = "0"
sset.SelectOnScreen FilterType, FilterData