Breaks Example

Using Programming Languages other than VBA

Sub Example_ContentChange()
	 ' This example adds a table in model space and sets the breaks

	Dim MyModelSpace As AcadModelSpace
	Set MyModelSpace = ThisDrawing.ModelSpace
	Dim pt(2) As Double
	Dim MyTable As IAcadTable2
	Dim cName As String
	Set MyTable = MyModelSpace.AddTable(pt, 5, 5, 10, 30)

	MyTable.BreaksEnabled = True
	MyTable.BreakSpacing = 3.2  
	MyTable.TableBreakHeight = 4.2


End Sub