SelectOnScreen不能进行选择的问题，求教

牧师_僧

初学VBA，想通过建立选择集的方法，将CAD中符合条件(多线段)的图元添加到选择集中，之后再用块对选择集中的元素进行等分，但是程序运行时没有返回CAD界面让用户自行选择，还请各位大神给点指导。
------------------------------------------------------------------------------------------------------------------------------
命令如下：
'选择集多线段(dxd)的设置
  On Error Resume Next
  Dim sset As AcadSelectionSet
  If Not IsNull(ThisDrawing.SelectionSets.Item("dxd")) Then
     Set sset = ThisDrawing.SelectionSets.Item("dxd")
     sset.Delete
  End If
  Set sset = ThisDrawing.SelectionSets.Add("dxd")
  
  Dim FilterType(0 To 2) As Integer
  Dim FilterData(0 To 2) As Variant
  
  '设置过滤器类型
  FilterType(0) = -4
  FilterType(1) = 0
  FilterType(2) = -4
  
  '设置过滤数据
  FilterData(0) = "<or"
  FilterData(1) = "LWPolyline"
  FilterData(2) = "or>"
  
  sset.SelectOnScreen FilterType, FilterData

我把这段命令放在一个窗体的click事件中，但是运行时点了按钮后不能返回cad绘图框进行选择，然后用msgbox sset.count查看选择集中的元素个数也为零。请大神帮忙分析下怎么回事呢~