[编程申请]：将某图层的所有图形历篇……

yycah

求助！要实现这样的功能：将某图层的所有图形历篇，将每一类完全一样的图形COPY到工作区的另一个地方，之后还要对COPY出来的图形进行编辑，可以吗？万分感谢！！
也就是对某图层的所有图形逐一比较，然后完全一样的图形归一类，每一类图形抽一个放到一个集合中去逐一编辑




Dim sstext As AcadSelectionSet
   Dim FilterType(0) As Integer
   Dim FilterData(0) As Variant
   ThisDrawing.SelectionSets.Item("ss2").Delete
   
   Set sstext = ThisDrawing.SelectionSets.Add("SS2")
   FilterType(0) = 0
   FilterData(0) = "Circle"
   sstext.SelectOnScreen FilterType, FilterData
运行提示 FilterType 不能用在这里


尝试：
     redim ss(o to ThisDrawing.ModelSpace.count-1) as AcadEntity
          ……(不记得了^|^,因为是在网吧上网）
     之后遇到问题，怎样向一个选择集中不断添加我检测到的图形？？

拜托各位师长！！



得一法，与有需求的朋友共享：（特别感谢 lzh741206 提供）
function GetSel(Optional Name = "TLSSEL") As AcadSelectionSet
On Error Resume Next
    ThisDrawing.SelectionSets(Name).Delete
    Set GetSel = ThisDrawing.SelectionSets.Add(Name)
End Function

Sub t()
Dim ss As AcadSelectionSet
Set ss = GetSel()

Dim ft(0) As Integer, fd(0)
LayerName = "0"
ft(0) = 8: fd(0) = LayerName

ss.Select acSelectionSetAll, , , ft, fd

End Sub