[Ax3]

Всем привет.
Есть ли в VBA функция вызова лисп-функции?

Я определил в LISP для чертежа функцию (defun f1 () ...).
Когда использую в VBA метод ThisDrawing.SendCommand ("(f1)" & vbCr), следующая строка VBA-кода выполняется сразу же после посылки указанной команды в командную строку акада, не дожидаясь результатов выполнения лисп-функции (f1).
Что делать?

Всем успехов в делах!

[C1]

SendCommand работает синхронно (если нет запросов - точки например).
Поэтому:
ThisDrawing.SendCommand ("(f1)" & vbCr)
Do
<поиск некоего результата f1; если он найден Exit Do>
<Exit Do при ошибке или пр.>
Loop
...

[Ax3]

Благодарю, уважаемый!

[Александр Ривилис]

Есть еще один вариант вызова AutoLisp из VBA: погугли на предмет VLAX.CLS

[Александр Бауск]

http://autolisp-exchange.com/forum/showthread.php?t=63
Я вас люблю!

[Ax3]

Спасибо, пока не разобрался, но интересно.
На данном этапе я делаю обмен следующим образом:
VBA:
1. Запись переменных VBA -> в реестр/чертеж
2. Form1.Hide
3. ThisDrawing.SendCommand("(function)" + vbCr)
LISP:
4. (vl-vbarun "<модуль, содержащий код Unload Form1>")
5. ...<требуемые действия>
6. Запись результатов LISP -> в реестр/чертеж
7. (vl-vbarun "<модуль, содержащий код Form1.Show 0>")
снова VBA:
8. Ну а в Form1_Initialize уже определяется, откуда она была вызвана и что в связи с этим делать.

За ссылку спасибо, это для меня новое нечто, обязательно поковыряю в этом направлении.