求助！

yycah

求助！要实现这样的功能：对某图层的所有图形逐一比较，然后完全一样的图形归一类，每一类图形抽一个放到一个集合中去逐一编辑,还要每一类图形的个数。


**************
以下是我的尝试：
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
……(不记得了^|^,因为是在网吧上网）
之后遇到问题，怎样向一个选择集中不断添加我检测到的图形？？
***************
拜托师长！！

zxj_76

Dim sstext As AcadSelectionSet
Dim FilterType(0) As Integer, FilterData(0) As Variant
Dim GroupCode as variant, DataCode as variant
ThisDrawing.SelectionSets.Item("ss2").Delete

Set sstext = ThisDrawing.SelectionSets.Add("SS2")
FilterType(0) = 0:  FilterData(0) = "Circle"
GroupCode = FilterType: DataCode = FilterData
sstext.SelectOnScreen GroupCode, DataCode