The following is a quick example of getting the current Style Table or Color Table of the current layout. As well as listing the available tables. If you are wanting to read the contents of the style table or color table, I would suggest looing into PiaNO which can be found here.
https://github.com/phusband/PiaNO
<CommandMethod("PlotConfigsEx")>
Public Sub CmdPlotConfigsEx()
GetCurrent() 'CommandBase - Sets Private aDoc, db, and ed
Using tr As Transaction = db.TransactionManager.StartTransaction
Dim loMgr As LayoutManager = LayoutManager.Current
Dim loId As ObjectId = loMgr.GetLayoutId(loMgr.CurrentLayout)
Dim lo As Layout = tr.GetObject(loId, OpenMode.ForRead)
If String.IsNullOrEmpty(lo.CurrentStyleSheet) Then
ed.WriteMessage(vbCrLf & "Current Style Sheet: None")
Else
ed.WriteMessage(vbCrLf & "Current Style Sheet: " & lo.CurrentStyleSheet)
End If
Dim psVal As PlotSettingsValidator = PlotSettingsValidator.Current
Dim sheetList As StringCollection = psVal.GetPlotStyleSheetList
ed.WriteMessage(vbCrLf & "Available Style Sheets: ")
For Each s As String In sheetList
ed.WriteMessage(vbCrLf & " --> " & s)
Next
tr.Commit()
End Using
End Sub