Does anyone have any idea why this doesn't work? The important/significant lines are in a small for . . . each loop towards the end.
Code:
Private Sub subCopyPageSetupFromFile()
Dim strDrvPathFileExt As String
Dim objSrcDB As New Database
Dim objTransactionManager As Autodesk.AutoCAD.DatabaseServices.TransactionManager
Dim objTransaction As Transaction
Dim objSrcPlotSettingsDictionary As DBDictionary
Dim objDictionaryEntry As DictionaryEntry
Dim objPlotSettings As PlotSettings
strDrvPathFileExt = "C:\ProgramData\Autodesk\ApplicationPlugins\Acad.dwt"
objSrcDB.ReadDwgFile(strDrvPathFileExt, FileOpenMode.OpenForReadAndReadShare, True, "")
objTransactionManager = objSrcDB.TransactionManager
objTransaction = objTransactionManager.StartTransaction
objSrcPlotSettingsDictionary = objTransaction.GetObject(objSrcDB.PlotSettingsDictionaryId, OpenMode.ForRead)
For Each objDictionaryEntry In objSrcPlotSettingsDictionary
objPlotSettings = objTransaction.GetObject(objDictionaryEntry.Value, OpenMode.ForRead)
MsgBox(objDictionaryEntry.Key.ToString.ToUpper)
Next
objTransaction.Dispose()
objTransactionManager.Dispose()
End Sub