[den001]

Здравствуйте, дорогие!
Решил тут извратиться и для запуска VBA-макроса создал одноименную LISP-комадну, есть у этого пути ряд преимуществ.
Вот в таком виде:

Код:

[Выделить все]

(defun c:NameMacros ()
  (command "vbarun" "NameMacros")
  (princ)
)

Все бы хорошо, НО:

при запуске макросов, где есть запрос на ввод ключевого слова, числа или еще чего-нить, он (запрос) при первом обращении отображается два раза. Оно, конечно, не смертельно, но как-то некрасиво. В LISP'е я, звиняйте, ни бум-бум, объясните, откуда берется такая неприятность?

[Maxim T]

Попробуйте системную переменную CMDECHO установить в 0. При вызове из меню этой цели служит "^P" (временно подавляет эхо-вывод команды).

[den001]

Maxim T
Спасибо за участие.

Проблема решается, если команду оформить таким манером:

Код:

[Выделить все]

(defun c:NameMacros ()
  (vla-runmacro (vlax-get-acad-object) "NameMacros")
  (princ)
)

Правда, почему первый вариант дает такой результат, все же интересно...

[den001]

Эгеэээй! Людиии! Ну помогите же лаптю!
Откуда берется такое явление?

Кстати,
если запускать, как

Код:

[Выделить все]

(vla-runmacro (vlax-get-acad-object) "NameMacros")

, то появляется возможность работать с предварительно выбранными объектами, но пропадает возможность работать с несколькими чертежами, а если запускать как

Код:

[Выделить все]

(command "vbarun" "NameMacros")

, то предварительный выбор (PickFirstSelectionSet) сбрасывается, и появляется вышеописанная беда. Первый запрос в коде, типа:

Код:

[Выделить все]

ThisDrawing.Utility.GetEntity Entry, basepnt, Chr(10) + "Выберите объект или [ПРиращение/Масштаб/Точность/Задать файл/" + kwd2 + kstr + "]: "

или

Код:

[Выделить все]

Scl = ThisDrawing.Utility.GetReal(Chr(10) + "Коэффициент сжатия <" + SclPrompt + ">: ")

вываливается два раза подряд.
В чем может быть дело?

[Кулик Алексей aka kpblc]

Я не спец по VBA, поэтому воспользуюсь принципом лягушки. Спробуй в лиспе такую конструкцию:

Код:

[Выделить все]

(command "_.-vbarun" "NameMacros")
(while (/= (logand (getvar "cmdactive") 31) 0)
(command pause))

либо

Код:

[Выделить все]

(vla-runmacro (vlax-get-acad-object) "NameMacros")
(while (/= (logand (getvar "cmdactive") 31) 0)
(command pause))

Может, и сработает. Но не факт. Передача наборов и параметров lisp<->VBA достаточно хреново сделана (ИМХО).

[den001]

Спасибо тебе, о великий и мудрый Крыс!
Работает. В общем, я понял, command передает в VBA еще какой-то параметр, причем, похоже, пустой, и при первом запросе на ввод он воспринимается, как введенный, а так, как не удовлетворяет условиям ввода, то запрос повторяется.

[Кулик Алексей aka kpblc]

Чего, неужели заработало? Для полноты эксперимента попробуй использвать не (command), а (vl-cmdf) - вдруг еще более интересно получится? Все равно уже хуже не будет...

[den001]

Разницы между command и vl-cmdf не ощутил совсем. Все то же.
Эх, надо садиться за изучение Lisp'a...