CenterPlot Example

Using Programming Languages other than VBA

Sub Example_CenterPlot()
	' This example will access the Layouts collection for the current drawing
	' and display whether the plot for this layout is to be centered on the media.
	' It will then toggle the state of CenterPlot for "Layout1" and re-display the
	' CenterPlot state for each Layout.

	Dim Layouts As AcadLayouts, Layout As ACADLayout
	Dim msg As String
	Dim IsCentered As String

	' Get layouts collection from document object
	Set Layouts = ThisDrawing.Layouts

	' Display current layout information
	GoSub DISPLAY

	' Toggle centered state for Layout1
	Layouts("Layout1").PlotType = acDisplay
	Layouts("Layout1").CenterPlot = Not (Layouts("Layout1").CenterPlot)
	ThisDrawing.Regen acAllViewports

	' Display new layout information
	GoSub DISPLAY

	Exit Sub

DISPLAY:
	msg = ""	' Clear message

	' Determine whether this layout is centered on the media during a plot
	For Each Layout In Layouts
		IsCentered = IIf(Layout.CenterPlot, " are centered ", " are not centered ")
	
		' Format for display
		msg = msg & "Objects for " & Layout.name & IsCentered & "on the media during a plot." & vbCrLf
	Next

	' Display layout information
	MsgBox msg

	Return
End Sub





   Comments?