- •Методические указания
- •Введение
- •Лабораторная работа № 1
- •Vba (Visual basic for Applications) как средство разработки программных приложений пользователя в среде AutoCad 2002
- •1. Цель работы
- •2. Комментарии по выполнению работы
- •Первое окно еще называют окном проводника проектов. Меню
- •Панели инструментов
- •Проекты и их элементы
- •Макросы
- •Модули и процедуры
- •Область действия
- •Константы
- •Отображение диалогового окна
- •Модуль программного кода
- •Листинг 1. Объявление глобальных переменных
- •Листинг 2. Текст головной программы
- •Листинг 3. Текст подпрограммы DrawCircles
- •Добавление программного кода работы с формой
- •Листинг 4. Программный код работы с формой
- •3. Содержание и порядок выполнения работы
- •Задания.
- •2. Комментарии по выполнению работы
- •3. Содержание и порядок выполнения работы
- •Варианты заданий.
- •1. Цель работы
- •2. Комментарии по выполнению работы
- •3. Содержание и порядок выполнения работы
- •Задания.
- •Лабораторная работа №4 Анализ графической базы данных чертежа AutoCad. Работа с примитивом типа блок. Использование расширенных данных
- •1. Цель работы
- •2. Комментарии по выполнению работы
- •3. Содержание и порядок выполнения работы
- •Задания
- •Библиографический список
- •Содержание
- •394026 Воронеж, Московский просп., 14
- •Составители: а.М.Нужный н.И. Гребенникова
Задания.
Осуществить перебор всех элементов ГБД чертежа и поиск среди них примитивов типа «линейный размер». Вывести в текстовый файл данные о размерах всех примитивов «линейный размер».
Осуществить перебор всех элементов ГБД чертежа и поиск среди них примитивов типа «окружность». Перенести все окружности на указанный пользователем слой. Вывести в текстовый файл данные о центрах и радиусах всех окружностей.
Осуществить перебор всех элементов ГБД чертежа и поиск среди них примитивов типа «полилиния». Вывести в текстовый файл данные о вершинах всех полилиний. Предусмотреть возможность переноса всех полилиний на указанный слой.
Осуществить перебор всех элементов ГБД чертежа и поиск среди них примитивов типа «отрезок». Вывести в текстовый файл данные о вершинах всех отрезков и типе линии. Предусмотреть возможность переноса всех отрезков на указанный слой.
Осуществить перебор всех элементов ГБД чертежа и поиск среди них примитивов типа «эллипс». Вывести в текстовый файл данные о слоях всех эллипсов. Предусмотреть возможность переноса всех эллипсов на указанный слой.
Осуществить нахождение элементов ГБД чертежа, находящихся на указанном пользователем слое. Вывести в текстовый файл данные об этих элементах.
Вывести в текстовый файл информацию обо всех слоях чертежа. Предусмотреть возможность изменять цвет линий указанного слоя.
Все примитивы типа «линейный размер» перенести на новый слой с указанным именем. Информация о перенесенных примитивах должна заноситься в текстовый файл.
Все примитивы типа TEXT перенести на слой "Text" . Преобразовать примитивы этого типа к одинаковой величине шрифта, введенной пользователем. Информация о перенесенных примитивах должна заноситься в текстовый файл.
Осуществить перебор всех элементов ГБД чертежа и поиск среди них примитивов типа «полилиния». Предусмотреть возможность изменения ширины всех полилиний на указанную пользователем. Вывести в текстовый файл данные о вершинах всех полилиний.
Осуществить перебор всех элементов ГБД чертежа и поиск среди них примитивов типа «отрезок». Вывести на экран все типы линий отрезков. Предусмотреть возможность изменения типа линий всех отрезков на указанный пользователем. Вывести в текстовый файл данные о вершинах отрезков, подвергшихся изменениям.
Вывести на экран информацию обо всех используемых слоях чертежа. Предусмотреть возможность переноса всех примитивов из выбранного слоя в слой, указанный пользователем. Вывести в текстовый файл информацию о перенесенных примитивах.
Осуществить перебор всех элементов ГБД чертежа и поиск среди них примитивов типа «окружность». Вывести на экран данные о центрах и радиусах всех окружностей. Предусмотреть возможность удаления окружности с указанным центром и радиусом. Вывести в текстовый файл информацию об оставшихся окружностях.
Осуществить перебор всех элементов ГБД чертежа и поиск среди них примитивов типа «полилиния». Вывести в текстовый файл данные о вершинах всех полилиний. Предусмотреть возможность удаления полилинии с указанными вершинами.
Осуществить перебор всех элементов ГБД чертежа с целью нахождения примитива, указанного пользователем. Вывести в текстовый файл данные об этом примитиве.
Осуществить перебор всех элементов ГБД чертежа с целью нахождения примитива типа «полилиния». Если примитив присутствует на чертеже, вывести в текстовый файл данные об этом примитиве
Осуществить нахождение элементов ГБД чертежа, находящихся на указанном пользователем слое. Вывести на экран информацию об этих элементах. Примитив, указанный пользователем, удалить. Вывести в текстовый файл информацию об оставшихся в слое примитивах.
Осуществить перебор всех элементов ГБД чертежа и поиск среди них примитивов типа «окружность». Изменить цвет линий всех окружности на указанный пользователем. Вывести в текстовый файл данные о центрах и радиусах всех окружностей, измененных пользователем.
Осуществить перебор всех элементов ГБД чертежа и поиск среди них примитивов типа «линейный размер». Изменить цвет примитивов на указанный пользователем. Вывести в текстовый файл данные о всех примитивах, измененных пользователем.
Осуществить перебор всех элементов ГБД чертежа и поиск среди них примитивов типа «отрезок». Подсчитать количество желтых отрезков на чертеже. Вывести в текстовый файл данные обо всех примитивах, соответствующих требованию.
Осуществить перебор всех элементов ГБД чертежа и поиск среди них примитивов типа «окружность». Подсчитать количество окружностей, центры которых находятся на одной оси, указанной пользователем. Вывести в текстовый файл данные обо всех окружностях, соответствующих требованию.
Осуществить перебор всех элементов ГБД чертежа с целью нахождения примитива типа «полилиния». Если примитив присутствует на чертеже, преобразовать полилинию в последовательность дуг и отрезков. Вывести в текстовый файл данные о параметрах полученных дуг.
Осуществить перебор всех элементов ГБД чертежа и поиск среди них примитивов типа «прямоугольник». Подсчитать периметры всех прямоугольников, вывести эти данные в текстовый файл.
Осуществить перебор всех элементов ГБД чертежа с целью нахождения примитива типа «полилиния». Если примитив присутствует на чертеже, преобразовать полилинию в последовательность дуг и отрезков. Вывести в текстовый файл данные о параметрах полученных отрезков и суммарную их длину.
Осуществить перебор всех элементов ГБД чертежа с целью нахождения примитива типа «полилиния» красного цвета. Если соответствующий примитив присутствует на чертеже, изменить его ширину на заданную. Вывести в текстовый файл данные о параметрах полученных полилиний.
Осуществить перебор всех элементов ГБД чертежа и поиск среди них примитивов типа «окружность» или «дуга». Вывести в текстовый файл радиусы всех дуг и окружностей чертежа.