Dia 1 - CAD College

F- The Afdrukken Palette
One way to access the Layouts in a Database is to use the
LayoutDictionary.
In this routien,we open the LayoutDictionary get the current
Layout Name (EnergieDakStuklijst), and then we ask the
LayoutDictionary if it has an entry with an EntryName that is the
same as the current
layout’s name , it’s the different between BlockTableRecord
names(*Model_Space, *Paper_Space, *Paper_Space0) and
Layout Names (Model, Layout1, Layout2).
Its work perfectly I use it to switch to Model , EnergieDakStuklijst-
Layout , EnergieDakProject.
Dim doc = Autodesk.AutoCAD.ApplicationServices.Application.
DocumentManager.MdiActiveDocument
Dim myDB As Database =
HostApplicationServices.WorkingDatabase
Using myTrans As Transaction =
myDB.TransactionManager.StartTransaction
Using doc.LockDocument()
Dim myBlockTable As BlockTable =
myDB.BlockTableId.GetObject(OpenMode.ForWrite)
For Each myBTRid As ObjectId In myBlockTable
Dim myDictionary As DBDictionary =
myDB.LayoutDictionaryId.GetObject(OpenMode.ForRead)
Dim EnergieDakStuklijst As String =
LayoutManager.Current.CurrentLayout
If myDictionary.Contains(EnergieDakStuklijst) Then
Try
Dim myLayoutID As ObjectId =
myDictionary(EnergieDakStuklijst)
Dim myLayout As Layout =
myLayoutID.GetObject(OpenMode.ForRead)
Dim myBTR As BlockTableRecord =
myLayout.BlockTableRecordId.GetObject(OpenMode.ForWrite)
LayoutManager.Current.CurrentLayout =
"EnergieDakStuklijst"
Exit For
Catch ex As Exception
End Try
End If
Next
myTrans.Commit()
DocumentManager.MdiActiveDocument.Editor.Regen()
End Using
End Using
16/12/2010 EDCAD1.0 HBO-Traject 2010 56