(XD::Table:TotalWidth)获得表格内文字按指定的文字样式、高度、宽度比例、字线距...

Lispboy

1. ;|
   
2. 获得表格内文字按指定的文字样式、高度、宽度比例、字线距绘制表格的总宽度
   
3. 参数：
   
4.   lst ---- 表
   
5.   styl---- 文字样式
   
6.   height-- 文字高度
   
7.   widscl-- 宽度比例系数
   
8.   cellpanding -- 文字到表格边线单边的空白宽度
   
9. 返回值：
   
10.   实数
    
11. 
    
12. 示例：
    
13. 命令: !b
    
14. ((1 2 3 4) (1 2 "" "") (1 "" "" ""))
    
15. 命令: (XD::TABLE:TOTALWIDTH b "standard" 3.5 0.8 0.5)
    
16. 89.8667
    
17. 
    
18. |;
    
19. (defun XD::Table:TotalWidth(lst styl height widscl cellpanding)
    
20.    (apply '+ (XD::Table:ColumnsWidth lst styl height widscl cellpanding))
    
21. )
    
22. 
    

;|<br /> 获得表格内文字按指定的文字样式、高度、宽度比例、字线距绘制表格的总宽度<br /> 参数：<br />   lst ---- 表<br />   styl---- 文字样式<br />   height-- 文字高度<br />   widscl-- 宽度比例系数<br />   cellpanding -- 文字到表格边线单边的空白宽度<br /> 返回值：<br />   实数<br /> <br /> 示例：<br /> 命令: !b<br /> ((1 2 3 4) (1 2 "" "") (1 "" "" ""))<br /> 命令: (XD::TABLE:TOTALWIDTH b "standard" 3.5 0.8 0.5)<br /> 89.8667<br /> <br /> |;<br /> (defun XD::Table:TotalWidth(lst styl height widscl cellpanding)<br />    (apply '+ (XD::Table:ColumnsWidth lst styl height widscl cellpanding))<br /> )<br /> <br />