Програмирование в AutoCAD с помощью VBA.

     Далее выберите объект UserForm и его событие Initialize. Событие - это специальный тип метода, который запускается когда что-нибудь случается в объекте. В этом случае, событие Initialize включает отображение формы. Добавьте следующий код:

     Если вы используете AutoCAD 14.01 или 2000, вы можете удалять весь код что вы набрали. Как я упомянул, Вы имеете встроенный объект ThisDrawing который представляет текущий чертеж. Он имеет свойство Application которое вы можете использовать для вызова любых методов объекта Application.

     После того как вы подключились к AutoCAD, вам необходимо добавить немного кода к вашему приложению что бы оно занало, что делать, когда пользователь что-то делает. Сделайте двойной щелчек мыши на кнопке SayHello в вашей форме. Обратите внимание что ваш редактор кода перемещается к событию Click кнопки. Это событие по умолчанию для управления кнопкой. Если вы желаете немного другое событие, Вы можете просто выбрать его из правого падающего списка.

     Когда пользователь нажимает на кнопку SayHello, VBA0-программа должна отобразить окном сообщений, с надписью "Hello!". VBA имеет метод, который достаточно соответствует этому - MsgBox, который только это и делает. Добавьте следующий код к событию по нажатию (Click) для SayHello:

     Как минимум, вы дадите для MsgBox сообщение для отображения, но этот метод может больше, если ему дать больше информации. К примеру, он может задать вопрос пользователю и сообщить его вам. Выберите AskQuestion из меню Object в редакторе кода; редактор снова предположит что вам нужно событие Click. Добавьте следующий код:

     Как и в предыдущем случае, первый аргумент для MsgBox - сообщение для отображенияy. The Второй аргумент сообщает MsgBox что бы оно отобразило кнопки Yes и No прежде чем кнопку OK. Третий аргумент сообщает MsgBox как озаглавить диалог.

     Когда вы укажите MsgBox отобразить кнопки Yes и No, вы можете проверить код возврата что бы определить, какую кнопку нажал пользователь. Если возвращаемое значение эквивалентно встроенной константе vbYes, пользователь нажал кнопку Yes. И как вы можете догадаться, нажатие кнопки No будет возвращать значение vbNo.

     Готовы видеть результаты ваших усилий? Запустите программу на выполнение выбрав Run из меню Run. Ваша форма отобразиться в окне AutoCAD, и выступающие кнопки будут настаивать на ответе. Немного поотвечайте на вопросы, а затем возвращайтесь, когда вы утомитесь отвечать на вопросы. Ваше приложение прочти закончено, но оно не содержит одной важной детали. Приложение запускается из среды разработки VBA, но как оно будет загружаться внутри AutoCAD? Никакие силы не заставят без этой детали запуститься приложению из командной строки AutoCAD. Что бы это сделать, вам необходим метод-помощник. Откройте в VBA меню Insert и выберите Module. Измените имя модуля на AppStuff, и введите следующий код в редакторе:

     В данном уроке мы охватим понятия настройки AutoCAD с помощью VBA. Мы создадим FancyText, Простое VBA-приложение, которое будет создавать привязанный текст под любым уголом на текущем уровне. Если Вы сталкиваетесь с проблемами (или только слишком ленивы чтобы набрать код), FancyText доступен на Web-сайте CADALYST.

     Откроем VBA IDE (интегрированная среда разработки). Программирование в VBA очень отличается от программирования AutoLISP, и одно из этих отличий - среда разработки. AutoLISP не имеет встроенной среды разработки - вы используете свой текстовый редактор для создания и редактирования кода. Когда подходит время отлаживать программу вы ограничены использованием команд печати в вашем коде, что бы отобразить сообщения о состоянии программы, переменных, или чего-нибудь еще, что будет вам говорить что в вашей программе неправильно. VBA, наоборот, имеет все это встроенным. VBA IDE содержит редактор кода, конструктор форм и отладчик. В VBA IDE найдите окно, называемое Project. Это обозреватель проектов (Project Explorer), как вы могли понять из предыдущего урока. Как обозреватель Windows отображает все файлы и каталоги на вашем жестком диске и помогает вам находить и работать со специфическими файлами, Project Explorer отображает все формы и модули с кодом в вашем проекте и помогает вамнаходить и работать со специфическими формами или модулями. Обратите внимание, что здесь находятся три папки: AutoCAD Objects, Forms, и Modules. Когда вы добавляете форму или код к вашему проекту, VBA добавляет это к соответствующей папке. Я буду объяснять назначение папки AutoCAD Objects в следующем разделе.

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

     Откройте меню Insert и выберите UserForm. Когда вы сделаете это, появяться два новых окна. Первое, под названием Project-UserForm1 (UserForm) - является конструктором форм. Вы должны использовать его для графического конструирования форм.

     Второе окно, под названием Toolbox, содержит различные объекты которые вы можете добавлять к форме. Я скоро опишу процесс создания форм, но прежде всего посмотрите на на новое имя формы: UserForm1. Каждый VBA-проект, каждая форма и модуль в проекте, и каждый объект в каждой форме имеет свое имя. Когда вы начинаете проект, добавляете новую форму к проеку, или добавляете новый объект к форме, VBA создает имя по умолчанию. Я всегда изменяю эти имена по умолчанию на что-нибудь более значимое. Кликните правой кнопкой мыши на Project в Project Explorer и затем выберите Project Properties из всплывающего меню. Измените имя проекта на FancyText и кликните на OK. Далее найдите окно под названием Properties. Вы наверно помните, что большинство объектов имеют различные свойства, которые определяют внешний вид этих объектов. Окно Properties позволяет вам легко устанавливать эти свойства. Прямо сейчас, в падающем меню в верху окна должно находиться UserForm1 UserForm. Это падающее меню содержит каждый объект, который вы расположили на форме. Ниже в этом падающем меню находится длинный список свойств формы: Caption, Height, Top, и множество других.

     С левой стороны перечисляются все свойства, а с правой - их значения. Найдите свойство (Name), затем измените его на frmFancyText. Обратите внимание, что Project Explorer немедленно обновил имя формы. Теперь найдите свойство Caption и установите его в Fancy Text. Заметьте, что заголовок формы в конструторе форм автоматически изменился после этого. Если вы имеете опыт создания диалоговых окон используя AutoCAD DCL, вы оцените как просто это делается в форме VBA.

Создание интерфейса пользователя

     Теперь вы готовы начать создание интерфейса пользователя для FancyText. Кликните на конструкторе форм, что бы активировать панель инструментов (Toolbox). Что бы расположить объект на форме, кликните на соответсвующей иконке в панели инструментов, а затем переместите его в конструктор форм. Когда вы перемещаете объекты по форме, вы можете видеть что перемещаемый объект выделен с внешней стороны.

     После того, как вы расположили объект, вы можете изменить его размеры, или с помощью мыши, или устанавливая его свойства top, left, height, и width в окне Properties. Пользователи нашей программы будут нуждаться в изменении высоты текста, поэтому разместите метку (label) и блок текста (textbox) из панели инструментов на форму. Кликните на метке, переместите ее в окно Properties, и измените ее имя на lblHeight и ее заголовок на Height. Кликните на блок текста и измените его имя txtHeight.

     Что-бы позволить пользователям вращать текст добавьте еще одну метку и блок текста вместе со слайдером (SpinButton). Пользователи теперь смогут вводить угол поворота непосредственно в блок текста, или использовать слайдер для изменения угла вращения при одном нажатии на один градус.

     Измените имя новой метки на lblRotation и ее заголовок на Rotation. Измените имя нового текстового окна на txtRotation, и затем измените имя слайдера на spnRotation. Что бы пользователи могли вводить текст, добавьте еще одну метку и еще один блок текста.

     Измените имя метки на lblText и ее заголовок на Text:, после этого измените имя блока текста на txtText.Finally, и добавьте кнопку управления (CommandButton) к форме. Измените ее имя на cmdGo и ее заголовок на Go! Нажатие на уту кнопку будет вызывать создание текста. Ваша форма должна выглядеть как показано на рисунке 4.

Рисунок 4. Окно ввода данных для Fancy Text.

     Теперь, еогда интерфейс пользователя завершен, вы должны добавить немного кода. Объект ThisDrawing обеспечивает автоматическую связь с AutoCAD так что вам не нужно вручную обеспечивать это соединение, хотя это и описано здесь.

     Одно VBA-приложение может управлять любым количеством поддерживающих VBA приложений. К примеру, вы можете использовать VBA что-бы создать список материалов извлекя инормацию из атрибутов в вашем черетеже и перенести его в таблицу в Excel. Вы можете даже использовать среду AutoCAD VBA что бы создавать приложения, не связанные с AutoCAD. Как всегда, добавление гибкости означает добавление лишней работы, но к счастью, эта работа не слишком напряженная.

     Прежде всего, кликните правой кнопкой мыши на форме и выберите View Code из всплывающего меню. Это откроет редактор кода. Хотя на первый взгляд он выглядит как обычный текстовый редактор, он может гораздо больше. Посмотрите на два выпадающих окон списков в верхней части редактора. Выпадающее меню слева это перечень объектов, которые вы расположили в форме. Выпадающее меню справа - это список событий, он перечисляет каждое доступное событие для текущего объекта. Когда вы выбираете объект, редактор кода автоматически выбирает событие по умолчанию для этого объекта. Когда вы выбираете объект, редактор автоматически добавляет подпрограмму поддержки этого события, сразу со всеми требуемыми аргументами. По мере того, как вы набираете код, редактор выполняет много работы за вас. Если вы ссылаетесь на стандартную VBA-процедуру, редактор отображает подсказку, в которой перечисляется синтаксис процедуры. По мере того как вы перемещаетесь по коду, редактор подсвечивает цветом ключевые слова, комментарии а так же проеряет синтаксис каждой строки. В дополнение, вы можете перемещаться на страницу помощи просто переместив курсор на вызов метода и нажав F1. Хотя эта деятельность может казаться навязчивой сначала, вскоре вы поймете, что это чрезвычайно полезно. Я уверен, что Вам нетерпиться, чтобы видеть все это в действии, выберите General из падающего меню Objects Declarations из падающего меню Events, и затем добавьте следующую переменную для обеспечения связи:

     Далее, выберите объект Userform и инициализируйте процедуру. Событие - это специальный тип метода, который включается когда в объекте что-то случается. В этом случае, событие Initialize включается каждый раз когда отображается форма. Добавте следующий код:

     Сохраните ваш проект, а затем запустите FancyText или открыв меню Run и выбрав Run Sub/UserForm 9 или нажав F5. Введите угол вращения текста и используя слайдер измените его значение вверх до 359 градусов и вниз до 0 градусов, и каждое нажатие на слайдер должно вызывать изменение угла вращения на один градус. Как только вы будете уверены, что все работает, подготовтесь к следующему занятию - созданию текста.

     В уроке 3 мы начали ваше первое VBA-приложение для AutoCAD, FancyText. Вы создали диалоговое окно и теперь вы готовы работать с тем, что пользователь будет в них вводить. Готовы? Переместимся в событие Click объекта CmdGo (командная кнопка). Когда что-нибудь произойдет, ваша програма должна прежде всего проверить то что введено пользователем. Она должна проверить тип текста и его наличие, и обратить внимание пользователя, если он что-то забыл ввести. Наберите:

     Изучение свойства Text блока текста сообщит вам, если пользователь забыл заполнить его. Используйте SetFocus tчто бы переместить курсор на поле, где отсутствует информация, что сделает Fancy Text более дружественной к пользователю. В противном случае пользователь должен будет сам перейти на незаполненное поле. Проверка высоты текста более сложна. Вы можете использовать 5 различных систем едениц что-бы вводить растояние в AutoCAD, и Fancy Text принимает ввод пользователем в текущих еденицах чертежа. Мало того, что Вы должны проверить что пользователь ввел высоту, вы так же должны конвертировать высоту в число:

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

     Точка представляется в VBA как массив из трех элементов типа doubles. Эти константы помогут вам легко объявит точечные переменные и доступ к параметрам этих точек. Теперь переместимся в конец события Click.

Когда форма должна быть скрыта

     Вы можете использовать GetPoint() метод объекта Utility что бы получить стартовую точку текста от пользователя, но здесь имеет место одна из причуд VBA. VBA формы - модальные, что означает, что вы не можете ничего делать в приложении - родителе формы пока форма отображена на экране. Другими словами, вы должны скрыть форму перед тем, как должен указать стартовую точку:

     Теперь, когда вы имеете всю информацию, создадим текст. Текст будет состоять из двух частей - сам текст и его обводка. Добавить текст просто: нужно только вызвать метод AddText() коллекции ModelSpace и сообщить ему, какой текст нужно добавить, где его добавить, и какой высоты он должен быть:

     Все функции типа Add возвращают последний созданный примитив. Вам необходимо ссылаться на них несколько раз, так что за ними необходимо следить. Создание обводки текста более сложный процесс. Что бы начать обводку нам нужно знать какую площадь занимает текст. К счастью каждый примитив имеет метод GetBoundingBox который обеспечивает вас нжней левой и верхней правой координатами:

     Теперь вы готовы создавать обводку, которая будет выполнена с помощью полилинии. Здесь мы встретимся с другой причудой VBA.

     В отличии от большинства других примитивов, полилинии не имеют z-координату, что означает массив координат должен иметь только восем элементов, а не двенадцать:

     Теперь будем вращать текст и его обводку. Большинство людей представляет себе углы в градусах, но VBA требует их в радианах. Необходимо сконвертировать угол вращения перед тем как он будет передан в метод Rotate.

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

     FancyText отлично работает из среды VBA IDE, но я думаю вам будет приятно запустить ее из командной строки? Добавьте новый модуль к вашему проекту, установите его имя (Name) в "modApps", и затем добавьте следующие процедуры к модулю:

     Теперь вы знаете как создавать диалоговые окна для взаимодействия с пользователем, как добавлять новые примитивы к чертежу, и как манипулировать текстовыми примитивами в чертеже. Вы можете улучшить FancyText различными способами, включая установку высоты текста по умолчанию к текущей высоте текста по умолчанию в AutoCAD и добавление дополнительных типов обводки. Версия FancyText доступная на Web-сайт журнала CADALYST добавляет прямоугольные и круговые текстовые стили. Я был бы заинтересован узнать, как Вы улучшите ее.