LayoutSwitched Example

Using Programming Languages other than VBA

Private Sub AcadDocument_LayoutSwitched(ByVal LayoutName As String)
	' This example intercepts a drawing LayoutSwitched event.
	'
	' This event is triggered when the user switches to a different
	' drawing layout view.
	'
	' To trigger this example event: Open a drawing and change its layout view
	'
	' For example: Switch the drawing from Model view to Layout1 view

	' Use the "LayoutName" variable to determine the which layout view we changed to
	MsgBox "The drawing layout was just changed to: " & LayoutName
End Sub

 

   Comments?