SelectOnScreen没有效果是怎么回事

鲁鲁托克斯 · 发表于 2012-10-24 14:56:00

初学VBA，想定义一个选择集，并且在屏幕上选择多线段和直线添加到这个选择集中
将selectonscreen的命令放在窗体的一个click事件中，F5运行程序，却不能对绘图空间中的图元进行选择，就直接进入到下一句
具体命令如下，大神帮忙分析下
  Dim sset As AcadSelectionSet
  Set sset = ThisDrawing.SelectionSets.Add("dxd")

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

'设置过滤器类型
FilterType(0) = -4
FilterType(1) = 0
FilterType(2) = 0
FilterType(3) = -4
'设置过滤数据
FilterData(0) = ""
'添加至选择集中，在选择过程中进行过滤
sset.SelectOnScreen FilterType, FilterData

  MsgBox "sset.Count=" & sset.Count
还没有进行选择就直接弹出信息窗口 sset.Count=0
-------------------------------------------------------------------------------------------------------------------
然后我在论坛上寻找有关selectonscreen的问题，按照一个帖子的说法对过滤器进行了如下的修改，但是还是不能再cad绘图界面上对图元进行选择，请问这是什么问题呢？
  Dim FilterType(0 To 3) As Integer
  Dim FilterData(0 To 3) As Variant
  FilterType(0) = 0
  FilterData(0) = "*PolyLine"

wylong · 发表于 2012-10-24 22:50:00

copy


Private Sub CommandButton1_Click()
    Dim sset As AcadSelectionSet
    
    On Error Resume Next
    ThisDrawing.SelectionSets("dxd").Delete
    Set sset = ThisDrawing.SelectionSets.Add("dxd")
    On Error GoTo 0
    
    Dim FilterType(0 To 3) As Integer
    Dim FilterData(0 To 3) As Variant
    '设置过滤器类型
    FilterType(0) = -4
    FilterType(1) = 0
    FilterType(2) = 0
    FilterType(3) = -4
    '设置过滤数据
    FilterData(0) = ""
    
    Me.hide
    
    '添加至选择集中，在选择过程中进行过滤
    sset.SelectOnScreen FilterType, FilterData
    MsgBox "sset.Count=" & sset.Count
    
    Me.Show
End Sub