AddTable Example

Using Programming Languages other than VBA

Sub Example_AddTable()
	' This example adds a table in model space

		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)
		ZoomExtents

End Sub

 

   Comments?