(XD::List:Interval)按指定间隔取表元素

st788796

1. (defun XD::list:interval (lst start n / nl)
   
2.   (if (eq (type start) 'INT)
   
3.     (repeat start
   
4.       (setq lst (cdr lst))
   
5.     )
   
6.   )
   
7.   (if lst
   
8.     (progn
   
9.       (setq nl        (list (car lst))
   
10.             lst        (cdr lst)
    
11.       )
    
12.       (while lst
    
13.         (repeat n (setq lst (cdr lst)))
    
14.         (if lst
    
15.           (setq        nl  (cons (car lst) nl)
    
16.                 lst (cdr lst)
    
17.           )
    
18.         )
    
19.       )
    
20.     )
    
21.   )
    
22.   (reverse nl)
    
23. )

(defun XD::list:interval (lst start n / nl)<br />   (if (eq (type start) 'INT)<br />     (repeat start<br />       (setq lst (cdr lst))<br />     )<br />   )<br />   (if lst<br />     (progn<br />       (setq nl        (list (car lst))<br />             lst        (cdr lst)<br />       )<br />       (while lst<br />         (repeat n (setq lst (cdr lst)))<br />         (if lst<br />           (setq        nl  (cons (car lst) nl)<br />                 lst (cdr lst)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (reverse nl)<br /> )

_$ (XD::list:interval '(1 2 3 4 5 6 7 9 0) 2 8)
(3)
_$ (XD::list:interval '(1 2 3 4 5 6 7 9 0) 2 2)
(3 6 0)
_$

Lisphk

一般什么时候用这个函数呢？

st788796

Lisphk 发表于 2014-12-24 19:30
一般什么时候用这个函数呢？

例如 用 ssget F  方式构造的一个 选择集，结果只需要按一定间隔的实体，中间的忽略，间隔给1 就相当于 xd::list:even 和 xd::list: odd 了

kkt123

方式构造的一个 选择集:o