[求助]如何获得同一类型的一组字符

bsirhell

请教高手：

如何在一个选择单行文字的选择集中，只获得同一类型的一组字符！

例如选择集中有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
     
    

雪山飞狐_lzh

在for循环中删除集合中的数据显然是不正确的方法

简单的办法是再建一个集合，把你需要的数据放进去

bsirhell

先谢谢，我试试先！

bsirhell

可是请问版主，我如何获得这些字符？

用for循环比较两个字符好像也不能如愿以偿！