Sub clear()
Dim sstext As AcadSelectionSet
Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
On Error Resume Next
If Not IsNull(ThisDrawing.SelectionSets.Item("Clear")) Then
Set sstext = ThisDrawing.SelectionSets.Item("Clear")
sstext.Delete
End If
Set sstext = ThisDrawing.SelectionSets.Add("Clear")
FilterType(0) = 8
FilterData(0) = "JZD"
sstext.Select acSelectionSetAll FilterType，FilterData
……
end sub
如上代码，我想在让选择集sstext在窗口中处于被选中状态，然后执行move命令，改如何操作?
谢谢高手！
置顶卡
