（XD::Entity:GroupName）根据实体名获取所在的组（可能多个）

Lispboy

1. ;|
   
2. 根据实体名获取所在的组
   
3. 参数： e  --- 实体名
   
4.        mode-- T (所有组) NIL （第一次该实体所在组)
   
5. 返回值： 表
   
6. |;
   
7. (defun XD::Entity:GroupName (e mode / n names names1)
   
8.   (setq names (XD::List:RemoveHead (XD::List:RemoveTail
   
9.                                                         (XD::AssocList:K1->Kn
   
10.                                                                               (entget e) 102 102 t
    
11.                                                         )
    
12.                                    )
    
13.               )
    
14.   )
    
15.   (foreach n names
    
16.     (if (= (xdrx_getpropertyvalue n "isa") "AcDbGroup")
    
17.       (setq names1 (cons (list (xdrx_getpropertyvalue n "name") n) names1))
    
18.     )
    
19.   )
    
20.   (setq names1 (reverse names1))
    
21.   (if mode
    
22.     names1
    
23.     (car names1)
    
24.   )
    
25. )
    

;|<br /> 根据实体名获取所在的组<br /> 参数： e  --- 实体名<br />        mode-- T (所有组) NIL （第一次该实体所在组)<br /> 返回值： 表<br /> |;<br /> (defun XD::Entity:GroupName (e mode / n names names1)<br />   (setq names (XD::List:RemoveHead (XD::List:RemoveTail<br />                                                         (XD::AssocList:K1->Kn<br />                                                                               (entget e) 102 102 t<br />                                                         )<br />                                    )<br />               )<br />   )<br />   (foreach n names<br />     (if (= (xdrx_getpropertyvalue n "isa") "AcDbGroup")<br />       (setq names1 (cons (list (xdrx_getpropertyvalue n "name") n) names1))<br />     )<br />   )<br />   (setq names1 (reverse names1))<br />   (if mode<br />     names1<br />     (car names1)<br />   )<br /> )<br />

st788796

用xd:: obj:reactors后vl-remove-if