BeginOpen Event - need an event that will execute whenever a drawing is opened

[jack.ryan]

I looked up the BeginOpen Event with Autocad VBA Help I got the code displayed below. Problem is the Example_AcadApplication_Events sub has to be executed before it will work. I need an event that will execute whenever a drawing is opened (even if ACAD is opened by double clicking a .dwg file.

Public WithEvents acadApp As AcadApplication

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_BeginOpen(FileName As String)
    ' This example intercepts an Application BeginOpen event.
    '
    ' This event is triggered when a drawing is opened by AutoCAD.
    '
    ' 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 open an existing drawing

    ' Use the "FileName" variable to determine which drawing file is being opened
    MsgBox "A drawing is about to be loaded from: " & FileName
End Sub

[Ed Jobe]

We've had some discussions here on that subject before. There were several options tossed around. But basically, if your code isn't running, you can't expect it to work. When you dc a file in Explorer, acad simply starts with the last profile that was run. At best, you can set up acad so that this code runs on all profiles at startup. Look into using acad.dvb.

[jack.ryan]

Okay I saw in another post where you recommended using acad.dvb and creating a public sub in a public module called AcadStartup.

This event fired when it should have but when it got to the line:
Set acadApp = GetObject(, "AutoCAD.Application.16")

I got an error ActiveX Component can't create Object.

[Ed Jobe]

You shouldn't need that. vba already declares an application object for you, AcadApplication. I also think you may have a misunderstanding on how to utilize events.
First, add a class module to your project. For this example, Name it MyEvents.cls
In the declarations section, add a variable "Public WithEvents oApp As AcadDocument"
Select the dropdown in the upper left and select the oApp object.
Then, in the drop down in the upper right, select the BeginOpen event to create a signature for the event.
Now add your MsgBox line.
Now in the AcadStartup sub, add this line: "Set MyEvents.oApp = AcadApplication"

This will create an instance of your events class and set its oDoc object to the current application. This will link the apps events to your event handlers.

[jack.ryan]

Sorry I'm not getting it. I'm just getting started with ACAD VBA but I've done a lot of VBA and VB in other places and I understand the working side of ACAD pretty good. I still don't think I'm a Guru or anything. And the VBA for AutoCAD is not what I'm used to.

Doing it my way my only problem was that I had to execute the Example_AcadApplication_Events sub before the BeginOpen Event would be recognized.

Just for grins though I tried it your way and after I created the MyEvents Module the BeginOpen event did not appear in the upper right pulldown.

Any chance you have some sample code (A .dvb perhaps)?

[Ed Jobe]

You have to scrap what you did and follow the steps I gave you in order for event handling to work properly. Attached is acad.dvb.

I forgot to mention that you have to select the oApp object in the left dropdown first, then the right dropdown will list its methods. I edited my earlier post.

[jack.ryan]

Many Thanks!!!

It works now.

One thing though. It did not execute on the first drawing I opened so I added a Class_Initialize Routine.

Also I found that at the Begin Open the drawing Database wasn't loaded yet so I changed it to an EndOpen.

It works great and it's got me past another roadblock.

[Ed Jobe]

Glad it worked for you.

[RICVBA]

@ jack ryan
Please, could you share your last dvb?
thank you

[paul676068]

I have followed these instructions, but I'm having trouble with assigning the AcadApplication object to the oApp class member. It just hangs up AutoCAD as it loads. I've progressively commented out code, and it's specifically the line where oApp is set. Any clues? AutoCDA hangs at "loading acvba.arx" which is where the acad.dvb code gets loaded, and the startup run.

Paul