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

    ' Используйте переменную "FirstLine", чтобы помочь пользователю определять, какое выражение LISP выполняется
    MsgBox "Выражение LISP только что запущено. Первая линия выражения: " & FirstLine

End Sub