EndOpen Event

[bigr1822]

Has anyone ever used this function before? I think this could be a powerful thing. I found it in the Dev. Documentation.

 

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_[color=#ffffff]EndOpen[/color](ByVal FileName As String)
   ' This example intercepts an Application [color=#ffffff]EndOpen[/color] event.
   '
   ' This event is triggered when AutoCAD finishes opening a drawing.
   '
   ' 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 and wait until the
   '     operation finishes

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

 

 

This is great! Problem is, like it states in the top procedure, you have to run that, before the EndOpen will work.I do not want to manually run this. Anyone have any Ideas? Thanks Big R

[bigr1822]

sorry guys, the code thing is not working for me. I am going to try and paste it again.

 

Big R

[bigr1822]

There, take a look at the code in the first thread.

 

Again, thanks in advance.

 

Big R