[求助]怎样用lisp获得编组中所有对象

原地踏步

请问各位大虾：
选取编组中某一对象，如何用lisp获得编组中所有对象？
我用(ssget "X" (list (assoc 330 (entget (car (entsel))))))，好像不管用，结果选到其他对象了。

ljttjl

用(entget (car (entsel))) 查询编组对象时，同一编组中的对象都含有的330组码值相同，根据这个条件可进行判断，得到一个编组中的所有对象。
以下为一个编组对象中含有的组码：
(102 . "{ACAD_REACTORS") (330 . <图元名: 7ef8b8f0>) (102 . "}")

成功例子见以下演示：

原地踏步

感谢ljttjl！
但我想要的不是交互选择，而是用"X"方式自动选择。我用entsel选的肯定是编组中的一个对象，也使用了330组码，可还是选不到呀！

Gu_xl

2. 
   
3. ;;;测试 (getgroupss (car (entsel))) 有组的返回组全部选择集，否则返回选择的图元选择集
   
4. (defun getgroupss (ent / enl tn)
   
5.   (setq enl (entget ent))
   
6.   (setq en (cdr (assoc 330 (member '(102 . "{ACAD_REACTORS")  enl))))
   
7.   (if en
   
8.     (progn
   
9.   (setq enl (entget en))
   
10.   (setq enl (member (assoc 340 enl) enl))
    
11.   (setq enl (mapcar 'cdr enl))
    
12.   (setq ss (ssadd))
    
13.   (mapcar '(lambda (x) (ssadd x ss)) enl)
    
14.   ss
    
15.   )
    
16.     (ssadd ent)
    
17.     )
    
18.   )
    

<br /> ;;;测试 (getgroupss (car (entsel))) 有组的返回组全部选择集，否则返回选择的图元选择集<br /> (defun getgroupss (ent / enl tn)<br />   (setq enl (entget ent))<br />   (setq en (cdr (assoc 330 (member '(102 . "{ACAD_REACTORS")  enl))))<br />   (if en<br />     (progn<br />   (setq enl (entget en))<br />   (setq enl (member (assoc 340 enl) enl))<br />   (setq enl (mapcar 'cdr enl))<br />   (setq ss (ssadd))<br />   (mapcar '(lambda (x) (ssadd x ss)) enl)<br />   ss<br />   )<br />     (ssadd ent)<br />     )<br />   )<br />

原地踏步

谢谢Gu_xl朋友，解决了我的问题。
我一直对mapcar与lambda的应用没掌握好，这次是个很好的例子，下来再仔细研究一下。若有不懂之处，还望Gu_xl不吝赐教。
另外，上面的代码选组没问题，非组就选不到了。我试着将第10行改到最前面，第14行改为(ssadd ent ss)，就没问题了。