Ожидание окончания выполнения LISP-команды.

Для синхронного выполнения: acedEvaluateLisp

Для AutoCAD 2007,2008:

int __cdecl acedEvaluateLisp(wchar_t const *,struct resbuf * &)

Для AutoCAD 2005,2006:

int __cdecl acedEvaluateLisp(char const *,struct resbuf * &)

Во втором параметре возвращается вычисленное значение в виде связанного списка resbuf.

> Александр Ривилис
Спасибо, буду пробовать.

> Александр Ривилис
Это относится к

acedEvaluateLisp

Доброго времени суток!
Снова обращаюсь к Вам. Казалось бы куда уже проще, ан нет, никак из этих 3-х строчек не вылезу.
Вот LISP-функция, которую я вызываю:

(defun myfunc ( / myfunret)
    
    (command "_line" '(0 0) '(100 100) "")
    (command "_zoom" "_e")
    
    (princ (strcat "\nГотово!!!\t" (rtos  (getvar "CDATE")) "\n"))
    (setq myfunret 123)
)
 (vl-acad-defun 'myfunc)

А вот 2 ARX-функции, одна как LISP, другая как AutoCAD-функция:

// - ArxTest._MyArx command (do not rename)
static void ArxTest_MyArx(void)
    {
        // Add your code for command ArxTest._MyArx here
      ACHAR buf[1024];
      int rc = acedGetString(TRUE,_T("\nВведите lisp-выражение: ") ,buf);
      resbuf *rb = NULL;
      acedEvaluateLisp(buf,rb);
    }
// ----- ads_myf symbol (do not rename)
    static int ads_myf(void)
    {
        //----- Remove the following line if you do not expect any argument for this ADS function
        //struct resbuf *pArgs =acedGetArgs () ;
        // TODO: add your code here        
        resbuf *rb = NULL;
        acedEvaluateLisp(_T("(myfunc)\n"),rb);
        // TODO: Replace the following line by your returned value if any
        acedRetVoid () ;
        return (RSRSLT) ;
    }

Но в обоих функция на строке

 acedEvaluateLisp(хх, rb);

AutoCAD виснет и помогает только отключение процесса и новый старт AutoCAD.
Что я делаю не правильно?

> Александр Ривилис
Пробовал, не помогает :(
Пробовал и c:myfunc в различных комбинациях, тоже самое.
Вот что я заметил. Если не использовать (command ...) в myfunc, то функция обрабатывается.
Может есть по этому поводу какие-нибудь идеи?

> Александр Ривилис
Доброго дня!
Хочу поделиться своими исследованиями по наболевшей теме и заодно задать еще вопрос.
Благодаря твоему совету, использовать acedInvoke, смог запустить LISP-функции с (command ...).
НО!!! Это было только начало, рано начал радоваться :(
Если использовать acedInvoke из Немодального окна (с модальным не пробовал), то LISP-функция прорабатывает до
(command ...),
а дальше
Fehler: invalid AutoCAD command: nil
Есть ли еще варианты использования acedInvoke (или других функций) из Немодального окна?
Старые условия (Ожидание окончания выполнения LISP-команды), остаются в силе!
Спасибо.

> Александр Ривилис
Очередное спасибо за ответ!
И 1000 извинений за назойливость :)
А какие еще есть варианты для вызова LISP-функций с (command ...) из окон?
Я имею ввиду внутренние окна AutoCAD.
Жду с нетерпением ответа.

> Александр Ривилис
Благодарю, за оперативный ответ!

Увы не получится, на это есть 2 причины:
1. Честно говоря страшно переписывать, т.к. мой уровень владения C/C++ нулевой, пишу в основном на LISP, а C++, как хобби. Понятно, все приходит с опытом, но все равно стремно.
2. Это огромное количество LISP-кода, причем чужого.
В крайнем случае оставлю как есть внешнее приложение, с доработкой для новой версии. Хотя хотелось сделать красиво!
Спасибо еще раз!!!