Current space using VB.Net ?

[KevinBarnett]

Greetings,

How do I re-write this VBA code in VB.Net? :

If ThisDrawing.ActiveSpace = acModelSpace Then
    MsgBox("currently in the Model tab")
Else
    If ThisDrawing.MSpace = True Then
      MsgBox("currently in the model space of a paper space viewport")
    Else
      MsgBox("currently in paper space")
    End If
End If

A recommendation I received looks like this:

Imports System
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.GraphicsInterface

Public Class Class1
    <CommandMethod("DNUS")> _
    Public Sub DNUS()
        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, OpenMode.ForRead)
        Dim CurrentSpace As Autodesk.AutoCAD.DatabaseServices.BlockTableRecord
        Try
            CurrentSpace = CT.GetObject(BT(DB.CurrentSpaceId), OpenMode.ForRead)
            MsgBox(CurrentSpace.Name)

        Catch ex As Exception
            MsgBox("Error: " & ex.Message)
            CT.Dispose()
        End Try
    End Sub
End Class

But this produces an error on line:

CurrentSpace = CT.GetObject(BT(DB.CurrentSpaceId), OpenMode.ForRead)

Error: Value of type '... ObjectID' cannot be converted to string

Thanks for the help,
Kevin.

[ Moderator Action = ON ] What are [ CODE ] tags... [ Moderator Action = OFF ]

[ntaylor]

Has DB.CurrentSpaceId got a ToString method?

Regards - Nathan

[KevinBarnett]

Yes it does, but when you use it you get another error message:

eKey not found

I'm hoping that 2007 is released soon and is distributed with lots of VB.Net samples like supplied with the VBA help files. At the moment I'm just lost in acad's dotnet - anybody know of any really good books?