(XD::Table:TotalHeight)获得表格总高度

Lispboy

1. ;|
   
2. 获得表格总高度
   
3. 参数：
   
4.   lst --- 表
   
5.   rowH--- 行高
   
6.   cellPanding -- 字线距（单边)
   
7. 
   
8. 返回值：
   
9.   实数
   
10. 
    
11. |;
    
12. (defun XD::Table:TotalHeight (lst rowH cellPanding / h rows)
    
13.   (setq rows (legnth lst)
    
14.         h (* rows (+ rowH (* 2 cellPanding)))
    
15.   )
    
16.   h
    
17. )
    
18. 
    

;|<br /> 获得表格总高度<br /> 参数：<br />   lst --- 表<br />   rowH--- 行高<br />   cellPanding -- 字线距（单边)<br /> <br /> 返回值：<br />   实数<br /> <br /> |;<br /> (defun XD::Table:TotalHeight (lst rowH cellPanding / h rows)<br />   (setq rows (legnth lst)<br />         h (* rows (+ rowH (* 2 cellPanding)))<br />   )<br />   h<br /> )<br /> <br />

eachy

这个好像不对吧
rowH是单行行高

守仁格竹GM

貌似 公式不太对

newer

eachy 发表于 2013-11-16 07:38
这个好像不对吧
rowH是单行行高

rows 是行数啊，行数乘以单行行高加上那些字线距不就是整个高度了。

eachy

newer 发表于 2013-11-16 11:20
rows 是行数啊，行数乘以单行行高加上那些字线距不就是整个高度了。

早上看的 rows 和 rowH 位置和现在的相反