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

tjdxtm · 发表于 2004-11-3 14:13:00

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"
   sstext.SelectOnScreen FilterType, FilterData不能选择线了，看看什么问题？先谢了