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 ZoomExtents End Sub
Comments? |