Our drawings are created with layouts called "P1", "P2", "P3"... What I want to do is add or remove a layout entered using a form. What I have is code that will delete a specified layout, and some code that will re-name the layouts prefixed with "X"s. I rename with a prefix "X" so that if a new page 4 (for example) is added, the current page 4 will not hinder the rename process because of "same name" issues.
Here is the rename code:
Sub renamePagesWithX()
' Changes all the page numbers with a suffix "X", so the code can re-number
' the pages without running into page name duplicates
Dim myDWG As Autodesk.AutoCAD.ApplicationServices.Document
Dim myDB As Autodesk.AutoCAD.DatabaseServices.Database
Dim myTransManForXRename As Autodesk.AutoCAD.DatabaseServices.TransactionManager
Dim myTransForXRename As Transaction
myDWG = DocumentManager.MdiActiveDocument
myDB = myDWG.Database
myTransManForXRename = myDWG.TransactionManager
myTransForXRename = myTransManForXRename.StartTransaction
Dim myBT As BlockTable
Dim myBTR As BlockTableRecord
Dim myBTE As SymbolTableEnumerator
myBT = myDB.BlockTableId.GetObject(OpenMode.ForWrite)
myBTE = myBT.GetEnumerator
While myBTE.MoveNext
myBTR = myBTE.Current.GetObject(OpenMode.ForWrite)
If myBTR.IsLayout Then
If Not myBTR.Name = "*Model_Space" Then
Dim LayoutMgrX As LayoutManager = LayoutManager.Current
Dim layoutObject As Layout = myTransForXRename.GetObject(myBTR.LayoutId, OpenMode.ForWrite)
' Get the layout's name
Dim layoutName As String = layoutObject.LayoutName
Dim newLayoutName As String
newLayoutName = "X" & layoutName
LayoutMgrX.RenameLayout(layoutName, newLayoutName)
myDWG.Editor.Regen()
End If
End If
End While
myTransForXRename.Commit()
myTransForXRename.Dispose()
myTransManForXRename.Dispose()
End Sub Now I thought I could use similar code to rename the layouts per the tab order, but it just crashes. Here is the code:
Public Sub renamePagesUsingTabOrder()
' Now that the pages have been prefixed with an "X", the code can now change the tabs to be named
' per their tabOrder number
Dim myDWG As Autodesk.AutoCAD.ApplicationServices.Document
Dim myDB As Autodesk.AutoCAD.DatabaseServices.Database
Dim myTransManForTabOrder As Autodesk.AutoCAD.DatabaseServices.TransactionManager
Dim myTransForTabOrder As Transaction
myDWG = DocumentManager.MdiActiveDocument
myDB = myDWG.Database
myTransManForTabOrder = myDWG.TransactionManager
myTransForTabOrder = myTransManForTabOrder.StartTransaction
Dim myBT As BlockTable
Dim myBTR As BlockTableRecord
Dim myBTE As SymbolTableEnumerator
myBT = myDB.BlockTableId.GetObject(OpenMode.ForWrite)
myBTE = myBT.GetEnumerator
' Go through the pages again and renumber them with the correct tab names
While myBTE.MoveNext
myBTR = myBTE.Current.GetObject(OpenMode.ForWrite)
If myBTR.IsLayout Then
If Not myBTR.Name = "*Model_Space" Then
Dim LayoutMgrP As LayoutManager = LayoutManager.Current
Dim layoutObject As Layout = myTransForTabOrder.GetObject(myBTR.LayoutId, OpenMode.ForWrite)
' Get the layout's name
Dim layoutName As String = layoutObject.TabOrder.ToString
Dim newLayoutName As String
newLayoutName = "P" & layoutName
LayoutMgrP.RenameLayout(layoutName, newLayoutName)
End If
End If
End While
myDWG.Editor.Regen()
myTransForTabOrder.Commit()
myTransForTabOrder.Dispose()
myTransManForTabOrder.Dispose()
End SubI'm sure you're going to see the issue right away, but I've looked at so many different articles and web pages that it's making my head ache. If you can help me out, I'd really appreciate it.
Thanks,
Mark
