返回Table合并单元格的范围

牢固 · 发表于 2013-7-5 10:00:58

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun XD::Table:GetMergeRange (TABLE ROW COL / GETCELLID
INSPT ROWS COLS R
ROWHEIGHTS C B
YL COLWIDTHS XL
CELLID MINROW MAXROW MINCOL
MAXCOL el mat invmat dxf11 dxf210
)
;;计算所属单元格ID
(defun GetCellId (row col)
(xdrx_table_HitTest
table
(xdrx_point_transform
(mapcar '+
inspt
(list (nth COL xl) (nth ROW yl) 0)
(list (* 0.5 (nth COL ColWidths))
(* -0.5 (nth ROW RowHEIGHTs))
0
)
) invmat
)
'(0 0 1)
5.0
5.0
)
)
(if (xdrx_table_IsMergedCell TABLE ROW COL)
(progn
(setq inspt (cdr (assoc 10 (setq el (entget table))))
dxf11 (cdr (assoc 11 el))
ang (atan (cadr dxf11) (car dxf11))
dxf210 (cdr (assoc 210 el))
mat (MAT:Rotation3D InsPt dxf210 (- ang))
invmat (xdrx_matrix_inverse mat)
rows (XDRX_TABLE_NUMROWS table)
cols (xdrx_table_NumColumns table)
)
(setq rows (fix (XDRX_TABLE_NUMROWS table))
cols (fix (xdrx_table_NumColumns table))
r -1
)
(repeat rows
(setq RowHEIGHTs
(cons (XDRX_TABLE_RowHEIGHT table (setq r (1+ r)))
RowHEIGHTs
)
)
)
;;各行的行高
(setq RowHEIGHTs
(reverse RowHEIGHTs)
c -1
)
;;yl = 各行的Y坐标
(setq b 0
yl (mapcar '(lambda (x) (setq b (- b x)))
(reverse (cdr (reverse (cons 0 RowHEIGHTs))))
)
)
(repeat cols
(setq
ColWidths
(cons (xdrx_table_ColumnWidth table (setq c (1+ c)))
ColWidths
)
)
)
;;xl = 各列的Y坐标
(setq b 0
xl (mapcar '(lambda (x) (setq b (+ b x)))
(reverse (cdr (reverse (cons 0 ColWidths))))
)
)
;;各列的列宽
(setq ColWidths (reverse ColWidths))
(setq CellId (GetCellId Row col)
minRow Row
maxRow Row
minCol Col
maxCol Col
)
;;计算单元最小行数
(while (and (>= (1- minRow) 0)
(xdrx_table_IsMergedCell TABLE (1- minRow) COL)
(equal CellId (GetCellId (1- minRow) col))
)
(setq minRow (1- minRow))
)
;;计算单元最大行数
(while (and (< (1+ maxRow) (fix (xdrx_table_NumRows table)))
(xdrx_table_IsMergedCell TABLE (1+ maxRow) COL)
(equal CellId (GetCellId (1+ maxRow) col))
)
(setq maxRow (1+ maxRow))
)
;;计算单元最小列数
(while (and (>= (1- minCol) 0)
(xdrx_table_IsMergedCell TABLE Row (1- minCol))
(equal CellId (GetCellId Row (1- minCol)))
)
(setq minCol (1- minCol))
)
;;计算单元最大列数
(while (and (< (1+ maxCol) (fix (xdrx_table_NumColumns table)))
(xdrx_table_IsMergedCell TABLE Row (1+ maxCol))
(equal CellId (GetCellId Row (1+ maxCol)))
)
(setq maxCol (1+ maxCol))
)
;;返回值 '(最小行数最大行数最小列数最大列数)
(list minRow maxRow minCol maxCol)
)
)
)

(defun XD::Table:GetMergeRange                           (TABLE ROW           COL            /             GETCELLID 
                                  INSPT           ROWS            COLS     R 
                                  ROWHEIGHTS            C             B 
                                  YL           COLWIDTHS             XL 
                                  CELLID   MINROW   MAXROW   MINCOL 
                                  MAXCOL el mat invmat dxf11 dxf210 
                                 ) 
 ;;计算所属单元格ID 
 (defun        GetCellId (row col) 
   (xdrx_table_HitTest 
     table 
     (xdrx_point_transform 
     (mapcar '+ 
             inspt 
             (list (nth COL xl) (nth ROW yl) 0) 
             (list (* 0.5 (nth COL ColWidths)) 
                   (* -0.5 (nth ROW RowHEIGHTs)) 
                   0 
             ) 
     )    invmat 
       ) 
     '(0 0 1) 
     5.0 
     5.0 
   ) 
 ) 
  (if (xdrx_table_IsMergedCell TABLE ROW COL) 
    (progn 
      (setq inspt                 (cdr (assoc 10 (setq el (entget table)))) 
          dxf11         (cdr (assoc 11 el)) 
          ang         (atan (cadr dxf11) (car dxf11)) 
          dxf210 (cdr (assoc 210 el)) 
          mat         (MAT:Rotation3D InsPt dxf210 (- ang)) 
          invmat (xdrx_matrix_inverse mat) 
          rows         (XDRX_TABLE_NUMROWS table) 
          cols         (xdrx_table_NumColumns table) 
    ) 
      (setq rows (fix (XDRX_TABLE_NUMROWS table)) 
            cols (fix (xdrx_table_NumColumns table)) 
            r         -1 
      ) 
      (repeat rows 
        (setq RowHEIGHTs 
               (cons (XDRX_TABLE_RowHEIGHT table (setq r (1+ r))) 
                     RowHEIGHTs 
               ) 
        ) 
      ) 
      ;;各行的行高 
      (setq RowHEIGHTs 
             (reverse RowHEIGHTs) 
            c -1 
      ) 
      ;;yl = 各行的Y坐标 
      (setq b  0 
            yl (mapcar '(lambda (x) (setq b (- b x))) 
                       (reverse (cdr (reverse (cons 0 RowHEIGHTs)))) 
               ) 
      ) 
      (repeat cols 
        (setq 
          ColWidths 
           (cons (xdrx_table_ColumnWidth table (setq c (1+ c))) 
                 ColWidths 
           ) 
        ) 
      ) 
      ;;xl = 各列的Y坐标 
      (setq b  0 
            xl (mapcar '(lambda (x) (setq b (+ b x))) 
                       (reverse (cdr (reverse (cons 0 ColWidths)))) 
               ) 
      ) 
      ;;各列的列宽 
      (setq ColWidths (reverse ColWidths)) 
      (setq CellId (GetCellId Row col) 
            minRow Row 
            maxRow Row 
            minCol Col 
            maxCol Col 
      ) 
      ;;计算单元最小行数 
      (while (and (>= (1- minRow) 0) 
                  (xdrx_table_IsMergedCell TABLE (1- minRow) COL) 
                  (equal CellId (GetCellId (1- minRow) col)) 
                  ) 
        (setq minRow (1- minRow)) 
        ) 
      ;;计算单元最大行数 
      (while (and (< (1+ maxRow) (fix (xdrx_table_NumRows table))) 
                  (xdrx_table_IsMergedCell TABLE (1+ maxRow) COL) 
                  (equal CellId (GetCellId (1+ maxRow) col)) 
                  ) 
        (setq maxRow (1+ maxRow)) 
        ) 
      ;;计算单元最小列数 
      (while (and (>= (1- minCol) 0) 
                  (xdrx_table_IsMergedCell TABLE Row (1- minCol)) 
                  (equal CellId (GetCellId Row (1- minCol))) 
                  ) 
        (setq minCol (1- minCol)) 
        ) 
      ;;计算单元最大列数 
      (while (and (< (1+ maxCol) (fix (xdrx_table_NumColumns table))) 
                  (xdrx_table_IsMergedCell TABLE Row (1+ maxCol)) 
                  (equal CellId (GetCellId Row (1+ maxCol))) 
                  ) 
        (setq maxCol (1+ maxCol)) 
        ) 
      ;;返回值 '(最小行数 最大行数 最小列数 最大列数) 
      (list minRow maxRow minCol maxCol) 
    ) 
  ) 
)

XDSoft · 发表于 2013-7-5 12:40:52

G版，研究了下函数，发现xdrx_table_selectSubRegion 可以替代高版本的GetMergeRange函数，你试下下面函数。

(defun XD::Table:GetMergeRange (tb ROW COL / box coord ecs pt1 pt2 xdir zdir)
(if (and
(xdrx_table_isMergedCell tb ROW COL)
(setq box (xdrx_table_GetCellExtents tb ROW COL))
)
(progn
(setq box (cadr box)
pt1 (car box)
pt2 (caddr box)
ecs (xdrx_matrix_ecs2wcs tb)
coord (xdrx_matrix_getcoordsystem ecs)
zDir (last coord)
xDir (cadr coord)
)
(xdrx_table_selectSubRegion tb pt1 pt2 zDir xDir 5.0 5.0 1 0 1)
)
)
)

牢固 · 发表于 2013-7-5 14:09:34

XDSoft 发表于 2013-7-5 12:40
G版，研究了下函数，发现xdrx_table_selectSubRegion 可以替代高版本的GetMergeRange函数，你试下下面函数 ...

非常不错，短小精悍！{:soso_e179:}

XDSoft · 发表于 2013-7-6 18:40:30

这个函数可以不用LISP了，直接在ARX里面提供通用的了。

xdrx_table_getMergeRange

牢固 · 发表于 2013-7-7 15:51:50

XDSoft 发表于 2013-7-6 18:40
这个函数可以不用LISP了，直接在ARX里面提供通用的了。

xdrx_table_getMergeRange

发现IsMergedCell方法是可以直接输出合并单元格的范围的！

XDSoft · 发表于 2013-7-7 16:15:32

牢固发表于 2013-7-7 15:51
发现IsMergedCell方法是可以直接输出合并单元格的范围的！

呵呵，是的，修改了代码，发给你了。

(xdrx_table_ismergedcell (entlast) 3 3)
(3 4 2 4)

flyfox1048 · 发表于 2013-12-30 18:58:30

谢谢各位大佬

ll0ll · 发表于 2019-5-9 12:15:15

厉害厉害。。。

账号		自动登录	找回密码
密码			立即注册

[表格] 返回Table合并单元格的范围

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

评分

点评

点评