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
------------------------------------------------------------------------------------------------------------------
效果是点了绘图之后没有反应，不能自主选择

liuxu042

要自己分析一下原因，vba问题不要再这个版面请教呀，这是net版面，
不能自主选择什么意思？模态窗体...还是