Topic: Get Modelspace or Paperspace (Plotting)

[GumbyCAD]

I think is might be a dumb question... But Ill ask it anyway.
I'm sure it an easy one......

Code: [Select]

      '' Reference the Layout Manager
      Dim acLayoutMgr As LayoutManager
      acLayoutMgr = LayoutManager.Current
 
      '' Get the current layout and output its name in the Command Line window
      Dim acLayout As Layout
      acLayout = acTrans.GetObject(acLayoutMgr.GetLayoutId(acLayoutMgr.CurrentLayout), _
                                   OpenMode.ForRead)

So the Layout Manager "acLayoutMgr.CurrentLayout" get the current space either Model Space or Current Layout.

But what if I wanted to Specifically get ModelSpace or Layout1 ........
In the context of Plotting.

Reference Link http://docs.autodesk.com/ACD/2010/ENU/AutoCAD%20.NET%20Developer's%20Guide/index.html?url=WS1a9193826455f5ff2566ffd511ff6f8c7ca-33b0.htm,topicNumber=d0e50852

[GumbyCAD]

I guess I could do.... but is this ideal during plotting?

Code: [Select]

      '' Switch to the previous Paper space layout
      Application.SetSystemVariable("TILEMODE", 0)
      acDoc.Editor.SwitchToPaperSpace()

 

Code: [Select]

      '' Activate model space in the viewport
      acDoc.Editor.SwitchToModelSpace()


[GumbyCAD]

Nope that won't work.

eInvalidInput

[GumbyCAD]

Bingo Solved it.

Code: [Select]

                    Dim acLayout As Layout = Nothing

                    Select Case ModelSpaceOnly
                        Case True
                            acLayout = CType(acTrans.GetObject(acBlkTblRec_MS.LayoutId, OpenMode.ForRead), Layout)
                        Case False
                            acLayout = CType(acTrans.GetObject(acBlkTblRec_PS.LayoutId, OpenMode.ForRead), Layout)
                    End Select

                    Dim acPlInfo As PlotInfo = New PlotInfo()

                    Dim acPlSet As PlotSettings = New PlotSettings(acLayout.ModelType)
                    LayoutManager.Current.CurrentLayout = acLayout.LayoutName
                    acPlInfo.Layout = acLayout.ObjectId
                    acPlSet.CopyFrom(acLayout)