分解cad中所有编组或是分解所有无名编组

有时候在cad中遇到炸不开的组，或是双击文字编组后无法进行修改或是复制，只能通过命令ed编辑修改编组过的文字，这就需要分解分组，请输入group命令，选择组，点击分解即可，但大量的组的话，需要编程解决。

以下是程序代码：

1. (defun Example_Groups()
   
2. ;;; 这个范例找出当前的Groups集合
   
3. ;;; 接着将新的群组添加到该集合
   
4.   (VL-LOAD-COM)
   
5.   (setq AcadObject(vlax-get-acad-object)
   
6.         AcadDocument(vla-get-ActiveDocument Acadobject)
   
7.         mSpace(vla-get-ModelSpace AcadDocument)
   
8.   )
   
9.   (setq GroupColl(vla-get-Groups AcadDocument))
   
10. )
    
11. ;;; 分解所有组，假如想单独分解无名组，需另外判别f1是否以*开头，然后依次增加i
    
12. 
    
13. (defun c:qqq ()
    
14.   (example_groups)
    
15.   (setq q1 (vla-get-count groupcoll))
    
16.   (setq i 0)
    
17.   (repeat q1
    
18.     (setq a1 (vla-item groupcoll i))
    
19.     (setq f1 (vla-get-name a1))
    
20.     (command "_.group" "e" f1)
    
21.   )
    
22. )
    
23. 
    
24. 
    
25. ;;; 只是分解无名组
    
26. (defun c:qq ()
    
27.   (example_groups)
    
28.   (setq q1 (vla-get-count groupcoll))
    
29.   (setq i 0)
    
30.   (repeat q1
    
31.     (setq a1 (vla-item groupcoll i))
    
32.     (setq f1 (vla-get-name a1))
    
33.     (if (= (substr f1 1 1) "*")
    
34.       (command "_.group" "e" f1)
    
35.       (setq i (1  i))
    
36.     )
    
37.   )
    
38. )

复制代码

复制代码中的文字，新建一个文本文档，把代码全部粘贴进去，然后保存关闭该文档，修改名字为Example_Groups.lsp，注意，后缀名也改了，由txt后缀改为了lsp后缀，然后打开有编组的cad文件，把这个Example_Groups.lsp拖到绘图区域，然后如果需要分解所有编组，就在cad命令行输入qqq,如果只要分解无名编组，在cad命令行输入qq。

大家也可以直接下载下面的附件拖到cad绘图区，然后输入qq或是qqq进行操作

Example_Groups.lsp (909 Bytes, 下载次数: 202)

2014-4-23 11:13 上传

点击文件名下载附件