topic Set CurrentLayout in .NET Forum

Set CurrentLayout

Anonymous — Mon, 07 Jan 2013 13:16:43 GMT

Can someone please tell me why I get an 'esetfailed' error? I must be missing something simple. Just before this sub I call another sub that changes the active document. ?? This is in AutioCAD 2011 w/ 64bit environment.

    Public Shared Sub ActiveLayout(ByVal name As String)
        Dim acDoc As Document = AcApp.DocumentManager.MdiActiveDocument
        Dim Db As Database = HostApplicationServices.WorkingDatabase
        Dim tdoclock As DocumentLock = acDoc.LockDocument
        Dim layMgr As LayoutManager = LayoutManager.Current
        Using acTrans As Transaction = Db.TransactionManager.StartTransaction()
            Try
                Autodesk.AutoCAD.ApplicationServices.Application.ShowAlertDialog(acDoc.Name)
                If Not Regex.Match(layMgr.CurrentLayout, name).Success() Then
                    layMgr.CurrentLayout = name
                End If
                acTrans.Commit()
            Catch ex As Autodesk.AutoCAD.Runtime.Exception
                Autodesk.AutoCAD.ApplicationServices.Application.ShowAlertDialog(ex.Message & vbCr & ex.HelpLink & vbCr & ex.StackTrace)
            Finally
                acTrans.Dispose()
                tdoclock.Dispose()
                tdoclock = Nothing
            End Try
        End Using
    End Sub

Any help is greatly appreciated.

Matthew

Re : Set CurrentLayout

_gile — Mon, 07 Jan 2013 16:34:16 GMT

Hi,

eSetFailed is probably due to the fact the 'name' Layout does not exist in the drawing and no need to complicate so much.

This works for me:

        Public Shared Sub ActiveLayout(ByVal name As String)
            Try
                LayoutManager.Current.CurrentLayout = name
            Catch
                MsgBox(String.Format("Layout '{0}' not found", name))
            End Try
        End Sub

Re : Set CurrentLayout

Anonymous — Mon, 07 Jan 2013 18:30:43 GMT

I would like to change the question. Why does that code not work for Drawing1.dwg and Layout1? It does work with other drawings I have. I don't have a reason to operate on that drawing, So I will exclude it from the forms listbox.

Thanks

Matthew

Re : Set CurrentLayout

Hallex — Mon, 07 Jan 2013 21:33:06 GMT

Delete "acTrans.Dispose" from Finally code block

and try again