[试用]：能清理GROUP的“增强清理”程序

ahlzl

应网友要求，写了个可清理GROUP的小程序。

这个程序只能在CAD2005下运行。先用NETLOAD命令加载附件中的DLL文件，再输入“PU”，有三个选项：清理无名组；清理所有的组；默认清理。

andyhua5240

那能不能做个能在2002/2004下运行的呢？
谢谢！

自由的鱼

别人的程序：
Public Sub GroupPurge()
    Dim EntObj As AcadGroup
   
    On Error GoTo ErrTrap
    For Each EntObj In ThisDrawing.Groups
       If EntObj.Count = 0 Then EntObj.Delete
    Next
    Set EntObj = Nothing
    Exit Sub
   
ErrTrap:
    If Not (EntObj Is Nothing) Then Set EntObj = Nothing
    On Error GoTo 0
End Sub

wowoaicad

效果显著吆*-*4

ahlzl

最初由 自由的鱼 发布
[B]别人的程序：

... [/B]

很好的VBA程序！
长老，有空常去VBA版看看！

自由的鱼

最初由 ahlzl 发布
[B]
很好的VBA程序！
长老，有空常去VBA版看看！ [/B]

VBA版我常去的，：）

陌生人

为什么搞到要用dll那么麻烦？

eachy

最初由 ahlzl 发布
[B]应网友要求，写了个可清理GROUP的小程序。

这个程序只能在CAD2005下运行。先用NETLOAD命令加载附件中的DLL文件，再输入“PU”，有三个选项：清理无名组；清理所有的组；默认清理。 [/B]

Lisp版的，清理所有，适用 所有CAD版本
http://www.xdcad.net/forum/showthread.php?s=&threadid=195670

lxch

请大侠给讲一讲什么是组，有什么用途。
怎样知道在图纸中存在组。

27182818284

长不大斑竹的这个程序很不错。虽然有版本限制，但执行速读极快，非常适含有大量无名组的图形。eachy斑竹的lisp程序适用性更大，但运行速度较慢，我觉得比较适合于需要清理的东西比较少的地方。
原来Autodesk公司也有过一个清除无名组的lisp程序，可使用上不及两位斑竹的程序方便。

baobao_new

我很需要。谢谢！

yxch183

斑竹，我也在做一个这样的工具，能否指导下思路。谢谢。正需要，支持楼主大人了！