(XD::Table:ColumnWidth)获得表格实体指定列的宽度

Lispboy

1. (defun XD::Table:ColumnWidth (tb col / box ents typ w)
   
2.   (setq typ (XD::Table:TYPE tb))
   
3.   (cond
   
4.     ((= typ "X")
   
5.       (if (xd::table:isValidRowColumn tb 0 col)
   
6.         (progn
   
7.           (setq ents (xd::table:getcellent tb 0 col)
   
8.                 box (xdrx_entity_box ents
   
9.                                      (XD::Table:direction tb)
   
10.                     )
    
11.           )
    
12.           (setq w (distance (car box) (cadr box)))
    
13.         )
    
14.       )
    
15.     )
    
16.     ((= typ "A")
    
17.       (setq w (xdrx_table_columnwidth tb col))
    
18.     )
    
19.     ((= typ "E")
    
20.       (setq w (xdex_sheet_colWidth col))
    
21.     )
    
22.   )
    
23.   w
    
24. )

(defun XD::Table:ColumnWidth (tb col / box ents typ w)<br />   (setq typ (XD::Table:TYPE tb))<br />   (cond<br />     ((= typ "X")<br />       (if (xd::table:isValidRowColumn tb 0 col)<br />         (progn<br />           (setq ents (xd::table:getcellent tb 0 col)<br />                 box (xdrx_entity_box ents<br />                                      (XD::Table:direction tb)<br />                     )<br />           )<br />           (setq w (distance (car box) (cadr box)))<br />         )<br />       )<br />     )<br />     ((= typ "A")<br />       (setq w (xdrx_table_columnwidth tb col))<br />     )<br />     ((= typ "E")<br />       (setq w (xdex_sheet_colWidth col))<br />     )<br />   )<br />   w<br /> )