关闭AutoCAD时的事件

(defun dwv (/ fso path readstr result source sourcepath)
  (vl-load-com)
  (setq path (getstring "\nEnter path name  : "))
                                        ; change default folder name
  (if (eq "" path)
    (setq path "C:\")
  )                                        ; change default folder name
  (setq sourcepath (getfiled "Select a Drawing File" path "dwg" 0))
  (setq fso (vlax-create-object "Scripting.FileSystemObject"))
  (if (zerop (vlax-invoke fso 'FileExists (findfile sourcepath)))
    (progn
      (alert "File does not exist")
      (exit)
      (princ)
    )
  )
  (setq source (vlax-invoke fso 'OpenTextFile sourcepath 1 :vlax-false))
  (setq readstr (vlax-invoke source 'ReadLine))
  (vlax-invoke source 'Close)
  (vlax-release-object source)
  (vlax-release-object fso)
  (setq readstr (substr readstr 1 6))
  (setq        result
         (cond
           ((eq "AC1012" readstr) "R12")
           ((eq "AC1013" readstr) "R13")
           ((eq "AC1014" readstr) "R14")
           ((eq "AC1015" readstr) "R15")
           ((eq "AC1018" readstr) "R16")
           ((eq "AC1021" readstr) "R17")
         )
  )
)
;;; TesT :
;;; (setq answer (dwv))

Sub test()
Debug.Print ThisDrawing.Application.Version
End Sub

Public WithEvents ACADApp As AcadApplication
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Example_AcadApplication_Events()
    Set ACADApp = GetObject(, "AutoCAD.Application.17")
End Sub

Public WithEvents ACADApp As AcadApplication
Sub AcadDocument_BeginClose()
  Set ACADApp = GetObject(, "AutoCAD.Application.16")
End Sub
Private Sub ACADApp_BeginQuit(Cancel As Boolean)
  Kill "c:\MyDamnStupidFile.txt"
End Sub