请教大神，看看代码

czx663

<code
;;;返回满足SelectConditionCodeLst的点对列表
;;;SelectConditionCodeLst是选择组码列表,形式如:'(0 8)
;;;Ent是要选择类型的某个元素,从Ent中提取组码列表中组码点对用于选择集条件
(defun get_SelectConditionCodeConsLst (SelectConditionCodeLst EntLst)
  (cond
    ((atom EntLst)
     (vl-remove nil
  (append (list (cons -4 "<and"))
   (mapcar '(lambda (x) (assoc x (entget EntLst)))
    SelectConditionCodeLst
   )  ;mapcar
   (list (cons -4 "and>"))
  )   ;append
     )     ;remove
    )     ;1#
    (t
     (vl-remove
       nil
       (append (list (cons -4 "<or"))
        (mapcar
   '(lambda (x)
     (get_SelectConditionCodeConsLst
       SelectConditionCodeLst
       x
     )   ;get_SelectConditionCodeConsLst
   )   ;lambda
   EntLst
        )   ;mapcar
        (list (cons -4 "or>"))
       )    ;append
     )     ;remove
    )     ;2#
  )     ;cond
)     ;defun
code>
用(get_SelectConditionCodeConsLst '(0 8) (append (list (car (entsel))) (list (car (entsel)))))测试.得到((-4 . "<or") ((-4 . "<and") (0 . "TEXT") (8 . "acs-TEMp") (-4 . "and>")) ((-4 . "<and") (0 . "TEXT") (8 . "PUB_TEXT") (-4 . "and>")) (-4 . "or>")),我想要的是((-4 . "<or") (-4 . "<and") (0 . "TEXT") (8 . "acs-TEMp") (-4 . "and>") (-4 . "<and") (0 . "TEXT") (8 . "PUB_TEXT") (-4 . "and>") (-4 . "or>")),在每个(-4 . "<and")和(-4 . "and>")多了一层括号，怎么改代码能把括号去掉变成想要的结构
{:soso_e183:}

iLisp

append .

2. 
   
3. (defun xx (SelectConditionCodeLst EntLst)
   
4.   (cond
   
5.     ((atom EntLst)
   
6.      (cons '(-4 . "<and")
   
7.            (append
   
8.              (vl-remove        nil
   
9.                         (mapcar        '(lambda (x) (assoc x (entget EntLst)))
   
10.                                 SelectConditionCodeLst
    
11.                         )
    
12.              )
    
13.              '((-4 . "and>"))
    
14.            )
    
15.      )
    
16.     )
    
17.     (t
    
18.      (cons '(-4 . "<or")
    
19.            (reverse
    
20.              (cons '(-4 . "or>")
    
21.                    (reverse (apply 'append
    
22.                                    (mapcar
    
23.                                      '(lambda (x)
    
24.                                         (xx SelectConditionCodeLst x)
    
25.                                       )
    
26.                                      EntLst
    
27.                                    )
    
28.                             )
    
29.                    )
    
30.              )
    
31.            )
    
32.      )
    
33.     )
    
34.   )
    
35. )

<br /> (defun xx (SelectConditionCodeLst EntLst)<br />   (cond<br />     ((atom EntLst)<br />      (cons '(-4 . "<and")<br />            (append<br />              (vl-remove        nil<br />                         (mapcar        '(lambda (x) (assoc x (entget EntLst)))<br />                                 SelectConditionCodeLst<br />                         )<br />              )<br />              '((-4 . "and>"))<br />            )<br />      )<br />     )<br />     (t<br />      (cons '(-4 . "<or")<br />            (reverse<br />              (cons '(-4 . "or>")<br />                    (reverse (apply 'append<br />                                    (mapcar<br />                                      '(lambda (x)<br />                                         (xx SelectConditionCodeLst x)<br />                                       )<br />                                      EntLst<br />                                    )<br />                             )<br />                    )<br />              )<br />            )<br />      )<br />     )<br />   )<br /> )

iLisp

递归出来的要 apply append

czx663

我想了个笨办法:lol,觉得不够轻巧,还是你这个比较好一点