(XD::Table:CellTile)表数据增加行列标题

st788796

1. ;;2014.11.12
   
2. ;|
   
3. 增加列标题及行号
   
4. 参数:   rowTileList --- 列标题
   
5.         num         --- 行标题，int  依次 +1
   
6.                                 list 附加到每行前
   
7.         lst         --- 给定 cell 区内容
   
8. 返回值：表
   
9. |;
   
10. (defun XD::Table:CellTile (rowTileList num lst)
    
11.   (if (eq (type num) 'INT)
    
12.     (setq lst (mapcar '(lambda (x / l)
    
13.                          (setq l   (cons (itoa num) x)
    
14.                                num (1+ num)
    
15.                          )
    
16.                          l
    
17.                        )
    
18.                       lst
    
19.               )
    
20.     )
    
21.     (setq lst (mapcar '(lambda (x y)
    
22.                          (cons x y)
    
23.                        )
    
24.                       num
    
25.                       lst
    
26.               )
    
27.     )
    
28.   )
    
29.   (if rowTileList
    
30.     (cons rowTileList lst)
    
31.     lst
    
32.   )
    
33. )
    

;;2014.11.12<br /> ;|<br /> 增加列标题及行号<br /> 参数:   rowTileList --- 列标题<br />         num         --- 行标题，int  依次 +1<br />                                 list 附加到每行前<br />         lst         --- 给定 cell 区内容<br /> 返回值：表<br /> |;<br /> (defun XD::Table:CellTile (rowTileList num lst)<br />   (if (eq (type num) 'INT)<br />     (setq lst (mapcar '(lambda (x / l)<br />                          (setq l   (cons (itoa num) x)<br />                                num (1+ num)<br />                          )<br />                          l<br />                        )<br />                       lst<br />               )<br />     )<br />     (setq lst (mapcar '(lambda (x y)<br />                          (cons x y)<br />                        )<br />                       num<br />                       lst<br />               )<br />     )<br />   )<br />   (if rowTileList<br />     (cons rowTileList lst)<br />     lst<br />   )<br /> )<br />

_$ (xd::table:celltile '("1" "2" "2" "3") 1 '(("a" "a" "a") ("b" "b" "b") ("c" "c" "c")))
(("1" "2" "2" "3") ("1" "a" "a" "a") ("2" "b" "b" "b") ("3" "c" "c" "c"))
_$ (xd::table:celltile nil 1 '(("a" "a" "a") ("b" "b" "b") ("c" "c" "c")))
(("1" "a" "a" "a") ("2" "b" "b" "b") ("3" "c" "c" "c"))
_$

wujiazhi14

这些东西看不懂