[Yanic]

Добрый день!
В срочном порядке пришлось написать макрос под автокад. С трудом удалось разобраться в VBA, написать и прикрутить его к кнопке. Работает, рисует что надо. Но проблема, что макрос теперь встраивается в проект. И при открытии файла естественно спрашивает про макросы.
Варианты "нажать на отключить макросы" и "удалить макрос при сохранении" мне не подходят. Так как целевая аудитория не разбирается в таких сложных словах. Поэтому вопрос: как сделать, чтобы макрос автоматически загружался при открытии автокада, но не присоединялся к файлу при закрытии?

[kp+]

Сохранить в отдельный dvb-файл, закинуть в автозагрузку - не оно? PS работаю в Акад 2009, что там в 2012 - не знаю.
Вроде в версиях начиная с 2010 вообще мрак - надо отдельно загружать и ставить модуль VBA...жесть

[perpetule]

- надо отдельно загружать и ставить модуль VBA...жесть

я пробовал так и этак без vba кад веселее бегает.

[gomer]

Эти ваши макросы могут серьезно повредить систему в плоть до отказа запускаться вообще... Естественно AD пердупреждает вас об опасности, но если вы достаточно глупы или достаточно рискованны или достаточно уверенны в своих макросах , можете установить уровень низкий безопасности макросов а также снять галку в окне свойства (кнопка свойства (options)) окна Макросы (macros)

[Yanic]

Попробую написать понятнее.
Автокад стоит 2008, макрос в отдельном отдельный dvb-файле, автоматически подгружается к проекту. Всё так и есть. Так вот задача, чтобы он так же автоматически и выгружался при закрытии.
Gomer, что Вы имеете ввиду на счёт повреждения системы? Галку в окне свойства я сняла. У себя на компьютере! Но я же не могу бегать в другие отделы и снимать галки у них )))
Если я сильно путано объясняю, то спишите это на не совсем пока понимание мной предмета. Программирую под автокад впервые

[hwd]

Сообщение от Yanic Программирую под автокад впервые

Offtop: Может лучше сразу переходить на dotnet?

[Yanic]

Сообщение от hwd Может лучше сразу переходить на dotnet?

Может и лучше, но потом. Сейчас ввиду срочности дела использую те возможности, которые у меня есть. А это VBA!

[TararykovDG]

Сообщение от Yanic ...макрос в отдельном отдельный dvb-файле, автоматически подгружается к проекту. Всё так и есть. Так вот задача, чтобы он так же автоматически и выгружался при закрытии.

Yanic, можно попробовать реализовать с помощью реактора на закрытии файла по средствам lisp'а

Код:

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

 
; ----------------------------------------------------------------------------
(defun commandEnded(reac data / ) ; конец какой-то комады ACad
  (if (member (car data) (list "QUIT" "_QUIT" "CLOSE" "_CLOSE")) ; если это была команда выход или закрыть
    (vl-catch-all-apply 'vla-UnloadDVB ; выгружаем dvb-приложение (что-то не знаю как проверить загружен ли dvb-файл в чертеж, поэтому просто обернул выгрузку в обработчик ошибок)
      (list (vlax-get-acad-object)
	    (findfile path_dvb) ; здесь вместо path_dvb нужно указать путь до dvb-файла, наример: C:\\***.dvb
	    )
      )
    )
  ); end commandEnded
; -----------------------------------------------------------------------------
; -----------------------------------------------------------------------------
(setq Cmnd_Reac (vlr-command-reactor "Реактор команд: "
		  (list '(:VLR-commandEnded . commandEnded)
			)
		  )
      )
; -----------------------------------------------------------------------------

P. S. Yanic, в силу этого

Сообщение от Yanic Сейчас ввиду срочности дела использую те возможности, которые у меня есть. А это VBA!

поясню, что данный код надо сохранить в lisp-файл (например: AutoUnloadDVB.lsp), а сам файл обязательно добавить в автозагрузку:
Меню "Сервис" -> "Приложения". В появившемся окне "Загрузка/выгрузка приложений" нажать кнопку "Приложения" в области "Автозагрузка" (где чемодан нарисован). Нажать кнопку "Добавить" и указать файл AutoUnloadDVB.lsp

[Yanic]

Спасибо большое за подробный и ясный ответ! Буду пробовать!
У меня была идея через обработчик ошибок попробовать, но я ещё не разобралась до конца Так что надеюсь, что Ваш метод поможет!

[TararykovDG]

Сообщение от Yanic Спасибо большое за подробный и ясный ответ! Буду пробовать! У меня была идея через обработчик ошибок попробовать, но я ещё не разобралась до конца Так что надеюсь, что Ваш метод поможет!

Yanic, вот тогда сначала попробуйте, а потом спасибо говорите. У меня на ACAD2008 работает, так что если будут какие-то проблемы говорите, думаю что разрешим. У этого метода есть один важный момент, если Вы попытаетесь закрыть или сохранить текущий чертеж, а в ответ на запрос "Сохранить изменения ..." нажмете "Отмена" (т. е. продолжите работу с чертежом), то код все равно отработает и dvb-файл будет выгружен.

[Yanic]

Сообщение от TararykovDG вот тогда сначала попробуйте, а потом спасибо говорите.

Теперь говорю спасибо по факту. Заработало! Правда я всё-таки обошлась без лиспа, но за основу взяла Вашу идею. Поставила кнопку коллегам, все счастливы, радуются, работа ускорилась в разы
И с чувством выполненного долга отправляюсь в отпуск. Надеюсь, что ничего не сломается )))
А уж по приезду будет и lisp и dotnet