创建表格（Table）

Imports ZwSoft.ZwCAD.Runtime
Imports ZwSoft.ZwCAD.ApplicationServices
Imports ZwSoft.ZwCAD.DatabaseServices
Imports ZwSoft.ZwCAD.EditorInput
Imports ZwSoft.ZwCAD.Geometry


Public Class ZwApps
    <CommandMethod("CreateTable")> _
    Public Shared Sub CreateTable()
         Dim zcDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim zcDB As Database = zcDoc.Database
        Dim zcEd As Editor = zcDoc.Editor


        Dim PrPR As PromptPointResult = zcEd.GetPoint(vbLf & "Enter the insertion point: ")
        If PrPR.Status = PromptStatus.OK Then
            Dim Tb As Table = New Table()
            Tb.TableStyle = zcDB.Tablestyle
            Tb.NumRows = 5
            Tb.NumColumns = 5
            Tb.SetRowHeight(3)
            Tb.SetColumnWidth(10)
            Tb.Position = PrPR.Value


           
            Dim ValueStr As String(,) = New String(4, 4) {}
            Dim i As Integer, j As Integer
            For i = 0 To 4
                For j = 0 To 4
                    ValueStr(i, j) = i * j
                    Tb.SetTextHeight(i, j, 1)
                    Tb.SetTextString(i, j, ValueStr(i, j))
                    Tb.SetAlignment(i, j, CellAlignment.MiddleCenter)
                Next
            Next


            Tb.GenerateLayout()


            Using zcTran As Transaction = zcDB.TransactionManager.StartTransaction
                Dim zcBLT As BlockTable = zcTran.GetObject(zcDB.BlockTableId, OpenMode.ForRead)
                Dim zcBLTR As BlockTableRecord = zcTran.GetObject(zcBLT(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
                zcBLTR.AppendEntity(Tb)
                zcTran.AddNewlyCreatedDBObject(Tb, True)
                zcTran.Commit()
            End Using
        End If
    End Sub
End Class