(XD::Table:Index)构造Table索引

eachy

1. ;;RowNum -- 行数, 不包括 Title 行
   
2. ;;ColNum -- 列数
   
3. (defun XD::Table:Index (RowNum ColNum / row col l1 ll)
   
4.   (setq    row 1
   
5.     col 0
   
6.   )
   
7.   (repeat rownum
   
8.     (repeat colnum
   
9.       (setq l1    (cons (list row col) l1)
   
10.         col    (1+ col)
    
11.       )
    
12.     )
    
13.     (setq ll  (cons l1 ll)
    
14.       l1  nil
    
15.       row (1+ row)
    
16.       col 0
    
17.     )
    
18.   )
    
19.   (cons '(0 0) (reverse (mapcar 'reverse ll)))
    
20. )
    

;;RowNum -- 行数, 不包括 Title 行<br /> ;;ColNum -- 列数<br /> (defun XD::Table:Index (RowNum ColNum / row col l1 ll)<br />   (setq    row 1<br />     col 0<br />   )<br />   (repeat rownum<br />     (repeat colnum<br />       (setq l1    (cons (list row col) l1)<br />         col    (1+ col)<br />       )<br />     )<br />     (setq ll  (cons l1 ll)<br />       l1  nil<br />       row (1+ row)<br />       col 0<br />     )<br />   )<br />   (cons '(0 0) (reverse (mapcar 'reverse ll)))<br /> )<br />