topic Re: Changing Current Layout in .NET Forum

Changing Current Layout

GeeHaa — Thu, 18 Mar 2010 19:02:26 GMT

Hi,

Can anyone tell me why this code doesn't Change the current layout.

Dim acLayoutMgr As LayoutManager
acLayoutMgr = LayoutManager.Current
acLayoutMgr.CurrentLayout = "Model"

Thanks in Advance

Re: Changing Current Layout

chiefbraincloud — Thu, 18 Mar 2010 21:23:41 GMT

The code I have is intended to activate a newly created layout tab, and ran in a command that has to be run from the Model tab, so I had to test it to see if it would activate the model tab and it worked fine. So the problem is not the code you posted.

Perhaps it has to do with where the code is running from (ie from code in a form class), but you'll have to provide more info for anyone to help.

If the code is as it is posted (always activates the Model tab, never any other tab) then you could try setting the system variable TILEMODE to 1 and see if that works.

Re: Changing Current Layout

arcticad — Thu, 18 Mar 2010 21:44:30 GMT

try adding the session flag

Autodesk.AutoCAD.Runtime.CommandMethod("CommandName", Autodesk.AutoCAD.Runtime.CommandFlags.Session)

Re: Changing Current Layout

GeeHaa — Fri, 19 Mar 2010 14:16:50 GMT

Thanks for the response. I have command flags.session in there but for some reason it still doesn't change layouts. I was running it from a form so I tried putting it in the command routine,But it still doesn't change. It doesn't give an error either. Aside from the imports here is the code leading up to the change.

CommandMethod("PCL", CommandFlags.Session)
Public Sub PCL()

Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim acCurDb As Database = acDoc.Database

Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()

Dim acLayoutMgr As LayoutManager
acLayoutMgr = LayoutManager.Current
acLayoutMgr.CurrentLayout = "Model"
MsgBox("Current Layout = " + acLayoutMgr.CurrentLayout)

current layout is still "Layout1"

Thanks again.

Re: Changing Current Layout

Hallex — Fri, 19 Mar 2010 16:01:30 GMT

Use Try..Catch to find a problem easily, i.e.
{code}
Public Sub PCL()
Dim acDoc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
Dim acCurDb As Database = acDoc.Database
Using doclock As DocumentLock = acDoc.LockDocument
Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
Try
Dim acLayoutMgr As LayoutManager
acLayoutMgr = LayoutManager.Current
acLayoutMgr.CurrentLayout = "Model"

MsgBox("Current Layout = " + acLayoutMgr.CurrentLayout)
acTrans.Commit()
Catch ex As Autodesk.AutoCAD.Runtime.Exception
Autodesk.AutoCAD.ApplicationServices.Application.ShowAlertDialog(ex.Message & vbCr & ex.StackTrace)
End Try

End Using
End Using
End Sub
{code}

~'J'~

Re: Changing Current Layout

Anonymous — Fri, 19 Mar 2010 16:08:01 GMT

I found it rolled back if you don't commit the transaction

If you leave out the commit, the layout changes, displays the layout name, and then checking okay rolls back

Re: Changing Current Layout

GeeHaa — Fri, 19 Mar 2010 17:05:13 GMT

Locking the document did the trick. It changes the layout immediately even before the commit. I'm curious though, does Using Doclock lock the document just for this transaction and release it with the end Using statement?

Re: Changing Current Layout

chiefbraincloud — Fri, 19 Mar 2010 17:50:18 GMT

Yes. the DocumentLock is disposed at the End Using.

You actually don't need a transaction to do this at all. You need the DocumentLock because you are running it from a form (which is why I mentioned form code earlier), but my code works fine without either a transaction or a DocumentLock, running from a CommandMethod in a Module.

Re: Changing Current Layout

Anonymous — Tue, 06 Dec 2011 16:00:47 GMT

Hi,

I still cannot understand the solution, i tried in many ways but it couldnt work. Can you please clarify much more

Thanks,

Tamer Mourad

Re: Changing Current Layout

fieldguy — Tue, 06 Dec 2011 16:45:40 GMT

Show us what you have so far.

Re: Changing Current Layout

Anonymous — Tue, 06 Dec 2011 16:59:41 GMT

Here it is

<CommandMethod("t13")>

PublicSubT13()

'Change the drawing Number

MsgBox("Please place all the sheet under the this path C:\x and create an empty folder under the C:\1 that drawings will be placed in")

Dim direc AsString = "C:\x"Dim filecount AsInteger = System.IO.Directory.GetFiles(direc, "*.dwg").Length

Dim arrfile() AsString = System.IO.Directory.GetFiles(direc, "*.dwg")

Dim val AsInteger = InputBox("Please Enter the value you want to add to the text")

Dim adedo AsEditor = Application.DocumentManager.MdiActiveDocument.Editor

Try

Dim i AsInteger= 0

For i = 0 To filecount - 1

Dim currentFile AsString= arrfile(i)

Dim doc AsDocument = Application.DocumentManager.Open(currentFile, False)

Dim db AsDatabase= doc.Database

Dim newfil AsString= Replace(currentFile, Mid(Right(currentFile, 7), 1, 3), Mid(Right(currentFile, 7), 1, 3) + val)

newfil = Replace(newfil,

"C:\x\", "C:\1\")

Dim doclock AsDocumentLock= doc.LockDocument

Usingdoclock

Dim trans AsTransaction= db.TransactionManager.StartTransaction()

Using(trans)

Dim ly1 AsLayoutManager = LayoutManager.Current

LayoutManager.Current.CurrentLayout = "Layout1"

trans.Commit()

EndUsingEndUsing

doc.Database.SaveAs(newfil,

True, DwgVersion.Current, doc.Database.SecurityParameters)

doc.CloseAndDiscard()

Catch ex As Autodesk.AutoCAD.Runtime.Exception

MsgBox(ex.Message & vbLf & ex.StackTrace)

Finally

MsgBox("Done")

EndTry

EndSub

Re: Changing Current Layout

fieldguy — Wed, 07 Dec 2011 03:07:09 GMT

I assume you have this working from the posts here and in the other thread. Unless there is more to this, you don't need the database or a transaction. You also don't need an editor that I can see. This will do nothing if layout1 does not exist.

Using doclock

LayoutManager.Current.CurrentLayout = "Layout1"

End Using

If you do need the editor, declare it after you open the currentfile, like "dim adedo as editor = doc.editor".

Command flags session is described in the developers guide - a good page to bookmark. (http://docs.autodesk.com/ACD/2010/ENU/AutoCAD%20.NET%20Developer's%20Guide/index.html?url=WS1a9193826455f5ff2566ffd511ff6f8c7ca-3cf7.htm,topicNumber=d0e30666)

If you have to do more batch file processing do a google search for the openfiledialog class.

Re: Changing Current Layout

Anonymous — Wed, 07 Dec 2011 17:11:40 GMT

Hi,

I do need the editor and transaction for the rest of the program, however when i added this line next to the command method it worked

Autodesk.AutoCAD.Runtime.

CommandFlags.Session

Do you have any idea what does this line do?

By the way the hyperlink you attached is linking to something out of what i am asking for. R u sure from this bookmark

Thanks,

Tamer Mourad

Re: Changing Current Layout

fieldguy — Wed, 07 Dec 2011 18:15:33 GMT

http://docs.autodesk.com/ACD/2010/ENU/AutoCAD%20.NET%20Developer's%20Guide/index.html

There is lots of help available on the internet. The main idea is to search first.

Re: Changing Current Layout

Anonymous — Thu, 08 Dec 2011 06:37:29 GMT

Thanks