（XD::Pickset:AllGroups）返回选择集或实体表下面所有的组

Lispboy

1. ;|
   
2. 返回选择集或实体表下面所有的组
   
3. 参数： ss --- 选择集 or 实体表
   
4. 返回值 表
   
5. 命令: (setq a (xd::pickset:allgroups (ssget) nil))
   
6. 选择对象: all
   
7. 找到 36 个
   
8. 选择对象:
   
9. (("cd" <图元名: -16abd0>) ("ab" <图元名: -16abd8>))
   
10. |;
    
11. (defun XD::Pickset:AllGroups (ss mode / gs gss x y)
    
12.   (if (= (type ss) 'PICKSET)
    
13.     (setq ss (xdrx_pickset->ents ss))
    
14.   )
    
15.   (setq gss nil)
    
16.   (mapcar
    
17.     '(lambda (x)
    
18.        (setq gs (XD::Entity:GroupName x t))
    
19.        (mapcar
    
20.          '(lambda (y)
    
21.             (if (not (member y gss))
    
22.               (setq gss (cons y gss))
    
23.             )
    
24.           )
    
25.          gs
    
26.        )
    
27.      )
    
28.     ss
    
29.   )
    
30.   (if (and
    
31.         (setq gss (reverse gss))
    
32.         mode
    
33.       )
    
34.     (mapcar
    
35.       'car
    
36.       gss
    
37.     )
    
38.     gss
    
39.   )
    
40. )
    
41. 
    

;|<br /> 返回选择集或实体表下面所有的组<br /> 参数： ss --- 选择集 or 实体表<br /> 返回值 表<br /> 命令: (setq a (xd::pickset:allgroups (ssget) nil))<br /> 选择对象: all<br /> 找到 36 个<br /> 选择对象:<br /> (("cd" <图元名: -16abd0>) ("ab" <图元名: -16abd8>))<br /> |;<br /> (defun XD::Pickset:AllGroups (ss mode / gs gss x y)<br />   (if (= (type ss) 'PICKSET)<br />     (setq ss (xdrx_pickset->ents ss))<br />   )<br />   (setq gss nil)<br />   (mapcar<br />     '(lambda (x)<br />        (setq gs (XD::Entity:GroupName x t))<br />        (mapcar<br />          '(lambda (y)<br />             (if (not (member y gss))<br />               (setq gss (cons y gss))<br />             )<br />           )<br />          gs<br />        )<br />      )<br />     ss<br />   )<br />   (if (and<br />         (setq gss (reverse gss))<br />         mode<br />       )<br />     (mapcar<br />       'car<br />       gss<br />     )<br />     gss<br />   )<br /> )<br /> <br />

aihuyujian

支持支持 非常感谢

范建威

还是没有看懂什么个情况！

kkt123

支持支持 非常感谢 :@