选择集的问题

amao666

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命令，改如何操作?
谢谢高手！

wwswwswws

for each obj in 选择集
   obj.move basepoint,newpoint
next

大概是这样，研究一下。记不太清MOVE的用法了