[Тимка]

Подскажите кто знает тупому в чем причина сообщения
"; ошибка: VLISP: internal: Document application(.VLX) not found"
при использовании реактора "VLR-DocManager-Reactor"?

Надо чтоб в строке состояния печаталось имя текущего слоя, но чтоб во всех одновременно открытых чертежах (в режиме многодокументной работы).

В файле "MyMenu.mnl" определены :

Код:

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

(setq SwitchCLayRea (VLR-SysVar-Reactor nil
 (list '(:VLR-sysVarChanged . ShowCLay))))
(setq AllSwitchCLayRea (VLR-Set-Notification SwitchCLayRea 'All-Documents))

(setq SwitchDocCLayRea (VLR-DocManager-Reactor nil
 (list '(:VLR-documentToBeActivated . DocShowCLay))))

(setq NewDocCLayRea (VLR-DocManager-Reactor nil
 (list '(:VLR-documentCreated . DocShowCLay))))

(setq ClosDocCLayRea (VLR-DocManager-Reactor nil
 (list '(:VLR-documentToBeDestroyed . DocShowCLay))))

(setq CurDocCLayRea (VLR-DocManager-Reactor nil
 (list '(:VLR-documentBecameCurrent . DocShowCLay))))

(setq DeacDocCLayRea (VLR-DocManager-Reactor nil
 (list '(:VLR-documentToBeDeactivated . DocShowCLay))))

(setvar "MODEMACRO" (strcat "є " (strcase (getvar "CLAYER")) " є"))

В файле "acaddoc.lsp" определены :

Код:

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

(defun ShowCLay (name event / )
 (if (and (= (strcase (car event)) "CLAYER") (last event))
  (setvar "MODEMACRO" (strcat "є " (strcase (getvar "CLAYER")) " є")))
 (princ)
)
(defun DocShowCLay (name event / )
 (setvar "MODEMACRO" (strcat "є " (strcase (getvar "CLAYER")) " є"))
 (princ)
)

[Тимка]

Уточнение :
сообщение

"; ошибка: VLISP: internal: Document application(.VLX) not found"

выдается в командной строке после закрытия одного из открытых документов-чертежей.

Спасибо...............

[Тимка]

Так никто и не подскажет?

Нарооооод......
АУ

[Тимка]

Ну оооооооооооооооооооооооочень нужно!

ПОМОГИТЕ

[vk]

Честно говоря, не лучший способ использовать реакторы на ЛИСПе в многодокументном режиме. Перепиши на VBA и 2/3 проблем отпадут. Загрузку VBA-модуля можно оставить на ЛИСПе, но вполне возможно что следует ввести проверку чтоб модуль загружался только один раз.

[Тимка]

Спасибо огромное, хоть Вы откликнулись.

Однако беда в том, что VBA для меня - что язык племени Мумба-Юмба
(ни в зуб ногой).

В Lisp-е еще хоть как-то, а Vlisp - толко начал осваивать, и вот, как назло, очень понадобился именно (такой) реактор...

[vk]

То что в Лиспе зовется реакторами, в VBA называется событиями. По сути своей это одно и то же, но есть одна существенная разница. Она в природе языка реализации. Лисп-программы выполняются именно в том чертеже в который они загружены (однако есть возможность экспортировать функции и данные в другие чертежи), а код VBA-модуля доступен как правило всегда. Не сочтите за труд, загляните в хелп в раздел ActiveX and VBA Reference -> Events и посмотрите примерчики. Оно на самом деле не так сложно, как кажется.

[Тимка]

Спасибо, посмотрю.

[Тимка]

Все.
Вопрос решен и закрыт.

Кому интересно см. тот же вопрос на сайте autocad.ru в ветке Lisp.

[Тимка]

Я имел ввиду на форуме autocad.ru