(XD::Table:GetMerge)获得指定索引或全部的合并的单元格范围表

Lispboy

1. (defun XD::Table:GetMerge (tb inx / cols el i j lst merge mlst rows typ x)
   
2.   (setq typ (XD::Table:TYPE tb))
   
3.   (cond
   
4.     ((= typ "X")
   
5.       (setq el (xdrx_block_getentities tb))
   
6.       (cond
   
7.         ((= (type inx) 'INT)
   
8.           (nth inx (XD::Table:getmerge tb t))
   
9.         )
   
10.         (t
    
11.           (mapcar
    
12.             '(lambda (x)
    
13.                (if (= 1 (xdrx_object_getxrecord x "MergeCell"))
    
14.                  (setq lst (cons (xdrx_object_getxrecord x "scope") lst))
    
15.                )
    
16.              )
    
17.             el
    
18.           )
    
19.           (reverse lst)
    
20.         )
    
21.       )
    
22.     )
    
23.     ((= typ "A")
    
24.       (cond
    
25.         ((= (type inx) 'INT)
    
26.           (nth inx (XD::Table:getmerge tb t))
    
27.         )
    
28.         (t
    
29.           (setq rows (xdrx_table_numrows tb)
    
30.                 cols (xdrx_table_numColumns tb)
    
31.           )
    
32.           (setq i 0
    
33.                 mlst nil
    
34.           )
    
35.           (repeat rows
    
36.             (setq j 0)
    
37.             (repeat cols
    
38.               (if (setq merge (xdrx_table_ismergedcell tb i j))
    
39.                 (progn
    
40.                   (if (not (member merge mlst))
    
41.                     (setq mlst (cons merge mlst))
    
42.                   )
    
43.                 )
    
44.               )
    
45.               (setq j (1+ j))
    
46.             )
    
47.             (setq i (1+ i))
    
48.           )
    
49.           (reverse mlst)
    
50.         )
    
51.       )
    
52.     )
    
53.     ((= typ "E")
    
54.       (xdex_sheet_getMergeCell inx)
    
55.     )
    
56.   )
    
57. )
    
58. 
    

(defun XD::Table:GetMerge (tb inx / cols el i j lst merge mlst rows typ x)<br />   (setq typ (XD::Table:TYPE tb))<br />   (cond<br />     ((= typ "X")<br />       (setq el (xdrx_block_getentities tb))<br />       (cond<br />         ((= (type inx) 'INT)<br />           (nth inx (XD::Table:getmerge tb t))<br />         )<br />         (t<br />           (mapcar<br />             '(lambda (x)<br />                (if (= 1 (xdrx_object_getxrecord x "MergeCell"))<br />                  (setq lst (cons (xdrx_object_getxrecord x "scope") lst))<br />                )<br />              )<br />             el<br />           )<br />           (reverse lst)<br />         )<br />       )<br />     )<br />     ((= typ "A")<br />       (cond<br />         ((= (type inx) 'INT)<br />           (nth inx (XD::Table:getmerge tb t))<br />         )<br />         (t<br />           (setq rows (xdrx_table_numrows tb)<br />                 cols (xdrx_table_numColumns tb)<br />           )<br />           (setq i 0<br />                 mlst nil<br />           )<br />           (repeat rows<br />             (setq j 0)<br />             (repeat cols<br />               (if (setq merge (xdrx_table_ismergedcell tb i j))<br />                 (progn<br />                   (if (not (member merge mlst))<br />                     (setq mlst (cons merge mlst))<br />                   )<br />                 )<br />               )<br />               (setq j (1+ j))<br />             )<br />             (setq i (1+ i))<br />           )<br />           (reverse mlst)<br />         )<br />       )<br />     )<br />     ((= typ "E")<br />       (xdex_sheet_getMergeCell inx)<br />     )<br />   )<br /> )<br /> <br />