初学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
置顶卡
