This will return the BlockTableID of the Layout
{code}
Imports Autodesk.AutoCAD.DatabaseServices
Public Class GetLayoutTest
Sub Test()
Dim ObjLayoutManager As LayoutManager = LayoutManager.Current
Dim LayoutID As ObjectId = ObjLayoutManager.GetLayoutId(ObjLayoutManager.CurrentLayout)
Dim id As ObjectId
If ObjLayoutManager.CurrentLayout = "Model" Then
id = SymbolUtilityServices.GetBlockModelSpaceId(LayoutID.Database)
Else
id = SymbolUtilityServices.GetBlockPaperSpaceId(LayoutID.Database)
End If
End Sub
End Class
{code}
---------------------------
(defun botsbuildbots() (botsbuildbots))