Вызов функции LISP из немодального блока диалога

Т. е. такое впечатление, что ads_queueexpr запихивает команду (myfunc) в нейкий буфер, а ESC выталкивает ее оттуда;)
Кто-нибудь обьяcнит происходящее, или как можно по-другому вызвать функцию LISP.

Не работает, пробовал и пробел, и символ конца строки.

Третий способ. Использовать объект VL.Application. Я его применял в коде Delphi, но вполне можно использовать и в VC.
Expression - LISP строка
Все остальные переменные OleVariant в Delphi.
VLispApp:=AcadApplication.GetInterfaceObject('VL.Application.16');
VLispDocument:=VLispApp.ActiveDocument;
VLispFunctions:=VLispDocument.Functions;
VLispEval:=VLispFunctions.Item['Eval'];
VLispRead:=VLispFunctions.Item['Read'];
VLispList:=VLispRead.FunCall(String(Expression));
VLispResult:=VLispEval.FunCall(VLispList);
Результат использования могу продемонстрировать в собственном приложении. См. ATable for AutoCAD http://www.alx.ncn.ru Когда вводите формулу для вычисления в ячейке, то она преобразуется в LISP и передается в движок описанный выше.

> Alxd
Очень интересный подход - обратиться к VL. Решает, например, проблему с эхом от SendCommand в командной строке.
К сожалению в таком виде не все выражения, переданные через Expression выполняются корректно. Закономерности в сбоях пока уловить не удалось.

> RAN
Обижаешь

На самом деле есть "непонятная нестабильность". В совершенно непонятных случаях может генерироваться исключение. Delphi его обрабатывает нормально, но сам факт настораживает.
По сути дела, постоянно вызываются одни и теже стабильно вычисляемые функции. Но в какой-то неуловимый момент, скажем после 300-го выполнения, вдруг исключение! Можно и наплевать на него, просто настораживает.
Да! Еще VL вроде не поддерживает вызов интерактивных функций типа getpoint и т.п.

Я обнаружил еще одну особенность, но не знаю, относится ли она к VL.
Есть функция, написанная на ObjectARX и использующая ssget в коде. Если ее вызвать из VL, который находится в цикле запроса действий пользователя:
while (x)
{
  initget...
  getkword...
  VLExec(функция с ssget)
}
то после ее использования не срабатывают ключевые слова! Только ESC помогает выйти! Чушь какая-то. Пока ломаю голову, как обойти этот баг.

Очень похоже на то, что бродяги-программисты при реализации VL.Application проверяли только работу на элементарных функциях. Так сказать "продемонстрировали концепцию" и успокоились.

Еще один вариант вызова lisp-функции из arx-приложения (я когда-то постил его в autodesk.autocad.objectarx). Я не эспериментировал с возможностью использования этого варианта в немодальных окнах, но чем черт не шутит...

You can directly call lisp function from ObjectARX application using
acedInvoke(...).
See example:
=========LISP code start==============
(defun myfun()
  (setq myfunret 2)
)
;
; If you want to be able to invoke this function from an external ObjectARX
; application, you can use vl-acad-defun to make the function accessible.
;
(vl-acad-defun 'myfun)
=========LISP code end===============
=========C++ code start==============
int call_lisp_function(void)
{
    resbuf *rb_in = acutBuildList(RTSTR,"myfun",RTNONE);
    resbuf *rb_out = NULL;
    int rc = acedInvoke(rb_in,&rb_out);
    acutRelRb(rb_in); acutRelRb(rb_out);
    acedGetSym("myfunret",&rb_out);
    return (RSRSLT) ;
}
=========C++ code end===============

Функция acedEvaluateLisp() конечно интересная, но что-то уж очень медленно работает.