Разработка приложений с помощью vba

Далее последует краткий обзор методам обработки ошибок, управления фокусом окон и создания дистрибутивов.

Для отображения и скрытия формы используются методы Show и Hide

Public Sub MyApplication() UserForm1.Show UserForm1.HideEnd Sub

Все формы в VBA модальные, то есть пока их не закроешь невозможно что-либо править в чертеже. Когда форма скрыта уже возможно кое-что править. Форму можно загрузить, но сразу не отображать. С целью освобождения памяти ненужные формы можно выгружать методом Unload.

Все диалоговые окна в VBA также модальны, то есть если применяешь диалоговое окно в котором от пользователя ожидается выбор элементов на рисунке путем их указания следует сначала скрыть окно диалога, а по окончании выбора - показать.

Из трех типов ошибок (периода компиляции, логических и периода выполнения) обработать программным путем в полной мере можно только последние. Их следует отслеживать в местах наиболее вероятного появления и обрабатывать. Обработчик по-умолчанию только отображает окно с кодом ошибки и предлагает либо перейти в отладчик, либо завершить выполнение программы. Обычно обработчики ошибок ставятся в тех местах, где ожидается ввод от пользователя или файловый ввод-вывод. Для обработки ошибок в VBA используется оператор On Error который имеет три формы:

· On Error Resume Next

· On Error Goto Label

· On Error Goto 0

Первый метод позволяет просто игнорировать ошибку и продолжать выполнение оператора, следующего за оператором, вызвавшим ошибку, не отображая сообщения об ошибке. Это удобно, например, при смене цвета путем циклического перебора всех объектов, если при этом программа натолкнется на элемент, находящийся на заблокированном слое, то просто игнорирует ошибку:

Sub ColorEntities() Dim entry As Object On Error Resume Next For Each entry In ThisDrawing.ModelSpace   entry.Color = acRed Next entryEnd Sub

Вариант On Error GoTo Label используется, если нужно написать особый обработчик ошибки:

Sub ColorEntities2() Dim entry As Object On Error GoTo MyErrorHandler For Each entry In ThisDrawing.ModelSpace   entry.Color = acRed Next entry ' Важно! Выйти из программы чтобы не нарваться на обработчик ошибок Exit SubMyErrorHandler: Msgbox entry.EntityName + " на блокированном слое." + " хэндл: " + entry.Handle Resume NextEnd Sub

Вариант On Error GoTo 0 отменяет текущий обработчик ошибок. Обработка ошибок завершается окончанием процедуры обработчика, новым обработчиком ошибок или переходом по "нулевой" метке.

Объект Err обладает следующими свойствами Number, Description, Source, HelpFile, HelpContext, и LastDLLError. Наиболее важны из них первые три (код ошибки, ее описание и источник). Использование метода InitializeUserInput перед получением ввода от пользователя ограничивает количество возможных ошибок.

Зашифровать и защитить паролем программу на VBA возможно через Tools=>Project>Properties=>Protection.

Чтобы запустить макрос VBA из командной строки

 -VBARUN Filename.dvb!projectname.macroname

При этом указывать имя файла проекта нужно только в случае если он еще не загружен в текущем сеансе.

Автозагрузка проекта на VBA возможна двумя способами:

При загрузке Autocad просматривает каталог, откуда он запущен, на предмет наличия файла acad. dvb который и выполняется, если найден.

Любой другой проект можно включить в автозагрузку посредством команды VBALOAD.

В следующем примере используется файл автозагрузки autolisp для запуска VBA и запуска проекта myproj. dvb. Эти строчки нужно добавить в acad. lsp

(defun S::STARTUP() (command "_VBALOAD" "myproj.dvb"))Для автоматического выполнения макроса из acad.dvb можно сделать так (defun S::STARTUP() (command "_VBARUN" "drawline"))

Также при загрузке VBA автовыполняется макрос с именем AcadStartup.

Работа с VBA когда не открыт ни один документ

Если ни один документ не открыт, то возникнут следующие особенности:

· объект ThisDrawing в данный момент не определен, поэтому любое обращение к нему вызовет ошибку;

· не определены все документозависимые объекты, но доступны, например объекты Application или MenuBar;

· отсутствует командная строка.

Распространение программ

Возможны два варианта - внедрение в файл чертежа или отдельным файлом. В отдельном файле удобно хранить общие процедуры.