请教高手：
如何在一个选择单行文字的选择集中，只获得同一类型的一组字符！
例如选择集中有10个字符 T 和8个字符 K，现在我只是想获得一个只有一个字符T和K的选择集，请问如何处理？
以下是我以前的源码，想在选择集中删除相同的字符，却不能实现！
For i = 0 To sset.count - 1
Dim b As AcadText
Set b = sset.Item(i)
Dim a(0) As AcadText
Set a(0) = sset.Item(i + 1)
If a(0) = b Then
sset.RemoveItems a
End If
Next
置顶卡
