Table Example



Your Ad Here

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? 

Return to Autodesk Index


Your Ad Here