[讨论]：AutoCAD 中Group(组)的问题

efan2000

把几个实体组成组，可以便于同时操作。然而，一旦删除了实体，这些实体所在的组并不会随之而删除，而是遗留于数据库中。久而久之，将会极大的影响系统速度。
    下面附上清理组的程序：

2. 
   
3.   [FONT=courier new]
   
4. Public Sub GroupPurge()
   
5.     Dim EntObj As AcadGroup
   
6.    
   
7.     On Error GoTo ErrTrap
   
8.     For Each EntObj In ThisDrawing.Groups
   
9.        If EntObj.Count = 0 Then EntObj.Delete
   
10.     Next
    
11.     Set EntObj = Nothing
    
12.     Exit Sub
    
13.    
    
14. ErrTrap:
    
15.     If Not (EntObj Is Nothing) Then Set EntObj = Nothing
    
16.     On Error GoTo 0
    
17. End Sub
    
18.   [/FONT]
    

<br />   [FONT=courier new]<br /> Public Sub GroupPurge()<br />     Dim EntObj As AcadGroup<br />     <br />     On Error GoTo ErrTrap<br />     For Each EntObj In ThisDrawing.Groups<br />        If EntObj.Count = 0 Then EntObj.Delete<br />     Next<br />     Set EntObj = Nothing<br />     Exit Sub<br />     <br /> ErrTrap:<br />     If Not (EntObj Is Nothing) Then Set EntObj = Nothing<br />     On Error GoTo 0<br /> End Sub<br />   [/FONT]<br />

wufei1

怎么用，请告知！

efan2000

在工具-宏-Visual Basic 编辑器中，粘贴以上的代码，按F5运行即可。

wufei1

多谢！

sharksun

精简实用！

chinnet

谢谢

爱与和平

If EntObj.Count = 0 Then EntObj.Delete
这句不明白，是不是被删除的实体的引用次数是0？？
如果组被复制多次，被删除的实体引用还是0？