Private Sub AcadDocument_EndLisp()
    ' Этот пример перехватывает событие BeginLisp.
    '
    ' Это событие вызвано, когда рисунок заканчивает выполнение выражения LISP.
    '
    ' Чтобы вызвать это событие: Запустите выполнение выражения LISP
    ' и ждите его окончания

    MsgBox "Выражение LISP только что закончило выполнение! "

End Sub