(XD::Table:GetCellEnt)获得XTable表格实体的单元格实体名

Lispboy

1. (defun XD::Table:GetCellEnt (tb row col / c celltype e el no r ret tf)
   
2.   (if (= (xd::table:type tb) "X")
   
3.     (progn
   
4.       (setq el (xdrx_block_getEntities tb))
   
5.       (setq tf t)
   
6.       (while (and
   
7.                tf
   
8.                (car el)
   
9.              )
   
10.         (setq e (car el)
    
11.               no (xdrx_object_getxrecord e "no")
    
12.               celltype (xdrx_object_getxrecord e "MergeCell")
    
13.               r (atoi (car no))
    
14.               c (atoi (cadr no))
    
15.         )
    
16.         (if (and
    
17.               (= 0 celltype)
    
18.               (= r row)
    
19.               (= c col)
    
20.             )
    
21.           (setq tf nil
    
22.                 ret e
    
23.           )
    
24.         )
    
25.         (setq el (cdr el))
    
26.       )
    
27. 
    
28.     )
    
29.   )
    
30.   ret
    
31. )
    
32. 
    

(defun XD::Table:GetCellEnt (tb row col / c celltype e el no r ret tf)<br />   (if (= (xd::table:type tb) "X")<br />     (progn<br />       (setq el (xdrx_block_getEntities tb))<br />       (setq tf t)<br />       (while (and<br />                tf<br />                (car el)<br />              )<br />         (setq e (car el)<br />               no (xdrx_object_getxrecord e "no")<br />               celltype (xdrx_object_getxrecord e "MergeCell")<br />               r (atoi (car no))<br />               c (atoi (cadr no))<br />         )<br />         (if (and<br />               (= 0 celltype)<br />               (= r row)<br />               (= c col)<br />             )<br />           (setq tf nil<br />                 ret e<br />           )<br />         )<br />         (setq el (cdr el))<br />       )<br /> <br />     )<br />   )<br />   ret<br /> )<br /> <br />