(XD::Table:ColumnsWidth)获得表格型表每列绘制时候需要的宽度

Lispboy

1. ;|
   
2. 获得表格型表每列绘制时候需要的宽度
   
3. 参数：
   
4.   lst ---- 表
   
5.   styl---- 文字样式
   
6.   height-- 文字高度
   
7.   widscl-- 宽度比例系数
   
8.   cellpanding -- 文字到表格边线单边的空白宽度
   
9. 
   
10. 返回值：
    
11. 
    
12.   实数表
    
13. 
    
14. 示例：
    
15. 命令: (XD::Table:Compose b)
    
16. ((1 1 1) (2 2 "") (3 "" "") (4 "" ""))
    
17. 命令: (XD::TABLE:COLUMNSWIDTH b "standard" 3.5 0.8 0.5)
    
18. (22.4667 22.4667 22.4667 22.4667)
    
19. |;
    
20. (defun XD::Table:ColumnsWidth (lst styl height widscl cellpanding / col wid
    
21.                                    x
    
22.                               )
    
23.   (if (xd::list:istable lst)
    
24.     (progn
    
25.       (setq col (XD::Table:Compose lst))
    
26.       (setq wid (mapcar
    
27.                   '(lambda (x)
    
28.                      (XD::String:ActualMaxWidth x styl height widscl)
    
29.                    )
    
30.                   col
    
31.                 )
    
32.             wid (mapcar
    
33.                   '(lambda (x)
    
34.                      (+ (* cellpanding 2.0) x)
    
35.                    )
    
36.                   wid
    
37.                 )
    
38.       )
    
39.       wid
    
40.     )
    
41.   )
    
42. )
    

;|<br /> 获得表格型表每列绘制时候需要的宽度<br /> 参数：<br />   lst ---- 表<br />   styl---- 文字样式<br />   height-- 文字高度<br />   widscl-- 宽度比例系数<br />   cellpanding -- 文字到表格边线单边的空白宽度<br /> <br /> 返回值：<br /> <br />   实数表<br /> <br /> 示例：<br /> 命令: (XD::Table:Compose b)<br /> ((1 1 1) (2 2 "") (3 "" "") (4 "" ""))<br /> 命令: (XD::TABLE:COLUMNSWIDTH b "standard" 3.5 0.8 0.5)<br /> (22.4667 22.4667 22.4667 22.4667)<br /> |;<br /> (defun XD::Table:ColumnsWidth (lst styl height widscl cellpanding / col wid<br />                                    x<br />                               )<br />   (if (xd::list:istable lst)<br />     (progn<br />       (setq col (XD::Table:Compose lst))<br />       (setq wid (mapcar<br />                   '(lambda (x)<br />                      (XD::String:ActualMaxWidth x styl height widscl)<br />                    )<br />                   col<br />                 )<br />             wid (mapcar<br />                   '(lambda (x)<br />                      (+ (* cellpanding 2.0) x)<br />                    )<br />                   wid<br />                 )<br />       )<br />       wid<br />     )<br />   )<br /> )<br />

eachy

局部变量收集