.NET

[#1]

Does anybody have a code snippet that shows how to get a listing of the current table styles in the drawing

Thanks

[#2]

Try this one

Public Shared Sub GetTableStyles()

Dim doc As Document = Application.DocumentManager.MdiActiveDocument

Dim db As Database = doc.Database

Dim did As ObjectId = ObjectId.Null

Using tr As Transaction = db.TransactionManager.StartTransaction

Try

Dim nod As DBDictionary = CType(tr.GetObject(db.NamedObjectsDictionaryId, OpenMode.ForRead), DBDictionary)

did = nod.GetAt("ACAD_TABLESTYLE")

Dim tdic As DBDictionary = CType(tr.GetObject(did, OpenMode.ForRead), DBDictionary)

For Each eDict As DictionaryEntry In tdic

If eDict.Key <> "" Then

MsgBox(eDict.Key)

End If

Next

Catch ex As System.Exception

MsgBox(ex.StackTrace)

End Try

End Using

End Sub

~'J'~

[#3]

Hallex - thanks that did the trick.

[#4]

You're welcome
Cheers

~'J'~