AutoCAD的二次开发中表格操作的问题

sujianyong

请教如何在VisualStuio2005+托管(acmgd.dll和acdbmgd.dll)的编程中在AutoCAD中加入表格"Table".

程序在编译中没有问题,但是运行时总是不能成功!

lkq67

<CommandMethod("creattable")> _
    Public Sub ceattable()
        Try
            Dim prpointres As PromptPointResult = ed.GetPoint("选择插入点")

            Dim blkTbl As BlockTable = CType(trans.GetObject(db.BlockTableId, OpenMode.ForRead), BlockTable)
            Dim blkTblRec As BlockTableRecord = CType(trans.GetObject(blkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite), BlockTableRecord)
            'Dim stId As ObjectId = AcadTableUtilities.makeTableStyle
            Dim ptable As New Table
            With ptable
                .Position = prpointres.Value
                .NumColumns = 5 '5列
                .NumRows = 33 '33行

                '初始化表格ptable
                .IsHeaderSuppressed = True '去掉页眉
                .IsTitleSuppressed = True '去掉标题行
                .SetColumnWidth(0, 900)
                .SetColumnWidth(1, 6400)
                .SetColumnWidth(2, 4400)
                .SetColumnWidth(3, 4400)
                .SetColumnWidth(4, 1900)
                .SetRowHeight(700) '行高700
                For j = 0 To 32
                    .SetTextHeight(j, 0, 300)
                    .SetAlignment(j, 0, CellAlignment.MiddleCenter)
                    .SetTextHeight(j, 1, 400)
                    .SetAlignment(j, 1, CellAlignment.MiddleLeft)
                    .SetTextHeight(j, 2, 300)
                    .SetAlignment(j, 2, CellAlignment.MiddleCenter)
                    .SetTextHeight(j, 3, 400)
                    .SetAlignment(j, 3, CellAlignment.MiddleCenter)
                    .SetTextHeight(j, 4, 300)
                    .SetAlignment(j, 4, CellAlignment.MiddleCenter)
                Next
            End With

            blkTblRec.AppendEntity(ptable)
            trans.AddNewlyCreatedDBObject(ptable, True)

            ptable.RecomputeTableBlock(True)
            'ed.Regen()
            ptable.Dispose()
            blkTbl.Dispose()
            blkTblRec.Dispose()
        Catch ex As System.Exception
            MsgBox(ex.StackTrace)
        End Try
        trans.Commit()
        trans.Dispose()
    End Sub

wangfen_feng

学习！！！致敬！！！！