(XD::Table:GetEntByRow)获得XTable表格指定行范围的单元格实体

Lispboy

1. (defun XD::Table:GetEntByRow (tb minrow maxrow / celltype el el1 el2 el3
   
2.                                  info n no row
   
3.                              )
   
4.   (if (= (xd::table:type tb) "X")
   
5.     (progn
   
6.       (setq el (xdrx_block_getentities tb))
   
7.       (foreach n el
   
8.         (setq celltype (xdrx_object_getxrecord n "MergeCell"))
   
9.         (if celltype
   
10.           (progn
    
11.             (setq no (xdrx_object_getxrecord n "no")
    
12.                   row (atoi (car no))
    
13.             )
    
14.             (if (= celltype 0)
    
15.               (progn
    
16.                 (if (and
    
17.                       (>= row minrow)
    
18.                       (<= row maxrow)
    
19.                     )
    
20.                   (setq el1 (cons n el1))
    
21.                 )
    
22.                 (progn
    
23.                   (if (> row maxrow)
    
24.                     (setq el3 (cons n el3))
    
25.                   )
    
26.                 )
    
27.               )
    
28.               (progn
    
29.                 (if (and
    
30.                       (setq info (xdrx_object_getxrecord n "scope"))
    
31.                       (>= row (car info))
    
32.                       (<= row (cadr info))
    
33.                     )
    
34.                   (setq el2 (cons n el2))
    
35.                 )
    
36.               )
    
37.             )
    
38.             (list (reverse el1) (reverse el3) (reverse el2))
    
39.           )
    
40.         )
    
41.       )
    
42.     )
    
43.   )
    
44. )

(defun XD::Table:GetEntByRow (tb minrow maxrow / celltype el el1 el2 el3<br />                                  info n no row<br />                              )<br />   (if (= (xd::table:type tb) "X")<br />     (progn<br />       (setq el (xdrx_block_getentities tb))<br />       (foreach n el<br />         (setq celltype (xdrx_object_getxrecord n "MergeCell"))<br />         (if celltype<br />           (progn<br />             (setq no (xdrx_object_getxrecord n "no")<br />                   row (atoi (car no))<br />             )<br />             (if (= celltype 0)<br />               (progn<br />                 (if (and<br />                       (>= row minrow)<br />                       (<= row maxrow)<br />                     )<br />                   (setq el1 (cons n el1))<br />                 )<br />                 (progn<br />                   (if (> row maxrow)<br />                     (setq el3 (cons n el3))<br />                   )<br />                 )<br />               )<br />               (progn<br />                 (if (and<br />                       (setq info (xdrx_object_getxrecord n "scope"))<br />                       (>= row (car info))<br />                       (<= row (cadr info))<br />                     )<br />                   (setq el2 (cons n el2))<br />                 )<br />               )<br />             )<br />             (list (reverse el1) (reverse el3) (reverse el2))<br />           )<br />         )<br />       )<br />     )<br />   )<br /> )