AutoCAD LISP vla-ismergedcell 使用範例

(vla-IsMergedCell <TableObject> <row> <col> <minRow> <maxRow> <minCol> <maxCol>)
返回單元格的合併狀態

參數：

<TableObject>  -  VLA 表格物件
<row> / <col>  -  要查詢單元格的索引
<minRow> / <maxRow> / <minCol> / <maxCol>  -  [輸出]合併單元格的範圍(設定輸出變數名)

回傳：

型式(Type)：布林值(Boolean)
:vlax-true - <row> / <col>中的單元格是合併範圍的一部分： (<minRow>, <maxRow> ; <minCol>,<maxCol>)
:vlax- false - 單元格位於<row> / <col>不是合併範圍的一部分

※注意：表格索引列/欄(row / col)索引都從0開始

範例：

(defun c:tt  ( / acadObj doc pt modelSpace MyTable rmin rmax cmin cmax )
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    (setq pt (vlax-3d-point 0 0 0))
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq MyTable (vla-AddTable modelSpace pt 5 5 10 30))
    ;;合併表格中的單元格
    (vla-MergeCells MyTable 2 3 2 4)
    (princ "\n單元格已被正確合併。\n")
    ;;測試1是否合併
    (princ (vla-ismergedcell MyTable 3 2 'rmin 'rmax 'cmin 'cmax))
    (princ "\nrmin / rmax / cmin / cmax：")(princ (list rmin rmax cmin cmax))
    ;;測試2是否合併
    (princ "\n")
    (princ (vla-ismergedcell MyTable 1 1 'rmin 'rmax 'cmin 'cmax))
    (princ "\nrmin / rmax / cmin / cmax：")(princ (list rmin rmax cmin cmax))
    (princ)
    );_結束

指令: TT
單元格已被正確合併。
:vlax-true
rmin / rmax / cmin / cmax：(2 3 2 4)
:vlax-false
rmin / rmax / cmin / cmax：(0 0 0 0)