CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2022 开发者帮助 › 查看内容

AutoCAD 2022 开发者帮助

MergeCells 方法（ActiveX）

2024-5-18 18:44| 发布者: admin| 查看: 196| 评论: 0|原作者: admin|来自: AutoCAD

合并表中的单元格。

支持的平台：仅限 Windows

签名

VBA：

object.MergeCells minRow, maxRow, minCol, maxCol

对象

类型： 表格

此方法应用到的对象。

minRow

访问：仅输入

类型：长

行索引的从零开始的下限。

最大行

访问：仅输入

类型：长

行索引的从零开始的上限。

明科尔

访问：仅输入

类型：长

列索引的从零开始的下限。

麦克斯科尔

访问：仅输入

类型：长

列索引的从零开始的上限。

返回值（RetVal）

无返回值。

言论

此方法合并单元格的矩形区域。要合并的单元格总数等于。(maxRow - minRow + 1) * (maxCol - minCol + 1)

例子

VBA：

Sub Example_MergeCells()

    Dim MyModelSpace As AcadModelSpace
    Set MyModelSpace = ThisDrawing.ModelSpace
    Dim pt(2) As Double
    Dim MyTable As AcadTable
    Set MyTable = MyModelSpace.AddTable(pt, 5, 5, 10, 30)
    Call MyTable.MergeCells(2, 3, 2, 3)

    MsgBox "The cells have been merged appropriately."

    ZoomExtents

End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_MergeCells()
    (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 3)

    (alert "The cells have been merged appropriately.")

    (vla-ZoomExtents acadObj)
)