SaveEventHandler not working
Since the class implement IExtensionApplication, so whenever the code is loaded, AutoCAD will call
Initialize()
However, if any un-handled exception is thrown in Initialize(), the DLL loading would failed silently. So, it is important to use Try...Catch in the Initialze() for the code that does serious work.
But in your case, it is straightforward: you should remove the "Throw New NotImplementedException", which is added by Visual Studio automatically, and leave the Initialize() empty. If you do not plan to do any initializing work, you could have made the class not implement IExtensionApplication. It looks like, you may want to study a bit of more on what/why to use/implement IExtensionApplication.
Hi,
Try removing:
Private Sub IExtensionApplication_Initialize() Implements IExtensionApplication.Initialize
Throw New NotImplementedException()
End Sub
Private Sub IExtensionApplication_Terminate() Implements IExtensionApplication.Terminate
Throw New NotImplementedException()
End Sub
When I remove those lines of code I get the following error which prohibits me from building the solution.
Your code should look like this:
Imports System.Windows.Controls
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Runtime
Namespace BeginSaveHandlingSample
Public Class SaveEventHandler
Implements IExtensionApplication
Public Sub Initialize() Implements IExtensionApplication.Initialize
Dim docs = Application.DocumentManager
AddHandler docs.DocumentCreated, AddressOf OnDocumentCreated
For Each doc As Document In docs
AddHandler doc.Database.BeginSave, AddressOf OnBeginSave
Next
End Sub
Private Sub OnDocumentCreated(ByVal sender As Object, ByVal e As DocumentCollectionEventArgs)
AddHandler e.Document.Database.BeginSave, AddressOf OnBeginSave
End Sub
Private Sub OnBeginSave(ByVal sender As Object, ByVal e As DatabaseIOEventArgs)
Application.ShowAlertDialog("It worked!")
End Sub
Public Sub Terminate() Implements IExtensionApplication.Terminate
End Sub
End Class
End Namespace
@WPerciful wrote:
I tried the code that you sent but when you save the drawing it post the message.
Which message?
The event is raised after the save dialog box is closed with OK.
Try something like this (not sure about my VB).
Public Class Initialization
Implements IExtensionApplication
Public Sub Initialize() Implements IExtensionApplication.Initialize
Dim docs = Application.DocumentManager
AddHandler docs.DocumentCreated, AddressOf OnDocumentCreated
For Each doc As Document In docs
AddHandler doc.Database.BeginSave, AddressOf OnBeginSave
Next
End Sub
Public Sub Terminate() Implements IExtensionApplication.Terminate
End Sub
Private Sub OnDocumentCreated(ByVal sender As Object, ByVal e As DocumentCollectionEventArgs)
AddHandler e.Document.Database.BeginSave, AddressOf OnBeginSave
End Sub
Private Sub OnBeginSave(ByVal sender As Object, ByVal e As DatabaseIOEventArgs)
Dim db As Database = CType(sender, Database)
DoItBeforeSave(db)
End Sub
Private Shared Sub DoItBeforeSave(ByVal db As Database)
Using tr = New OpenCloseTransaction()
Dim circle As Circle = New Circle(Point3d.Origin, Vector3d.XAxis, 10.0)
circle.ColorIndex = 30
Dim modelSpace As BlockTableRecord = CType(tr.GetObject(SymbolUtilityServices.GetBlockModelSpaceId(db), OpenMode.ForWrite), BlockTableRecord)
modelSpace.AppendEntity(circle)
tr.AddNewlyCreatedDBObject(circle, True)
tr.Commit()
End Using
End Sub
End ClassDid you try to close the file after saving it and re-open it?
Or, force the newly created circle drawing.
Private Shared Sub DoItBeforeSave(ByVal db As Database)
Using tr = New OpenCloseTransaction()
Dim circle As New Circle(Point3d.Origin, Vector3d.ZAxis, 10.0)
circle.ColorIndex = 30
Dim modelSpace As BlockTableRecord = CType(tr.GetObject(SymbolUtilityServices.GetBlockModelSpaceId(db), OpenMode.ForWrite), BlockTableRecord)
modelSpace.AppendEntity(circle)
tr.AddNewlyCreatedDBObject(circle, True)
circle.Draw()
tr.Commit()
End Using
End SubI tried with a VB project in Visual Studio (you can brag about getting me to write VB).
It works as expected.
Here's the code:
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.Runtime
Public Class Initialization
Implements IExtensionApplication
Public Sub Initialize() Implements IExtensionApplication.Initialize
Dim docs = Application.DocumentManager
AddHandler docs.DocumentCreated, AddressOf OnDocumentCreated
For Each doc As Document In docs
AddHandler doc.Database.BeginSave, AddressOf OnBeginSave
Next
End Sub
Public Sub Terminate() Implements IExtensionApplication.Terminate
End Sub
Private Sub OnDocumentCreated(sender As Object, e As DocumentCollectionEventArgs)
AddHandler e.Document.Database.BeginSave, AddressOf OnBeginSave
End Sub
Private Sub OnBeginSave(sender As Object, e As DatabaseIOEventArgs)
Dim db As Database = CType(sender, Database)
DoItBeforeSave(db)
End Sub
Private Shared Sub DoItBeforeSave(db As Database)
Using tr = New OpenCloseTransaction()
Dim circle As New Circle() With {
.Center = Point3d.Origin,
.Radius = 10.0,
.ColorIndex = 30
}
Dim modelSpace As BlockTableRecord = CType(tr.GetObject(
SymbolUtilityServices.GetBlockModelSpaceId(db), OpenMode.ForWrite), BlockTableRecord)
modelSpace.AppendEntity(circle)
tr.AddNewlyCreatedDBObject(circle, True)
circle.Draw()
tr.Commit()
End Using
End Sub
End Class