Sub Example_AddTable()
    ' Этот пример добавляет таблицу в пространство модели

	Dim MyModelSpace As IAcadModelSpace2
	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