topic Re: SaveEventHandler not working in .NET Forum

SaveEventHandler not working

WPerciful — Tue, 12 Dec 2023 12:36:01 GMT

This is my fist time written an event handler. While my code has no errors, it doesn't work. Does anyone have any idea what I'm doing wrong?

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() 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() End Sub Private Sub IExtensionApplication_Initialize() Implements IExtensionApplication.Initialize Throw New NotImplementedException() End Sub Private Sub IExtensionApplication_Terminate() Implements IExtensionApplication.Terminate Throw New NotImplementedException() End Sub End Class End Namespace

Re: SaveEventHandler not working

norman.yuan — Tue, 12 Dec 2023 13:15:31 GMT

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.

Re: SaveEventHandler not working

_gile — Tue, 12 Dec 2023 13:23:54 GMT

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

Re: SaveEventHandler not working

WPerciful — Tue, 12 Dec 2023 15:13:48 GMT

When I remove those lines of code I get the following error which prohibits me from building the solution.

Re: SaveEventHandler not working

_gile — Tue, 12 Dec 2023 15:31:16 GMT

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

Re: SaveEventHandler not working

WPerciful — Tue, 12 Dec 2023 16:03:05 GMT

I tried the code that you sent but when you save the drawing it post the message.

Re: SaveEventHandler not working

_gile — Tue, 12 Dec 2023 16:05:51 GMT

@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.

Re: SaveEventHandler not working

WPerciful — Tue, 12 Dec 2023 16:11:52 GMT

I'm trying to get this message when you perform the save. It's only for testing right now but once it works I'm going to have it call a sub to do some clean up.

Private Sub OnBeginSave(ByVal sender As Object, ByVal e As DatabaseIOEventArgs) Application.ShowAlertDialog("It worked!") End Sub

Re: SaveEventHandler not working

_gile — Tue, 12 Dec 2023 16:30:33 GMT

(view in My Videos)

Re: SaveEventHandler not working

WPerciful — Tue, 12 Dec 2023 16:59:53 GMT

When you save nothing happens other than the save itself.

Re: SaveEventHandler not working

_gile — Tue, 12 Dec 2023 17:35:43 GMT

The saving process can only be started after the user has clicked OK (if he clicks Cancel, the saving process will not start).

Re: SaveEventHandler not working

_gile — Tue, 12 Dec 2023 19:24:39 GMT

If you replace:

Application.ShowAlertDialog("It worked!")

by any process which modify the database, it will occur after the save file dialog closed and before the save process itself begins.

Re: SaveEventHandler not working

WPerciful — Tue, 12 Dec 2023 20:16:44 GMT

When I test the same code it doesn't do that. What could I be doing differently?

Re: SaveEventHandler not working

_gile — Tue, 12 Dec 2023 21:45:53 GMT

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 Class

Re: SaveEventHandler not working

WPerciful — Wed, 13 Dec 2023 12:47:14 GMT

When I test what you shared nothing happens. Could it be a setting or something?

Imports System.Windows.Controls Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.Geometry Imports Autodesk.AutoCAD.Runtime Namespace BeginSaveHandlingSample 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 Class End Namespace

Re: SaveEventHandler not working

_gile — Wed, 13 Dec 2023 14:06:39 GMT

Did 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 Sub

Re: SaveEventHandler not working

_gile — Wed, 13 Dec 2023 14:32:31 GMT

I 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

Re: SaveEventHandler not working

WPerciful — Wed, 13 Dec 2023 14:39:10 GMT

I've implemented the new code, opened a new file and saved it. Closed the file and ran save again. Nothing happens. How do I force it?

Imports System.Windows.Controls Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.Geometry Imports Autodesk.AutoCAD.Runtime Namespace BeginSaveHandlingSample 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 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 Sub End Class End Namespace

Re: SaveEventHandler not working

WPerciful — Wed, 13 Dec 2023 15:42:42 GMT

@_gile wrote:
" (you can brag about getting me to write VB)."

You're a gentlemen and a scholar and I can't thank you enough for the help! I am indeed already bragging about it 🙂

Re: SaveEventHandler not working

_gile — Wed, 13 Dec 2023 15:45:07 GMT

After you save the file, you should see an orange circle of radius equal to 10 and center at origin (0, 0).

(view in My Videos)