bsirhell 发表于 2006-10-30 20:54:00

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

请教高手：
如何在一个选择单行文字的选择集中，只获得同一类型的一组字符！
例如选择集中有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 发表于 2006-11-1 12:47:00

在for循环中删除集合中的数据显然是不正确的方法
简单的办法是再建一个集合，把你需要的数据放进去

bsirhell 发表于 2006-11-2 06:15:00

先谢谢，我试试先！

bsirhell 发表于 2006-11-2 20:41:00

可是请问版主，我如何获得这些字符？
用for循环比较两个字符好像也不能如愿以偿！
页: [1]
查看完整版本: [求助]如何获得同一类型的一组字符