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

	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