(XD::AssocList:GetDataByKeyWithNums)返回关联表指定KEY后指定数量的所有数据

Lispboy

1. ;|返回关联表指定KEY后指定数量的所有数据
   
2. 参数：
   
3.    lst ---- 关联表
   
4.    key  ---- 关键字1
   
5.    s  ---- 数量
   
6. |;
   
7. (defun XD::AssocList:GetDataByKeyWithNums (lst key s / d el i)
   
8.   (if (and
   
9.         (setq key (assoc key lst))
   
10.         (setq d (member key lst))
    
11.       )
    
12.     (progn
    
13.       (setq i 0)
    
14.       (repeat s
    
15.         (setq el (cons (nth i d) el))
    
16.         (setq i (1+ i))
    
17.       )
    
18.     )
    
19.   )
    
20.   (reverse el)
    
21. )
    
22. 
    
23. 
    

;|返回关联表指定KEY后指定数量的所有数据<br /> 参数：<br />    lst ---- 关联表<br />    key  ---- 关键字1<br />    s  ---- 数量<br /> |;<br /> (defun XD::AssocList:GetDataByKeyWithNums (lst key s / d el i)<br />   (if (and<br />         (setq key (assoc key lst))<br />         (setq d (member key lst))<br />       )<br />     (progn<br />       (setq i 0)<br />       (repeat s<br />         (setq el (cons (nth i d) el))<br />         (setq i (1+ i))<br />       )<br />     )<br />   )<br />   (reverse el)<br /> )<br /> <br /> <br />