(XD::Table:GetEntByColumn)获得XTable表格实体指定列范围的所有单元格

Lispboy

1. (defun XD::Table:GetEntByColumn (tb mincol maxcol / celltype col el el1 el2
   
2.                                     el3 info n no
   
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.                   col (atoi (cadr no))
    
13.             )
    
14.             (if (= celltype 0)
    
15.               (progn
    
16.                 (if (and
    
17.                       (>= col mincol)
    
18.                       (<= col maxcol)
    
19.                     )
    
20.                   (setq el1 (cons n el1))
    
21.                 )
    
22.                 (progn
    
23.                   (if (> col maxcol)
    
24.                     (setq el3 (cons n el3))
    
25.                   )
    
26.                 )
    
27.               )
    
28.               (progn
    
29.                 (if (and
    
30.                       (setq info (xdrx_object_getxrecord n "scope"))
    
31.                       (>= col (car info))
    
32.                       (<= col (cadr info))
    
33.                     )
    
34.                   (setq el2 (cons n el2))
    
35.                 )
    
36.               )
    
37.             )
    
38.           )
    
39.         )
    
40.         (list (reverse el1) (reverse el3) (reverse el2))
    
41.       )
    
42.     )
    
43.   )
    
44. )
    

(defun XD::Table:GetEntByColumn (tb mincol maxcol / celltype col el el1 el2<br />                                     el3 info n no<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 />                   col (atoi (cadr no))<br />             )<br />             (if (= celltype 0)<br />               (progn<br />                 (if (and<br />                       (>= col mincol)<br />                       (<= col maxcol)<br />                     )<br />                   (setq el1 (cons n el1))<br />                 )<br />                 (progn<br />                   (if (> col maxcol)<br />                     (setq el3 (cons n el3))<br />                   )<br />                 )<br />               )<br />               (progn<br />                 (if (and<br />                       (setq info (xdrx_object_getxrecord n "scope"))<br />                       (>= col (car info))<br />                       (<= col (cadr info))<br />                     )<br />                   (setq el2 (cons n el2))<br />                 )<br />               )<br />             )<br />           )<br />         )<br />         (list (reverse el1) (reverse el3) (reverse el2))<br />       )<br />     )<br />   )<br /> )<br />