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

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

本帖最后由 作者 于 2006-10-30 22:14:30 编辑 <br /><br /> <P>请教高手：</P>
<P>如何在一个选择单行文字的选择集中，只获得同一类型的一组字符！</P>
<P>例如选择集中有10个字符 T 和8个字符 K，现在我只是想获得一个只有一个字符T和K的选择集，请问如何处理？</P>
<P>以下是我以前的源码，想在选择集中删除相同的字符，却不能实现！</P>
<P>&nbsp;For i = 0 To sset.count - 1<BR>&nbsp;&nbsp;&nbsp;&nbsp; Dim b As AcadText<BR>&nbsp;&nbsp;&nbsp;&nbsp; Set b = sset.Item(i)<BR>&nbsp;&nbsp;&nbsp;&nbsp; Dim a(0) As AcadText<BR>&nbsp;&nbsp;&nbsp;&nbsp; Set a(0) = sset.Item(i + 1)<BR>&nbsp;&nbsp;&nbsp;&nbsp; If a(0) = b Then<BR>&nbsp;&nbsp;&nbsp;&nbsp; sset.RemoveItems a<BR>&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp; Next<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;</P>

雪山飞狐_lzh 发表于 2006-11-1 12:47:00

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

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

先谢谢，我试试先！

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

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