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?