帮我看看代码，怎么不能选择？

tjdxtm

On Error Resume Next
Dim sstext As AcadSelectionSet
Dim FilterType(0 To 5) As Integer
Dim FilterData(0 To 5) As Variant Set sstext = ThisDrawing.SelectionSets.Add("SSS1")
If Err Then
Err.Clear
Set sstext = ThisDrawing.SelectionSets.Item("SSS1")
End If

FilterType(0) = 0: FilterData(0) = "<or"
FilterType(1) = 0: FilterData(1) = "LINE"
FilterType(2) = 0: FilterData(2) = "Circle"
FilterType(3) = 0: FilterData(3) = ">or"
sstext.SelectOnScreen FilterType, FilterData 不能选择线了，看看什么问题？先谢了

wyj7485

Dim FilterType(0 To 3) As Integer
Dim FilterData(0 To 3) As Variant

雪山飞狐_lzh

Dim FilterType(0) As Integer
Dim FilterData(0) As Variant FilterType(0) = 0: FilterData(0) = Line,Circle"

tjdxtm

谢谢lzh741206斑竹

laoliu09

FilterData(0) = Line,Circle"
为什么可以这样？不能FilterData(0 to 1)吗？