[求助]：请高手帮忙;关于组码的问题

tc405003

如何取得ENTGET中相同的两个组码：
选择对象: ((-1 . <图元名: 7e751eb8>) (0 . "LWPOLYLINE") (330 . <图元名:
7ef86cc8>) (5 . "2A37") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"REIN") (100 . "AcDbPolyline") (90 . 2) (70 . 1) (43 . 10.0) (38 . 0.0) (39 .
0.0) (10 930.031 -1038.92) (40 . 10.0) (41 . 10.0) (42 . 1.0) (10 940.031
-1038.92) (40 . 10.0) (41 . 10.0) (42 . 1.0) (210 0.0 0.0 1.0))

下面的子程序可否改写成如果只有一个组码，则取一个，如果有两个则取两个
(DEFUN TC-DXF (ELIST CODE)
  (CDR (ASSOC CODE (ENTGET ELIST)))
) ;_ 结束defun

xyp1964

2. [FONT=courier new]
   
3. ;;;多重dxf组码
   
4. (DEFUN xyp-get-ddxf (code ename / elst l1 elst1 dxf-lst)
   
5.   (setq        elst (ENTGET ename)
   
6.         l1   (ASSOC code elst)
   
7.   )
   
8.   (while (setq elst1 (member l1 elst))
   
9.     (setq dxf-lst (cons (CDR l1) dxf-lst)
   
10.           l1  (ASSOC code (cdr elst1))
    
11.     )
    
12.   )
    
13.   (setq dxf-lst (reverse dxf-lst))
    
14.   dxf-lst
    
15. )[/FONT]

[FONT=courier new]<br /> ;;;多重dxf组码<br /> (DEFUN xyp-get-ddxf (code ename / elst l1 elst1 dxf-lst)<br />   (setq        elst (ENTGET ename)<br />         l1   (ASSOC code elst)<br />   )<br />   (while (setq elst1 (member l1 elst))<br />     (setq dxf-lst (cons (CDR l1) dxf-lst)<br />           l1  (ASSOC code (cdr elst1))<br />     )<br />   )<br />   (setq dxf-lst (reverse dxf-lst))<br />   dxf-lst<br /> )[/FONT]

雨箭风刀

两个简便的思路
;;
(mapcar 'cdr (vl-remove-if-not '(lambda(x)(= (car x) code)) lst))
;;;
(while (setq ll (member lst))
   (setq lst2(cons (cdar ll) lst2)
            lst (cdr lst))
)lst2