removeitems的一个问题

leizi_y

使用如下程序片段，发现没有将我要从选择集中删除的东西全部删完

sub ssss()

..............................

Dim entry As AcadEntity    

dim cccc(0) as AcadEntity   

For Each entry In lsSet  

           cccc(0)=entry
           lsSet.RemoveItems cccc

          lsSelectionSet.Update
 
Next

  End Sub

发现 比如 选择集中有 1 2 3 4 5 对象，我要将1 2 4 删除，这样运行的结果是仅能删除1对象不能删除2对象。。。

希望各位大侠指点以下

雪山飞狐_lzh

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

wyj7485

移除一个对象后,后面的对象自动向前移动一位.

比如 选择集中有 1 2 3 4 5 对象，我要将1 2 4移除

2次移除1,再移除2就可以达到目的

 

 

xinghesnak

要是选择集不大的话，删完1后就goto 到 For each 那一句，反正就是有点重复。。