[求助]：组中图元删除的问题！非常奇怪！

自由的鱼

现在有一GROUP，组名为a,组内有三个text,下面的语句为什么没有办法将组中的item全部删除？总是删除掉两个TEXT，还剩下一个，然后就出现“无效的过程调用”错误


Sub tt()
Dim i As Integer
Dim gobj As AcadGroup
Set gobj = ThisDrawing.Groups.Item("a")
For i = 0 To gobj.Count - 1
    gobj.Item(i).Delete
Next
End Sub

灯火

Sub tt()
    Dim i As Integer
    Dim gobj As AcadGroup
    Set gobj = ThisDrawing.Groups.Item("a")
    For i = gobj.Count - 1 To 0 Step -1;修改
        gobj.Item(i).Delete
    Next
End Sub

lijiao

最初由 自由的鱼 发布
[B]现在有一GROUP，组名为a,组内有三个text,下面的语句为什么没有办法将组中的item全部删除？总是删除掉两个TEXT，还剩下一个，然后就出现“无效的过程调用”错误


Sub tt()
Dim i As Integer
Dim gobj As AcadGr... [/B]

这样可能会好一些：

2. 
   
3.   [FONT=courier new]
   
4. Sub tt()
   
5. Dim EntObj As AcadEntity
   
6. Dim Gobj As AcadGroup
   
7. Set Gobj = ThisDrawing.Groups.Item("a")
   
8. For Each EntObj In Gobj
   
9.    EntObj.Delete
   
10. Next EntObj
    
11. End Sub
    
12. 
    
13.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub tt()<br /> Dim EntObj As AcadEntity<br /> Dim Gobj As AcadGroup<br /> Set Gobj = ThisDrawing.Groups.Item("a")<br /> For Each EntObj In Gobj<br />    EntObj.Delete<br /> Next EntObj<br /> End Sub<br /> <br />   [/FONT]<br />

原因：
因为删除0后，1变为0，2变为1；
    删除1后（实际是删除原来的2），剩下一个0（原来的1）；
    删除2时，此时已经没有2的索引了，当然出错。

自由的鱼

原来是这样，看来删除就只能从后向前删除了，这就和选择集有很大的不同了，索引居然是递减的！
谢谢二，三楼的朋友！

雪山飞狐(lzh)

For i = 0 To gobj.Count - 1
gobj.Item(0).Delete
Next
不就行了

自由的鱼

楼上的方法也不错！只删除当前条目！

baby1

CAD中的GROUP干什么用