<CommandMethod("tabletest")>
Public Sub tabletest()
Dim doc As Document = Application.DocumentManager.MdiActiveDocument
Dim db As Database = doc.Database
Dim ed As Editor = doc.Editor
Dim pr As PromptPointResult = ed.GetPoint("Enter insertion point: ")
If pr.Status = PromptStatus.OK Then
Dim tb As New Table()
tb.TableStyle = db.Tablestyle
tb.NumRows = 1
tb.NumColumns = 1
tb.SetRowHeight(3)
tb.SetColumnWidth(15)
tb.Position = pr.Value
tb.SetTextHeight(0, 0, 1)
tb.SetTextString(0, 0, "test")
tb.SetAlignment(0, 0, CellAlignment.MiddleCenter)
tb.GenerateLayout()
Using tr As Transaction = db.TransactionManager.StartTransaction()
Dim bt As BlockTable = tr.GetObject(db.BlockTableId, OpenMode.ForRead)
Dim btr As BlockTableRecord = tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite)
btr.AppendEntity(tb)
tr.AddNewlyCreatedDBObject(tb, True)
tr.Commit()
End Using
End If
End Sub