Table Example

Using Programming Languages other than VBA

Sub Example_Table()
	 ' 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?