|
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? |