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

AutoCAD 2018 开发者帮助

UnmergeCells 方法（ActiveX）

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

拆分表中合并的单元格。

支持的平台：仅限 Windows

签名

VBA：

object.UnmergeCells minRow, maxRow, minCol, maxCol

对象

类型： 表格

此方法应用到的对象。

minRow

访问：仅输入

类型：长

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

最大行

访问：仅输入

类型：长

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

明科尔

访问：仅输入

类型：长

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

麦克斯科尔

访问：仅输入

类型：长

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

返回值（RetVal）

无返回值。

言论

没有其他评论。

例子

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)
)