RegenerateTableSuppressed Example

Using Programming Languages other than VBA

Sub Example_RegenerateTableSuppressed()
	Dim MyModelSpace As AcadModelSpace
	Dim MyTable As IAcadTable2
	Dim pt(2) As Double
	Set MyModelSpace = ThisDrawing.ModelSpace
	Set MyTable = MyModelSpace.AddTable(pt, 100, 5, 5, 10)

	'Temporarily disable the recomputing of table block
	MyTable.RegenerateTableSuppressed = True

	Dim i As Integer, j As Integer
	For i = 0 To 99
		For j = 0 To 4
			Call MyTable.SetText(i, j, "my string " & i & ", " & j)
		Next j
	Next i

	'Now force the recomputing of table block
	'so that we can see the update table results
	MyTable.RegenerateTableSuppressed = False

	'You can also call RecomputeTableBlock(true) instead
	'to force the regeneration of table
	'MyTable.RecomputeTableBlock(True)

End Sub

 

   Comments?