[ГрустныйПрограммист]

Добрый вечер!
Пишу плагин для одной трехмерной программы, которая использует автокад. Там есть возможность выполнить любую команду автокада.
То есть

Код:

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

 plughost_eventTrigger(CAD,"p4d_mod_refresh", NULL); 

приводит к вводу в командную строку автокада конструкции p4d_mod_refresh.
Если в коде плагина я использую указанную строку (а я вынужден это делать), то последняя команда в автокаде, после завершения работы плагина - p4d_mod_refresh.
Но мне-то нужно видеть последней командой не ее
, так как пользователь привык вызывать последнюю команду (пробел или энтер в командной строке)!
Попытка использовать конструкции вида

Код:

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

 plughost_eventTrigger(CAD,"(setvar \"cmdecho\" 0)", NULL); 	
plughost_eventTrigger(CAD,"(command p4d_mod_refresh)", NULL); 

тоже не спасают.
Что можно сделать?

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

Есть доступ к исходному тексту команды p4d_mod_refresh? Если да, то всё просто - достаточно описать её с флагом ACRX_CMD_NOHISTORY (CommandFlags.NoHistory)

[ГрустныйПрограммист]

Спасибо за ответ. Нет.

[TararykovDG]

Сообщение от ГрустныйПрограммист Нет.

Нет, в смысле так не работает, или нет доступа к исходному тексту команды p4d_mod_refresh?
ГрустныйПрограммист, попробуй так

Код:

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

 
plughost_eventTrigger(CAD,"(defun my_func() (command p4d_mod_refresh))", NULL); - обернули команду в функцию
plughost_eventTrigger(CAD,"(my_func)", NULL); - вызвали функцию, а не команду, но по факту отработала команда p4d_mod_refresh

[ГрустныйПрограммист]

нет доступа к исходному тексту команды p4d_mod_refresh

[TararykovDG]

Сообщение от ГрустныйПрограммист нет доступа к исходному тексту команды p4d_mod_refresh

Ну так, а вариант обернуть команду в функцию и вызывать функцию, как преложено в посте #4 не заработал?

[Do$]

Мне кажется, что тут (command p4d_mod_refresh) надо в кавычки аргумент заключить.

[ГрустныйПрограммист]

спасибо за ответ,TararykovDG

Сообщение от TararykovDG Ну так, а вариант обернуть команду в функцию и вызывать функцию, как преложено в посте #4 не заработал?

вывод:
Команда: (defun my_func() (command p4d_mod_refresh))
MY_FUNC
Команда: (my_func)
*Прервано*
nil
Спасибо за ответ, Do$. а что заключать в кавычки? к вечеру плохо соображаю, извините.

[Do$]

Попробуйте так:

Код:

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

plughost_eventTrigger(CAD,"(defun my_func() (command \"p4d_mod_refresh\"))", NULL)
plughost_eventTrigger(CAD,"(my_func)", NULL)

[ГрустныйПрограммист]

Сообщение от Do$ Попробуйте так: Код: [Выделить все] plughost_eventTrigger(CAD,"(defun my_func() (command \"p4d_mod_refresh\"))", NULL) plughost_eventTrigger(CAD,"(my_func)", NULL)

еще раз спасибо, но не работает. вывод :
Команда: (defun my_func() (command "p4d_mod_refresh"))
MY_FUNC
Команда: (my_func)
nil

[Do$]

Судя по логу - работает вроде. Ошибок не вываливает.
Вот что происходит, если имя команды не распознано:

Код:

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

Команда: (command "abvgd")
abvgd Неизвестная команда "ABVGD".  Для вызова справки нажмите F1.

Команда: nil

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

Можно как вариант - подавить вывод в ком.строку. Если обращение к AutoCAD идет через СОМ-модель, то для VB можно попробовать сделать нечто типа (если указатель на активный документ получен и назначен переменной oDoc

Код:

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

Dim arSysVar(1) As oSysVar, iCounter As Integer
  arSysVar(0).sName = "cmdecho": arSysVar(0).iValue = oDoc.GetVariable(arSysVar(0).sName)
  arSysVar(1).sName = "nomutt": arSysVar(1).iValue = oDoc.GetVariable(arSysVar(1).sName)
  oDoc.SetVariable (arSysVar(0).sName), 0
  oDoc.SetVariable (arSysVar(0).sName), 1
  On Error GoTo lError
  oDoc.SendCommand msg + vbCr
lError:
  For iCounter = 0 To UBound(arSysVar)
    oDoc.SetVariable arSysVar(iCounter).sName, arSysVar(iCounter).iValue
  Next iCounter

Код писал на VBA из AUtoCAD 2009, и на красивость не претендую ни разу. Все же к лиспу я как-то больше привык
---
Добавлено:
Можно сделать и по-другому:

Код:

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

plughost_eventTrigger(CAD,"(defun my_func() (command \"p4d_mod_refresh\") (princ))", NULL)
plughost_eventTrigger(CAD,"(my_func)", NULL)

[ГрустныйПрограммист]

Сообщение от Do$ Судя по логу - работает вроде. Ошибок не вываливает. Вот что происходит, если имя команды не распознано: Код: [Выделить все] Команда: (command "abvgd") abvgd Неизвестная команда "ABVGD". Для вызова справки нажмите F1. Команда: nil

Уважаемый ДОС! Вы меня спасли. Действительно,все работает. Большое спасибо!
СПАСИБО ВСЕМ!!

[Do$]

Да особо не за что, автор основной идеи - TararykovDG. Его и благодарите