[求助]：怎么用cad命令行实现分解无命名编组？

andyhua5240

怎么样用CAD的GROUP命令，来实现分解匿名组呀？
谢谢！

firstintimate

把“包含未命名的”那个勾上就会显示匿名组了，然后点击下方的分解即可

andyhua5240

谢谢楼主的回答，我说的是用命令来完成，一下子分解所有的无名组呀？
比如：
(command "group" "e")，这时就要输入组名了，怎么样才能一下子分解所有的无名组呀？
谢谢！

snoopychen

下面是一段分解组的程序（请慎重使用，qq分解无名组，而qqq分解包括了有名组和无名组）

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

<br /> (defun Example_Groups()<br /> ;;; 这个范例找出当前的Groups集合<br /> ;;; 接着将新的群组添加到该集合<br />   (VL-LOAD-COM)<br />   (setq AcadObject(vlax-get-acad-object)<br />         AcadDocument(vla-get-ActiveDocument Acadobject)<br />         mSpace(vla-get-ModelSpace AcadDocument)<br />   )<br />   (setq GroupColl(vla-get-Groups AcadDocument))<br /> )<br /> ;;; 分解所有组，假如想单独分解无名组，需另外判别f1是否以*开头，然后依次增加i<br /> <br /> (defun c:qqq ()<br />   (example_groups)<br />   (setq q1 (vla-get-count groupcoll))<br />   (setq i 0)<br />   (repeat q1<br />     (setq a1 (vla-item groupcoll i))<br />     (setq f1 (vla-get-name a1))<br />     (command "_.group" "e" f1)<br />   )<br /> )<br /> <br /> <br /> ;;; 只是分解无名组<br /> (defun c:qq ()<br />   (example_groups)<br />   (setq q1 (vla-get-count groupcoll))<br />   (setq i 0)<br />   (repeat q1<br />     (setq a1 (vla-item groupcoll i))<br />     (setq f1 (vla-get-name a1))<br />     (if (= (substr f1 1 1) "*")<br />       (command "_.group" "e" f1)<br />       (setq i (1+ i))<br />     )<br />   )<br /> )<br />