    <CommandMethod("test")> _
    Public Shared Sub ImportPlotSettingsModel()
        Dim sTemplatePath As String = "C:\PageSetups_onC.dwg"
        Dim sPageSetupName As String = "11x17_9Z_model"

        Dim file As Document = Application.DocumentManager.MdiActiveDocument
        Using db As Database = Application.DocumentManager.MdiActiveDocument.Database
            Using docLock As DocumentLock = Application.DocumentManager.MdiActiveDocument.LockDocument


                Using sourceDb As Database = New Database(False, True)
                    sourceDb.ReadDwgFile(sTemplatePath, FileOpenMode.OpenForReadAndAllShare, True, "")
                    Using tr As Transaction = db.TransactionManager.StartTransaction
                        Using sourceTr As Transaction = sourceDb.TransactionManager.StartTransaction
                            Dim sourcePlotDic As DBDictionary = DirectCast(sourceDb.PlotSettingsDictionaryId.GetObject(OpenMode.ForRead), DBDictionary)
                            If sourcePlotDic.Contains(sPageSetupName) Then
                                Dim objId As ObjectId = sourcePlotDic.GetAt(sPageSetupName)
                                Dim pl As PlotSettings = DirectCast(objId.GetObject(OpenMode.ForRead), PlotSettings)
                                Dim cpl As PlotSettings = New PlotSettings(True)

                                cpl.CopyFrom(pl)
                                cpl.AddToPlotSettingsDictionary(db)

                                Dim bt As BlockTable = DirectCast(db.BlockTableId.GetObject(OpenMode.ForRead), BlockTable)
                                Dim btr As BlockTableRecord = DirectCast(bt(BlockTableRecord.ModelSpace).GetObject(OpenMode.ForRead), BlockTableRecord)

                                Dim lyobjId As ObjectId = (btr.LayoutId.GetObject(OpenMode.ForRead).ObjectId)
                                Dim lytps As PlotSettings = DirectCast(lyobjId.GetObject(OpenMode.ForWrite), PlotSettings)
                                lytps.CopyFrom(cpl)

                                tr.Commit()
                            End If


                        End Using
                    End Using
                End Using
            End Using
            db.SaveAs(file.Name, True, DwgVersion.Current, db.SecurityParameters)
        End Using

    End Sub