BeginSave Example

Using Programming Languages other than VBA

Private Sub AcadDocument_BeginSave(ByVal FileName As String)
	' This example intercepts a drawing BeginSave event.
	'
	' This event is triggered when a drawing receives a request to be saved.
	'
	' To trigger this example event: Save an open drawing

	' Use the "FileName" variable to determine where the drawing file is being saved
	MsgBox "A drawing is about to be saved to: " & FileName
End Sub

 

   Comments?