(XD::Table:GetCellExtents)获得表格单元格有效的包围盒范围

Lispboy

1. (defun XD::Table:GetCellExtents (tb row col / box e margin mat typ)
   
2.   (if (xd::table:isValidRowCol tb row col)
   
3.     (progn
   
4.       (setq typ (xd::table:type tb))
   
5.       (if (not (setq margin (xdrx_object_getxrecord tb "CellMargin")))
   
6.         (setq margin (xd::var:getratio))
   
7.       )
   
8.       (cond
   
9.         ((= typ "X")
   
10.           (setq e (xd::table:getcellent tb row col)
    
11.                 box (xdrx_entity_box e (xd::table:direction tb))
    
12.                 box (xdrx_points_offset (- margin) (xd::pnts:close box))
    
13.                 mat (xdrx_matrix_block2wcs tb)
    
14.                 box (xdrx_points_transform box mat)
    
15.           )
    
16.           box
    
17.         )
    
18.         ((= typ "A")
    
19.           (xdrx_table_getCellExtents tb row col)
    
20.         )
    
21.       )
    
22.     )
    
23.   )
    
24. )
    
25. 
    

(defun XD::Table:GetCellExtents (tb row col / box e margin mat typ)<br />   (if (xd::table:isValidRowCol tb row col)<br />     (progn<br />       (setq typ (xd::table:type tb))<br />       (if (not (setq margin (xdrx_object_getxrecord tb "CellMargin")))<br />         (setq margin (xd::var:getratio))<br />       )<br />       (cond<br />         ((= typ "X")<br />           (setq e (xd::table:getcellent tb row col)<br />                 box (xdrx_entity_box e (xd::table:direction tb))<br />                 box (xdrx_points_offset (- margin) (xd::pnts:close box))<br />                 mat (xdrx_matrix_block2wcs tb)<br />                 box (xdrx_points_transform box mat)<br />           )<br />           box<br />         )<br />         ((= typ "A")<br />           (xdrx_table_getCellExtents tb row col)<br />         )<br />       )<br />     )<br />   )<br /> )<br /> <br />