topic Place table using existing table style template (VB.net) in .NET Forum

Place table using existing table style template (VB.net)

RodWing — Thu, 02 Jul 2015 19:32:22 GMT

I'm trying to place a table using an existing table style that has 26 rows and 7 columns with the column header text defined. When I manually place a new table using that style it is placed as designed. Trying to place a new table using that style using the Sub below I don't get any of the formatting. It places a 1x1 table. Checking the proprties of the 1x1 table it lists the correct table style.

What am I missing?

Thanks.

 Sub PlaceTableTemplate(ByVal tsName As String)
        Dim doc As Document
        Dim db As Database

        doc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
        db = doc.Database


        Dim tsID As ObjectId

        Using tr As Transaction = db.TransactionManager.StartTransaction
            Dim stDict As DBDictionary = tr.GetObject(db.TableStyleDictionaryId, OpenMode.ForRead)
            If stDict.Contains(tsName) Then
                tsID = stDict.GetAt(tsName)
            Else
                MsgBox("Table style not found")
                Exit Sub
            End If
        End Using

        Dim ed As Editor
        Dim pr As PromptPointResult
        Dim tb As New Table

        ed = doc.Editor
        pr = ed.GetPoint(vbCrLf & "Enter table insertion point: ")
        If pr.Status = PromptStatus.OK Then
            With tb
                .TableStyle = tsID
                .Position = pr.Value
            End With
        Else
            Exit Sub
        End If

        tb.GenerateLayout()

        Using tr As Transaction = doc.TransactionManager.StartTransaction
            Dim bt As BlockTable = tr.GetObject(doc.Database.BlockTableId, OpenMode.ForRead)
            Dim btr As BlockTableRecord = tr.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite)

            btr.AppendEntity(tb)
            tr.AddNewlyCreatedDBObject(tb, True)
            tr.Commit()
        End Using
    End Sub

Re: Place table using existing table style template (VB.net)

hgasty1001 — Tue, 07 Jul 2015 01:08:57 GMT

Hi,

Why the second transaction?, just delete the second transaction and commit the first transaction.

Gaston Nunez

Re: Place table using existing table style template (VB.net)

RodWing — Tue, 07 Jul 2015 12:57:26 GMT

@hgasty1001 wrote:
Hi,

Why the second transaction?, just delete the second transaction and commit the first transaction.

Gaston Nunez

Gaston, Thanks for the reply.

The reason for the second transaction is that I actually have this broken apart in separate classes. I combined the code from the different functions to create this sub to more easily illustrate what I'm trying to accomplish.

Re: Place table using existing table style template (VB.net)

hgasty1001 — Tue, 07 Jul 2015 13:26:35 GMT

Hi,

But then, you have to commit the first transaction too. I use this to create a table:

1.-Start a transaction

2.-Instance a new table

3.-Asign style and properties

4.-Generate layout

5.-Add to DB

6.-Commit the transaction

Gaston Nunez

Re: Place table using existing table style template (VB.net)

SENL1362 — Tue, 07 Jul 2015 14:46:06 GMT

Gaston,
I'll assume you assign the Styles (3.) separately to all the parts of the Instantiated table as i do.
In earlier experiments assigning the StyleId to the table didn't work for me either.