表格的行高为什么有时达不到要求

yshf

各位行家，以下程序不知为什么有时候表格的行高不是8和4，有时候却又是8和4，是不是与acad.dwt、acadiso.dwt模板有关？

2. (defun c:test()
   
3.     (vl-load-com)
   
4.     (setq Mspace (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))))
   
5.     (if (setq pt (getpoint "\n表格插入点:"))
   
6.         (progn
   
7.             (setq Table (vla-AddTable Mspace (vlax-3d-point pt) 10 5 1.0 1.0))
   
8.      ;;设置各列宽度
   
9.      (setq j 0)
   
10.      (mapcar '(lambda(x)(vla-SetColumnWidth table j x)(setq j (1+ j)))
    
11.       '(10.0 20.0 15.0 15.0 10.0)
    
12.             )
    
13.      ;;设置各行高度
    
14.             (setq j 0)
    
15.      (repeat 10
    
16.          (if (= j 0)
    
17.       (vla-SetRowHeight table j 8.0)
    
18.       (vla-SetRowHeight table j 4.0)
    
19.   )
    
20.          (setq j (1+ j))
    
21.      )
    
22. )
    
23.     )
    
24.     (princ)
    
25. )
    

(defun c:test()<br />     (vl-load-com)<br />     (setq Mspace (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))))<br />     (if (setq pt (getpoint "\n表格插入点:"))<br />         (progn<br />             (setq Table (vla-AddTable Mspace (vlax-3d-point pt) 10 5 1.0 1.0))<br />      ;;设置各列宽度<br />      (setq j 0)<br />      (mapcar '(lambda(x)(vla-SetColumnWidth table j x)(setq j (1+ j)))<br />       '(10.0 20.0 15.0 15.0 10.0)<br />             )<br />      ;;设置各行高度<br />             (setq j 0)<br />      (repeat 10<br />          (if (= j 0)<br />       (vla-SetRowHeight table j 8.0)<br />       (vla-SetRowHeight table j 4.0)<br />   )<br />          (setq j (1+ j))<br />      )<br /> )<br />     )<br />     (princ)<br /> )<br />