(XD::Table:setMerge)合并表格的单元格

Lispboy

1. (defun XD::Table:setMerge (tb minrow maxrow mincol maxcol / ); bent box col el el1 ex handle n row typ x xdir)
   
2.   (setq typ (XD::Table:TYPE tb)
   
3.         xdir (XD::Table:direction tb)
   
4.   )
   
5.   (cond
   
6.     ((= typ "X")
   
7.       (setq el (xdrx_block_getentities tb)
   
8.             el1 nil
   
9.       )
   
10.       (foreach n el
    
11.         (setq ex (xdrx_object_getxrecord n "no")
    
12.               row (atoi (car ex))
    
13.               col (atoi (cadr ex))
    
14.         )
    
15.         (if (and
    
16.              (>= row minrow)
    
17.              (<= row maxrow)
    
18.              (>= col mincol)
    
19.              (<= col maxcol)
    
20.            )
    
21.           (progn
    
22.             (setq el1 (cons n el1))
    
23.           )
    
24.         )
    
25.       )
    
26.       (if (setq box (xdrx_entity_box el1 xdir))
    
27.         (progn
    
28.           (XD::Table:drawcell tb (last box) (distance (car box)
    
29.                                                       (cadr box)
    
30.                                             ) (distance (cadr box)
    
31.                                                         (caddr box)
    
32.                                               )
    
33.           )
    
34.           (setq bent (car (xdrx_block_appendentity (car
    
35.                                                         (xdrx_getpropertyvalue tb "blocktablerecord")
    
36.                                                    ) (entlast) t
    
37.                           )
    
38.                      )
    
39.           )
    
40.           (xdrx_object_setxrecord bent "MergeCell" 1)
    
41.           (xdrx_object_setxrecord bent "no" (list (itoa minrow)
    
42.                                                   (itoa mincol)
    
43.                                             )
    
44.           )
    
45.           (xdrx_object_setxrecord bent "scope" (list minrow maxrow mincol
    
46.                                                      maxcol
    
47.                                                )
    
48.           )
    
49.           (setq handle (xdrx_getpropertyvalue bent "handle"))
    
50.           (mapcar '(lambda(x)(xdrx_object_setxrecord x "MergeCellEnt" handle))el1)
    
51.           (xdrx_entity_setproperty el1 "visibility" nil)
    
52.           (xdrx_object_setxrecord tb "mergecells" (cons
    
53.                                                         handle
    
54.                                                         (xdrx_object_getxrecord tb "mergecells")
    
55.                                                   )
    
56.           )
    
57.           (xdrx_object_regen tb)
    
58.         )
    
59.       )
    
60.     )
    
61.     ((= typ "A")
    
62.       (xdrx_table_mergecells tb minrow maxrow mincol maxcol)
    
63.     )
    
64.     ((= typ "E")
    
65.       (xdex_sheet_setMerge minrow maxrow mincol maxcol)
    
66.     )
    
67.   )
    
68. )

(defun XD::Table:setMerge (tb minrow maxrow mincol maxcol / ); bent box col el el1 ex handle n row typ x xdir)<br />   (setq typ (XD::Table:TYPE tb)<br />         xdir (XD::Table:direction tb)<br />   )<br />   (cond<br />     ((= typ "X")<br />       (setq el (xdrx_block_getentities tb)<br />             el1 nil<br />       )<br />       (foreach n el<br />         (setq ex (xdrx_object_getxrecord n "no")<br />               row (atoi (car ex))<br />               col (atoi (cadr ex))<br />         )<br />         (if (and<br />              (>= row minrow)<br />              (<= row maxrow)<br />              (>= col mincol)<br />              (<= col maxcol)<br />            )<br />           (progn<br />             (setq el1 (cons n el1))<br />           )<br />         )<br />       )<br />       (if (setq box (xdrx_entity_box el1 xdir))<br />         (progn<br />           (XD::Table:drawcell tb (last box) (distance (car box)<br />                                                       (cadr box)<br />                                             ) (distance (cadr box)<br />                                                         (caddr box)<br />                                               )<br />           )<br />           (setq bent (car (xdrx_block_appendentity (car<br />                                                         (xdrx_getpropertyvalue tb "blocktablerecord")<br />                                                    ) (entlast) t<br />                           )<br />                      )<br />           )<br />           (xdrx_object_setxrecord bent "MergeCell" 1)<br />           (xdrx_object_setxrecord bent "no" (list (itoa minrow)<br />                                                   (itoa mincol)<br />                                             )<br />           )<br />           (xdrx_object_setxrecord bent "scope" (list minrow maxrow mincol<br />                                                      maxcol<br />                                                )<br />           )<br />           (setq handle (xdrx_getpropertyvalue bent "handle"))<br />           (mapcar '(lambda(x)(xdrx_object_setxrecord x "MergeCellEnt" handle))el1)<br />           (xdrx_entity_setproperty el1 "visibility" nil)<br />           (xdrx_object_setxrecord tb "mergecells" (cons<br />                                                         handle<br />                                                         (xdrx_object_getxrecord tb "mergecells")<br />                                                   )<br />           )<br />           (xdrx_object_regen tb)<br />         )<br />       )<br />     )<br />     ((= typ "A")<br />       (xdrx_table_mergecells tb minrow maxrow mincol maxcol)<br />     )<br />     ((= typ "E")<br />       (xdex_sheet_setMerge minrow maxrow mincol maxcol)<br />     )<br />   )<br /> )

iamzhangxs

请问用程序生成了表格，但是有很多相同的内容，如何合并相内容的单元格？