使用如下程序片段，发现没有将我要从选择集中删除的东西全部删完
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对象。。。
希望各位大侠指点以下
置顶卡
