(XD::List:CombineSubList)根据给定子表长度，组合子表

newer

1. ;|
   
2. 根据给定子表长度，组合子表
   
3. 参数：
   
4.    lst --  表
   
5.    n   --  子表长度
   
6. 
   
7. 返回值：(子表1 子表2...)
   
8. |;
   
9. (defun XD::List:CombineSubList (lst n / i lst1 lst2 lst3)
   
10.   (setq i 0)
    
11.   (setq lst1 lst)
    
12.   (while (car lst1)
    
13.     (setq lst2 (XD::List:N- lst1 n)
    
14.           lst1 (XD::List:N+ lst1  n)
    
15.           lst3 (cons lst2 lst3)
    
16.     )
    
17.   )
    
18.   (reverse lst3)
    
19. )
    
20. 
    

;|<br /> 根据给定子表长度，组合子表<br /> 参数：<br />    lst --  表<br />    n   --  子表长度<br /> <br /> 返回值：(子表1 子表2...)<br /> |;<br /> (defun XD::List:CombineSubList (lst n / i lst1 lst2 lst3)<br />   (setq i 0)<br />   (setq lst1 lst)<br />   (while (car lst1)<br />     (setq lst2 (XD::List:N- lst1 n)<br />           lst1 (XD::List:N+ lst1  n)<br />           lst3 (cons lst2 lst3)<br />     )<br />   )<br />   (reverse lst3)<br /> )<br /> <br />

/db_自贡黄明儒_

;常用的还是二维点
;;示例(list->2pair '(1 2 3 4 5 6)),返回((1 2) (3 4) (5 6))
(defun list->2pair (old / new)
  (while (setq new (cons (list (car old) (cadr old)) new)
               old (cddr old)
         )
  )
  (reverse new)
)

newer

/db_自贡黄明儒_ 发表于 2013-9-24 08:25
;常用的还是二维点
;;示例(list->2pair '(1 2 3 4 5 6)),返回((1 2) (3 4) (5 6))
(defun list->2pair (o ...

这个函数初衷是为了将来给实体灵活排版时候用的。参数是实体表。