Autodesk.AutoCAD.DatabaseServices.Database.CurrentSpaceId
Rough outline:
Dim DB as Autodesk.AutoCAD.DatabaseServices.Database
Dim TM as Autodesk.AutoCAD.DatabaseServices.TransactionManager
Dim CT as Autodesk.AutoCAD.DatabaseServices.Transaction
DB = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Database
TM = DB.TransactionManager
CT = TM.StartTransaction
Dim BT as Autodesk.AutoCAD.DatabaseServices.BlockTable
BT = CT.GetObject(db.BlockTableID,ForRead)
Dim CurrentSpace as Autodesk.AutoCAD.DatabaseServices.BlockTableRecord
CurrentSpace = CT.GetObject(bt(DB.CurrentSpaceID),ForRead)
Ronnie Wilkins, Jr.