关联表转换为真列表

晨曦CAD

1. 
   

复制代码

2. [hide=d999];;关联列表提取真列表
   
3. ;@晨曦 2021.3
   
4. ;输入参数：conlst 关联列表如(1 2 3 . 4)
   
5. ;输出参数：LIST(真列表 关联列表尾元素)
   
6. ;实例：(1 2 3 . 4)-> ((1 2 3) 4)
   
7. (defun con2list(conlst / lst)
   
8. (setq lst(list))
   
9. (while (= (type conlst) (quote list))
   
10. (setq lst(append lst (list (car conlst))))
    
11. (setq conlst(cdr conlst))
    
12. )
    
13. (setq lst(append (list lst) (list conlst)))
    
14. )[/hide]

[hide=d999];;关联列表提取真列表<br /> ;@晨曦 2021.3<br /> ;输入参数：conlst 关联列表如(1 2 3 . 4)<br /> ;输出参数：LIST(真列表 关联列表尾元素)<br /> ;实例：(1 2 3 . 4)-> ((1 2 3) 4)<br /> (defun con2list(conlst / lst)<br /> (setq lst(list))<br /> (while (= (type conlst) (quote list))<br /> (setq lst(append lst (list (car conlst))))<br /> (setq conlst(cdr conlst))<br /> )<br /> (setq lst(append (list lst) (list conlst)))<br /> )[/hide]

实例：(con2list (1 2 3 . 4)) -> ((1 2 3) 4)

(con2list (1 2 3 4)) -> ((1 2 3 4) nil)

Longfin

(defun con2list (LST)
  (if LST
    (if (vl-consp LST)
      (cons (car LST) (con2list (cdr LST)))
      (cons LST nil)
    )
  )
)

janshyl

很好用的函數 感謝樓主的分享