leizi_y 发表于 2005-12-22 17:00:00

removeitems的一个问题

<P>使用如下程序片段，发现没有将我要从选择集中删除的东西全部删完</P>
<P>sub ssss()</P>
<P>..............................</P>

<P>Dim entry As AcadEntity&nbsp;&nbsp;&nbsp;&nbsp; </P>
<P>dim cccc(0) as AcadEntity&nbsp;&nbsp;&nbsp;</P>
<P>For Each&nbsp;entry In lsSet&nbsp;&nbsp;</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cccc(0)=entry<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; lsSet.RemoveItems&nbsp;cccc</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; lsSelectionSet.Update<BR>&nbsp;<BR>Next</P>
<P>&nbsp; End Sub</P>
<P>发现 比如&nbsp;选择集中有 1 2 3 4 5 对象，我要将1 2&nbsp;4 删除，这样运行的结果是仅能删除1对象不能删除2对象。。。</P>
<P>希望各位大侠指点以下</P>

雪山飞狐_lzh 发表于 2005-12-23 08:20:00

把你需要移除的对象放在一个数组里,再调用该方法

wyj7485 发表于 2005-12-23 09:05:00

<P>移除一个对象后,后面的对象自动向前移动一位.</P>
<P>比如&nbsp;选择集中有 1 2 3 4 5 对象，我要将1 2&nbsp;4移除</P>
<P>2次移除1,再移除2就可以达到目的</P>
<P>&nbsp;</P>
<P>&nbsp;</P>

xinghesnak 发表于 2005-12-23 11:25:00

要是选择集不大的话，删完1后就goto 到 For each 那一句，反正就是有点重复。。
页: [1]
查看完整版本: removeitems的一个问题