[原创]：得到图形中的空组名

snsj

2. 
   
3. ;;;得到图形中的空组名列表
   
4. ;;;制作SNSJ 2004。2.22
   
5. (defun c:pdkz (/ i go vlit kz)
   
6. (setq i 0)
   
7. (setq go (vla-get-groups(vla-get-Activedocument (vlax-get-acad-object))))
   
8. (repeat (vla-get-count go)
   
9.   (if (= (vla-get-count (setq vlit(vla-item go i))) 0)
   
10.          (setq kz (cons (vla-get-name vlit) kz))   
    
11.     )
    
12.     (setq i (+ i 1))
    
13.   )
    
14.   (princ "\n空组为:")(princ (reverse kz))(princ)
    
15.   )
    
16. -----------------------------------------------------------------------------
    
17. ;;;|点选组内物体打散物体所在的组
    
18. ;;;|制作:SNSJ 2004.2.22
    
19. (defun c:test (/ a i n go gtob vlit kz)
    
20. (setvar "CMDECHO" 0);;;|关闭命令回显
    
21. (setq a (vlax-ename->vla-object(car(entsel)))i 0 n 0)
    
22. (setq go (vla-get-groups(vla-get-Activedocument (vlax-get-acad-object))))
    
23.   (while (null kz)
    
24.    (repeat (vla-get-count(setq vlit(vla-item go i)))
    
25.              (setq gtob (vla-item vlit n))
    
26.             (if (= (vla-get-objectid a) (vla-get-objectid gtob))
    
27.               (setq kz (vla-get-name vlit))
    
28.               )
    
29.                 (setq n (+ n 1))
    
30.                     )                    
    
31.     (setq i (+ i 1))
    
32.   );;;|获取物体所在组的组名
    
33.   (vl-cmdf ".group" "e" kz)(princ kz)(princ"组已被解散")
    
34.   (princ)
    
35.   )
    

<br /> ;;;得到图形中的空组名列表<br /> ;;;制作SNSJ 2004。2.22<br /> (defun c:pdkz (/ i go vlit kz)<br /> (setq i 0)<br /> (setq go (vla-get-groups(vla-get-Activedocument (vlax-get-acad-object))))<br /> (repeat (vla-get-count go)<br />   (if (= (vla-get-count (setq vlit(vla-item go i))) 0)<br />          (setq kz (cons (vla-get-name vlit) kz))    <br />     )<br />     (setq i (+ i 1))<br />   )<br />   (princ "\n空组为:")(princ (reverse kz))(princ)<br />   )<br /> -----------------------------------------------------------------------------<br /> ;;;|点选组内物体打散物体所在的组<br /> ;;;|制作:SNSJ 2004.2.22<br /> (defun c:test (/ a i n go gtob vlit kz)<br /> (setvar "CMDECHO" 0);;;|关闭命令回显<br /> (setq a (vlax-ename->vla-object(car(entsel)))i 0 n 0)<br /> (setq go (vla-get-groups(vla-get-Activedocument (vlax-get-acad-object))))<br />   (while (null kz) <br />    (repeat (vla-get-count(setq vlit(vla-item go i)))<br />              (setq gtob (vla-item vlit n))<br />             (if (= (vla-get-objectid a) (vla-get-objectid gtob))<br />               (setq kz (vla-get-name vlit))<br />               )<br />                 (setq n (+ n 1))<br />                     )                    <br />     (setq i (+ i 1))<br />   );;;|获取物体所在组的组名<br />   (vl-cmdf ".group" "e" kz)(princ kz)(princ"组已被解散")<br />   (princ)<br />   )<br />

aeo

一个物体可以在几个组里面.
你只解散了一个.