topic Re: Switching layouts & Windows form doesn't work in .NET Forum

Switching layouts & Windows form doesn't work

Anonymous — Thu, 15 Nov 2007 23:11:26 GMT

I am working with a plotting macro and my WindowsForm needs to activate a layout...Here is the problem. It doesn't work.

The method I am using to switch the layout is:
LayoutManager.Current.CurrentLayout() = "Layout1"

I know this works since if I have it like below without loading form it works fine:

Public Sub TestLayout()
LayoutManager.Current.CurrentLayout() = "Layout1"
End Sub

The one line of code will also work if its place inside the Form_Load event of the form i'm using...But once I place the code in any Button_Clicked event it doesn't work anymore. The drawing stays in Model space and a prompt says it regening layout...The code you can try is below:

Public Sub TestLayout()
Dim frm As New Form1
frm.Show()
End Sub

Imports Autodesk.AutoCAD.DatabaseServices
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
LayoutManager.Current.CurrentLayout() = "Layout1"
End Sub
End Class

Re: Switching layouts & Windows form doesn't work

Anonymous — Fri, 16 Nov 2007 14:26:19 GMT

CurrentLayout()?

LayoutManager.CurrentLayout is a property of String type, not a method.
Remove the bracket from your code.

wrote in message news:5779159@discussion.autodesk.com...
I am working with a plotting macro and my WindowsForm needs to activate a
layout...Here is the problem. It doesn't work.

The method I am using to switch the layout is:
LayoutManager.Current.CurrentLayout() = "Layout1"

I know this works since if I have it like below without loading form it
works fine:

Public Sub TestLayout()
LayoutManager.Current.CurrentLayout() = "Layout1"
End Sub

The one line of code will also work if its place inside the Form_Load event
of the form i'm using...But once I place the code in any Button_Clicked
event it doesn't work anymore. The drawing stays in Model space and a prompt
says it regening layout...The code you can try is below:

Public Sub TestLayout()
Dim frm As New Form1
frm.Show()
End Sub

Imports Autodesk.AutoCAD.DatabaseServices
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
LayoutManager.Current.CurrentLayout() = "Layout1"
End Sub
End Class

Re: Switching layouts & Windows form doesn't work

Anonymous — Fri, 16 Nov 2007 22:10:44 GMT

Thanks for the suggestion. I added the parenthesis' because of the way the object browser lists the property.

Removed it and it still doesn't work. The code with the parenthesis actually works just not in the button clicked event of the form....

Thanks.

Re: Switching layouts & Windows form doesn't work

Anonymous — Sat, 17 Nov 2007 17:08:44 GMT

Try this instead, it was working for me in A2008

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ed As Editor = AcadApp.DocumentManager.MdiActiveDocument.Editor
Dim Db As Database = HostApplicationServices.WorkingDatabase
Using locked As Autodesk.AutoCAD.ApplicationServices.DocumentLock = AcadApp.DocumentManager.MdiActiveDocument.LockDocument()
Using trans As Transaction = Db.TransactionManager.StartTransaction()
LayoutManager.Current.CurrentLayout = "Layout1"
ed.Regen()
trans.Commit()
End Using
End Using
End Sub
End Class

~'J'~

Re: Switching layouts & Windows form doesn't work

Anonymous — Mon, 19 Nov 2007 19:14:55 GMT

Awesome! That worked. Added everything piece by piece. It ended up that locking the document is needed.

Thanks!

Re: Switching layouts & Windows form doesn't work

Anonymous — Tue, 20 Nov 2007 09:21:00 GMT

Always happy to help
Cheers 🙂

~'J'~

Re: Switching layouts & Windows form doesn't work

Anonymous — Tue, 20 Nov 2007 22:52:18 GMT

Sorry, don't you need to dispose of the lock? Or does the transaction take care of that?

Re: Switching layouts & Windows form doesn't work

Anonymous — Tue, 20 Nov 2007 22:54:12 GMT

Good observation. You do.