Nothing related, but maybe useful and not mine [no net yet]
<CommandMethod("MyTable")> _
Public Shared Sub MyTableCmd()
Dim mTable As Table
Dim rowt As RowType
Dim bt As BlockTable
Dim btr As BlockTableRecord
Try
Dim db As Database = HostApplicationServices.WorkingDatabase
Dim objId As ObjectId = db.BlockTableId
bt = objId.Open(OpenMode.ForRead)
objId = bt.Item(btr.ModelSpace)
btr = objId.Open(OpenMode.ForWrite)
mTable = New Table()
btr.AppendEntity(mTable)
btr.Close()
bt.Close()
mTable.InsertColumns(0, 12, 1)
mTable.InsertColumns(1, 40, 1)
mTable.InsertColumns(2, 40, 1)
mTable.InsertColumns(3, 40, 1)
mTable.InsertColumns(4, 16, 1)
mTable.InsertColumns(5, 30, 1)
mTable.InsertRows(0, 8, 10)
mTable.SetTextHeight(3, rowt.DataRow)
mTable.SetTextString(0, 0, "TEST")
mTable.SetTextString(0, 1, "TEST")
mTable.SetTextString(0, 2, "TEST")
mTable.SetTextString(0, 3, "TEST")
mTable.SetTextString(0, 4, "TEST")
mTable.SetTextString(0, 5, "TEST")
mTable.SetTextString(1, 0, "TEST")
mTable.SetTextString(1, 1, "TEST")
mTable.SetTextString(1, 2, "TEST")
mTable.SetTextString(1, 3, "TEST")
mTable.SetTextString(1, 4, "TEST")
mTable.Position = New Point3d(180, 80, 0)
mTable.Close()
Catch
Finally
End Try
End Sub