CenterPlot property example

Sub CenterPlot_Example()
' This example returns the CenterPlot property.
    'display the centered state all layouts
    MsgBox CenterPlotStatusToString(ThisDrawing.Layouts)
    ' Toggle centered state for Layout1
    ThisDrawing.Layouts("Layout1").PlotType = acDisplay
    ThisDrawing.Layouts("Layout1").CenterPlot = Not (ThisDrawing.Layouts("Layout1").CenterPlot)
    ThisDrawing.Regen acAllViewports
    'display the centered state all layouts
    MsgBox CenterPlotStatusToString(ThisDrawing.Layouts)
End Sub
Private Function CenterPlotStatusToString(allLayouts As AcadLayouts) As String
    Dim sBuf As String: sBuf = vbNullString
    Dim thisLayout As AcadLayout
    Dim sCenterStatus As String
    For Each thisLayout In allLayouts
        sCenterStatus = IIf(thisLayout.CenterPlot, " is ON.", " is OFF.")
        sBuf = sBuf & "The .CenterPlot status for  " & thisLayout.Name & sCenterStatus & vbCrLf
    Next
    CenterPlotStatusToString = sBuf
End Function