MergeCell Example |
Using Programming Languages other than VBA
Sub Example_CellMerge() 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
Comments? |