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查看选择集中的元素个数也为零。请大神帮忙分析下怎么回事呢~
页:
[1]