（XD::List:TableFillGap）表格式表不足的列填补上指定元素

Lispboy

1. ;|
   
2. 表格式表不足的列填补上指定元素
   
3. 参数： lst --- 行列式表
   
4.        val --- 填补的元素
   
5. 返回值：表
   
6. 例子：
   
7. 命令: !a
   
8. ((1 2 3) (3 4 5 6))
   
9. 命令: (XD::LIST:TABLEFILLGAP a "")
   
10. ((1 2 3 "") (3 4 5 6))
    
11. |;
    
12. (defun XD::List:TableFillGap (lst val / cols x)
    
13.   (setq cols (XD::List:TableColMaxNums lst))
    
14.   (mapcar
    
15.     '(lambda (x)
    
16.        (XD::List:FillGap x val cols)
    
17.      )
    
18.     lst
    
19.   )
    
20. )

;|<br /> 表格式表不足的列填补上指定元素<br /> 参数： lst --- 行列式表 <br />        val --- 填补的元素<br /> 返回值：表<br /> 例子：<br /> 命令: !a<br /> ((1 2 3) (3 4 5 6))<br /> 命令: (XD::LIST:TABLEFILLGAP a "")<br /> ((1 2 3 "") (3 4 5 6))<br /> |;<br /> (defun XD::List:TableFillGap (lst val / cols x)<br />   (setq cols (XD::List:TableColMaxNums lst))<br />   (mapcar<br />     '(lambda (x)<br />        (XD::List:FillGap x val cols)<br />      )<br />     lst<br />   )<br /> )

wzg356

今天论坛宝贝多