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

removeitems的一个问题

使用如下程序片段，发现没有将我要从选择集中删除的东西全部删完
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 发表于 2005-12-23 08:20:00

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

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

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


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

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