Using Programming Languages other than VBA

Public WithEvents ACADApp As AcadApplication	' Use with Application Event Examples

Sub Example_AcadApplication_Events()
	' This example intializes the public variable (ACADApp) which will be used
	' to intercept AcadApplication Events
	'
	' The VBA WithEvents statement makes it possible to intercept an generic object
	' with the events associated with that object.
	'
	' Before you will be able to trigger any of the AcadApplication events,
	' you will first need to run this procedure.

	' We could get the application from the ThisDocument object, but that would
	' require having a drawing open, so we grab it from the system.
	Set ACADApp = GetObject(, "AutoCAD.Application.16")
End Sub

Private Sub ACADApp_EndModal()
	' This example intercepts an Application EndModal event.  We use a Beep instead of
	' a message box to notify the user when the event is triggered, since a message box
	' is a modal entity and would cause continuous BeginModal/EndModal events to be triggered.
	'
	' This event is triggered when AutoCAD finishes displaying a modal dialog.
	'
	' To trigger this example event:
	'	 1) Make sure to run the example that initializes
	'	 the public variable (named ACADApp) linked to this event.
	'
	'	 2) Use AutoCAD to begin a modal dialog operation and then dismiss the dialog.
	'	 For example, use AutoCAD to display a modal file dialog by using File/New and then
	'	 close the dialog by selecting Cancel

	Beep  ' The modal dialog was just closed!

End Sub

 





Internal Server Error
The server encountered an internal error or
misconfiguration and was unable to complete
your request.
Please contact the server administrator at 
 webmaster@entercad.forsenergy.ru to inform them of the time this error occurred,
 and the actions you performed just before this error.
More information about this error may be available
in the server error log.
Additionally, a 500 Internal Server Error
error was encountered while trying to use an ErrorDocument to handle the request.