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 于 2012-10-24 11:52 编辑
要自己分析一下原因，vba问题不要再这个版面请教呀，这是net版面，
不能自主选择什么意思？模态窗体...还是
页:
[1]