ОСАПР / Лабораторный_практикум_ОСАПР
.pdf
Пример1. Создание параметрического изображения многоступенчатых объектов.
Требуется создать различные функции на языке AutoLISP для построения изображения многоступенчатого объекта (колонны, ракеты, валов и т.д.) с заданным числом ступеней (N) и размерами каждой ступени: ширина (диаметр) ступени –D; длина ступени - L Ниже представлен листинг программы, включающий следующие
функции:
-(MNOGOSTR X Y LD)- функция создания параметрического изображения многоступенчатого объекта и указания его размеров. Аргументы функции: X - координата х базовой точки ступени; Y - координата у базовой точки ступени; LD - список пар диаметров и длин ступеней объекта '('(D1 L1) '(D2 L2) '(D3 L3) ...);
-(SETDIM RMAX) –функция установки размерных переменных для определения вида размерных линий и самих размеров.RMAX – максимальный из всех радиусов ступеней объекта;
-(RAZMV)- функция указания размеров элементов чертежа;
-(STUP)- функция создания изображения ступени объекта. Пример вызова функции (MNOGOSTR X Y LD) -
(MNOGOSTR '10 100 '((40 70) (60 50) (40 80) (70 100)))
(DEFUN SETDIM (RMAX)
(SETVAR "DIMTAD" 1) |
;Текст над размерной линией. |
|
|
(SETVAR "DIMSOXD" 1) |
;Текст между выносными линиями. |
|
|
(SETVAR "DIMTIH" 0) |
;Текст расположен параллельно линии |
. |
|
(SETVAR "DIMDLI" ( * RMAX 0.25)) ; Отступ между линиями.
(SETVAR "DIMEXE" (* RMAX 0.05)) ;Удлинение размерной линии за выносную. (SETVAR "DIMTSZ" 0) ;Изображение стрелки на концах размерной линии. (SETVAR "DIMASZ" (* RMAX 0.15)) ;Длина стрелки
)
(DEFUN RAZMV ()
(SETDIM RMAX ); Определение вида размерных линий
(SETQ LT2T3 (REVERSE LT2T3))
(COMMAND "СТИЛЬ" "" "TXT" (* RMAX 0.15) "1" "" "" "" "")
(FOREACH EL LT2T3 |
;Цикл ввода размеров диаметров ступеней |
||
(SETQ T2 (CAR EL) |
;Точка ввода первой выносной линии |
|
|
T3 (CADR EL) |
;Точка ввода второй выносной линии |
|
|
TR (LIST (- (CAR T2) 10) (CADR T2)))
(COMMAND "РАЗМЕР1" "ВЕРТИКАЛЬНЫЙ" T2 T3 TR "%%c<>")
)
201
(SETQ TR (LIST X (- Y (* RMAX 1.2)))
I 0)
(FOREACH EL LT2T3 ;цикл указания длины ступеней
(SETQ T3 (CADR EL) ;точка ввода второй выносной
I (+ I 1))
(IF (= I 1)
(COMMAND "РАЗМЕР1" "ГОРИЗОНТАЛЬНЫЙ" BP T3 TR "")
) |
|
|
(COMMAND "РАЗМЕР1" "БАЗОВЫЙ" T3 "" ) |
) |
|
|
|
|
|
) |
|
|
|
|
|
|
|
|
|
(DEFUN STUP ()
(SETQ T10 ( POLAR BT (/ PI 2) R0)
T1 ( POLAR BT (/ PI 2) R)
T2 (POLAR T1 0 L )
T3 (POLAR T2 (* 1.5 PI) D)
T4 ( POLAR T3 PI L)
T40 ( POLAR BT (* 1.5 PI ) R0)
BT ( POLAR BT 0 L))
(COMMAND "ПЛИНИЯ" T10 "ширина" 1 1 T1 T2 T3 T4 T40 "")
)
(DEFUN MNOGOSTR(X Y LD) ;начало создания функции
(SETVAR "CMDECHO" 0) ;Отключение эха команд.
;УСТАНОВКА ФОРМАТА ЧЕРТЕЖА
(COMMAND "ЛИМИТЫ" "0,0" "297,210") (COMMAND "ПОКАЗАТЬ" "границы")
(TEXTSCR) |
;Переход на текстовый режим. |
|
|||||
(SETQ RMAX 0 |
|
|
|
|
|||
LT2T3 '() |
|
|
|
|
|
||
R0 0 |
|
|
|
|
|
|
|
BT (LIST X Y) |
|
|
|
||||
BP BT) |
|
|
|
|
|||
(FOREACH |
EL LD |
; Начало цикла создания ступени |
|||||
(SETQ D ( CAR EL) ; диаметра ступени объекта,
L (CADR EL );длины ступени объекта.
|
R ( * D 0.5 ));Определение радиуса ступени |
( IF (> R RMAX ) (SETQ RMAX R)) |
|
(IF (< R R0) (SETQ R0 R));Определение R0 для первой ступени |
|
(STUP) |
;Изображение первой ступени |
(SETQ LT2T3 (CONS (LIST T2 T3) LT2T3); СПИСОК пар для изображения выносных линий
R0 R)) (RAZMV ) PRIN1
(SETQ BP ( LIST (- (CAR BP) 5) (CADR BP) )
BT ( LIST (+ (CAR BT) 5) (CADR BT) ))
(COMMAND "ТИПЛИН" "УСТАНОВИТЬ" "ОСЕВАЯ2" "") (COMMAND "ЦВЕТ" 1 ""
202
"ОТРЕЗОК" BP BT "")
(COMMAND "ТИПЛИН" "УСТАНОВИТЬ" " CONTINUOUS" "") (COMMAND "ЦВЕТ" 7 "")
)
(MNOGOSTR '10 100 '((40 70) (60 50) (40 80) (70 100)))
Листинг программы параметрического изображения многоступенчатого объекта с размерами.
Пример 2. Разработать программу размещения текстовых данных (например, технические требования) из файла на чертеже.
Ниже представлен листинг функции (TEXTIN1), которая обеспечивает считывание заданного текстового файла построчно. Полное имя файла запоминается в локальной переменной FN. В локальной переменной BP сохраняется начальная точка первой строки (записи) текста, в локальной переменной Р – высота букв текста, U – угол наклона текста. В локальной переменной OF хранится полное имя файла, открытого для чтения «r» (Read), в локальной переменной RL – считывается строка.
;**************************************************************** ;Функция размещения текста из файла на чертеже
;**************************************************************** (DEFUN TEXTIN1 (/ FN BP OF RL P U)
(SETVAR "CMDECHO" 0) ;(SETVAR "TEXTSCR")
(COMMAND "ЛИМИТЫ" "0,0" "210,297") (COMMAND "ПОКАЗАТЬ" "ГРАНИЦЫ")
(SETQ FN (GETSTRING "\n Введите имя файла с текстом:" )
BP (GETPOINT "\n Введите точку ввода текста : [можно мышкой]") P (GETREAL "\n Введите высоту букв текста:" )
U (GETREAL "\n Введите угол наклона текста:")) (TYPE FN)
(PRINT FN)
(SETQ OF (OPEN FN "r")
H (/ P 4)
RL (READ-LINE OF ))
(COMMAND "СТИЛЬ" "" "" P H "" "" "" "") (COMMAND "ТЕКСТ" BP U RL)
(WHILE (SETQ RL (READ-LINE OF )) (SETQ BP (LIST (CAR BP) (- (CADR BP) 10)))
(COMMAND "ТЕКСТ" BP U RL) ) (CLOSE OF) )
Листинг функции размещения текста на чертеже
203
Лабораторная работа № 14 «Основные приемы работы с базой данных СУБД MS Access»
Цель работы. Получение основных навыков работы с базой данных СУБД MS Access.
Постановка задачи
В соответствии со своим номером варианта создать базу данных MS Access, состоящую из таблиц, запросов и форм. Всю совокупность данных, приведенных в задании, распределить по таблицам, руководствуясь при этом требованиями. Созданная БД должна содержать:
•Таблицы с самостоятельно введенной и соответствующей тематике задания информацией (5-7 записей в каждой таблице). Введенная информация должна позволять протестировать созданные запросы и формы.
•Формы для ввода данных в таблицы и отображения данных (простые формы и одну сложную форму – см. задание. 3).
•Запросы, отбирающие информацию указанного в задании типа из созданных и заполненных данными таблиц.
Исходные данные
1.В таблице 14.1 представлены описания различных предметных областей.
Таблица заданий – описание предметной области
|
|
|
Таблица 14.1 |
Вар |
Название |
|
|
иант |
базы |
|
Содержание хранимой информации |
|
данных |
|
|
1 |
Зарплата |
1. |
Цех, участок |
|
|
2. |
Ф.И.О. работника |
|
|
3. |
Тарифная категория работника |
|
|
4. |
Объем выполненной работы за месяц |
|
|
5. |
Наименование произведенной продукции |
|
|
6. |
Стоимость единицы продукции |
|
|
7. |
Год, месяц |
|
|
8. |
Премия за месяц |
204
2 |
Оборудование |
1. Кафедра |
|
|
|
|
кафедры |
2. |
Материально ответственное лицо |
||
|
|
3. |
Наименование оборудования |
|
|
|
|
4. |
Количество оборудования |
|
|
|
|
5. |
Стоимость единицы |
|
|
|
|
6. |
Общая стоимость |
|
|
3 |
Библиотечный |
1. |
УДК (универсальный десятичный код) |
||
|
каталог |
2. |
Отрасль знаний |
|
|
|
|
3. |
Ф.И.О. автора |
|
|
|
|
4. |
Наименование издания |
|
|
|
|
5. |
Тип издания |
|
|
|
|
6. |
Стоимость |
|
|
|
|
7. |
Количество |
|
|
|
|
8. |
Дата поступления |
|
|
4 |
Поезда |
1. Номер поезда |
|
|
|
|
|
2. |
Наименование пункта назначения |
||
|
|
3. |
Наименование пункта отправления |
||
|
|
4. |
Время прихода |
|
|
|
|
5. |
Время отправления |
|
|
|
|
6. |
Категория |
(скорый, |
фирменный, |
|
|
|
пассажирский) |
|
|
|
|
7. |
Перечень оказываемых услуг |
|
|
5 |
Спортивные |
1. Организатор |
|
|
|
|
мероприятия |
2. |
Вид спорта |
|
|
|
|
3. |
Вид состязаний |
|
|
|
|
4. |
Ф.И.О. участника |
|
|
|
|
5. |
Год рождения участника |
|
|
|
|
6. |
Физические данные участника (рост, вес, |
||
|
|
|
возраст, пол) |
|
|
|
|
7. |
Результат |
|
|
|
|
8. |
Занятое место |
|
|
|
|
9. |
Дата проведения |
|
|
6 |
Записная |
1. Дата и время мероприятия |
|
||
|
книжка |
2. |
День недели |
|
|
|
|
3. |
Мероприятие |
|
|
|
|
4. |
Ф.И.О. контактного лица |
|
|
|
|
5. |
Адрес контактного лица |
|
|
|
|
6. |
Характеристика контактного лица |
||
|
|
7. |
Телефон контактного лица |
|
|
205
7 |
Жители |
1. Фамилия |
|
|
города |
2. |
Имя |
|
|
3. |
Отчество |
|
|
4. |
Адрес-улица |
|
|
5. |
Номер дома |
|
|
6. |
Организация – место работы жителя |
|
|
7. |
Характеристика организации |
|
|
8. |
Телефон |
|
|
9. |
Дата обновления |
8 |
Топливная |
1. Код емкости |
|
|
база |
2. |
Типовое название емкости (марка) для |
|
|
|
хранения топлива |
|
|
3. |
Номинальный объем емкости |
|
|
4. |
Вес емкости |
|
|
5. |
Материал емкости |
|
|
6. |
Приход (+) (расход (-)) топлива |
|
|
7. |
Вид топлива |
|
|
8. |
Дата операции |
9 |
Справочник |
1. Марка автомобиля |
|
|
автоинспектор |
2. |
Мощность двигателя |
|
а |
3. |
Габариты автомобиля |
|
|
4. |
Номер |
|
|
5. |
Цвет |
|
|
6. |
Год выпуска |
|
|
7. |
Пробег в км на дату техосмотра |
|
|
8. |
Дата прохождения техосмотра |
10 |
Агроном |
1. Название культуры |
|
|
|
2. |
Название удобрения |
|
|
3. |
Стоимость единицы удобрения |
|
|
4. |
Единица измерения удобрения |
|
|
5. |
Норма внесения на 100 м2 для данной |
|
|
|
культуры |
|
|
6. |
Дата внесения: месяц |
|
|
7. |
Дата внесения: декада |
206
11 |
Частный |
1. Фамилия субъекта |
|
|
детектив |
2. |
Год рождения |
|
|
3. |
Пол |
|
|
4. |
Вес |
|
|
5. |
Рост |
|
|
6. |
Вид правонарушения |
|
|
7. |
Дата нарушения |
|
|
8. |
Сумма вознаграждения |
12 |
Метролог |
1. Дата проведения поверки |
|
|
|
2. |
Вид оборудования |
|
|
3. |
Инвентарный номер прибора |
|
|
4. |
Номинальный класс точности (1,2,3,4,5) |
|
|
5. |
Присвоенный класс точности (1,2,3,4,5) |
|
|
6. |
Дата следующей поверки |
13 |
Памятка |
1. Вид овощей |
|
|
дачнику- |
2. |
Название сорта |
|
овощеводу |
3. |
Номинальная урожайность сорта |
|
|
4. |
Рекомендуемая дата посадки |
|
|
5. |
Рекомендуемая дата уборки урожая |
|
|
6. |
Фактическая дата посадки |
|
|
7. |
Фактическая дата уборки урожая |
|
|
8. |
Урожай - в кг на кв.м. |
14 |
Преподаватель |
1. Название дисциплины |
|
|
|
2. |
Объем лекций, в часах |
|
|
3. |
Объем лабораторных занятий, в часах |
|
|
4. |
Вид контроля – курсовая работа, зачет, |
|
|
|
экзамен |
|
|
5. |
Общее количество студентов по дисциплине |
|
|
6. |
Дата и место занятия |
|
|
7. |
Тип занятия (лекция, лаб.) |
|
|
8. |
Количество студентов, отсутствовавших на |
|
|
|
занятии |
207
15 |
Дневник |
1. Дата |
|
|
|
|
метеонаблюде |
2. |
Температура |
|
|
|
ний |
3. |
Давление |
|
|
|
|
4. |
Облачность (ясно, слабая, сильная, дождь) |
||
|
|
5. |
Направление ветра (азимут) |
|
|
|
|
6. |
Номер метеостанции |
|
|
|
|
7. |
Место |
расположения |
метеостанции |
|
|
|
(населенный пункт) |
|
|
|
|
8. |
ФИО метеоролога, выполнявшего измерения |
||
16 |
Справочник |
1. Тип транзистора |
|
||
|
по |
2. |
Напряжение питания |
|
|
|
транзисторам |
3. |
Допустимый ток |
|
|
|
|
4. |
Коэффициент усиления |
|
|
|
|
5. |
Стоимость |
|
|
|
|
6. |
Количество штук в наличии |
|
|
|
|
7. |
Дата |
|
|
|
|
8. |
Организация-производитель |
|
|
17 |
Справочник |
1. Наименование |
|
||
|
по |
2. |
Страна-изготовитель |
|
|
|
оборудованию |
3. |
Стоимость |
|
|
|
|
4. |
Вес, в кг |
|
|
|
|
5. |
Объем, в куб. м |
|
|
|
|
6. |
Год изготовления |
|
|
|
|
7. |
Количество штук |
|
|
|
|
8. |
Дата поступления |
|
|
18 |
Известные |
1. |
Ф.И.О. |
|
|
|
люди |
2. |
Пол |
|
|
|
|
3. |
Область (вид) деятельности: ученый, |
||
|
|
|
полководец, общественный деятель, поэт, |
||
|
|
|
художник и т.д. |
|
|
|
|
4. |
Дата рождения |
|
|
|
|
5. |
Страна |
|
|
|
|
6. |
Продолжительность жизни |
|
|
|
|
7. |
Основные достижения |
|
|
208
19 |
Меломан |
1. Название группы |
|
|
|
2. |
Страна |
|
|
3. |
Руководитель группы |
|
|
4. |
Название альбома |
|
|
5. |
Дата выпуска альбома |
|
|
6. |
Общий тираж дисков |
|
|
7. |
Типы дисков (аудио, DVD, …) |
20 |
Великие даты |
1. Дата или продолжительность события |
|
|
|
2. |
Страна |
|
|
3. |
Континент |
|
|
4. |
Вид события (война, революция, и т.д.) |
|
|
5. |
Фамилия видного деятеля |
|
|
6. |
Примерное число жертв |
|
|
7. |
Краткая характеристика события |
21 |
Альпинист |
1. Название вершины |
|
|
|
2. |
Высота |
|
|
3. |
Страна расположения |
|
|
4. |
Категория сложности |
|
|
5. |
Фамилия руководителя группы, покорившей |
|
|
|
вершину |
|
|
6. |
Количество участников группы альпинистов |
|
|
7. |
Дата восхождения |
22 |
Медицинская |
1. |
Ф.И.О. пациента |
|
карта |
2. |
Год рождения |
|
|
3. |
Рост |
|
|
4. |
Вес |
|
|
5. |
Группа крови |
|
|
6. |
Дата осмотра |
|
|
7. |
Диагноз |
23 |
Журнал |
1. |
Ф.И.О. инспектора |
|
инспектора |
2. Дата посещения предприятия |
|
|
энергонадзора |
3. Название предприятия |
|
|
|
4. |
Адрес предприятия |
|
|
5. |
Вид нерационального использования |
|
|
|
энергоресурсов (потери электроэнергии, |
|
|
|
теплоэнергии, топлива) |
|
|
6. |
Сумма штрафных санкций |
|
|
7. |
Дата оплаты штрафа |
209
24 |
Журнал |
|
1. Инвентарный номер оборудования |
|
|
ремонта |
|
2. Наименование оборудования |
|
|
оборудования |
3. Наименование цеха |
||
|
|
|
4. |
Регламентируемый межремонтный период (в |
|
|
|
|
месяцах) |
|
|
|
5. |
Дата ремонта |
|
|
|
6. |
Ф.И.О. слесаря-ремонтника |
|
|
|
7. |
Стоимость материалов, применяемых в |
|
|
|
|
ремонте |
|
|
|
8. |
Примечание |
25 |
Журнал учета |
1. Дата и время аварии |
||
|
аварий на |
2. Наименование аварии |
||
|
предприятии |
3. |
Место аварии (цех, участок, оборудование) |
|
|
|
|
4. |
Время ликвидации аварии (в часах) |
|
|
|
5. |
Ф.И.О. сотрудника, виновного в аварии |
|
|
|
6. |
Вид нарушения ТБ, приведшего к аварии |
|
|
|
7. |
Сумма ущерба для предприятия |
|
|
|
8. |
Наименование взыскания для виновника |
|
|
|
|
аварии |
26 |
Журнал |
учета |
1. Дата и время прохождения партии груза |
|
|
грузов |
на |
2. Транспортное средство для перевозки груза |
|
|
проходной |
3. Наименование груза |
||
|
|
|
4. |
Наименование предприятия-заказчика груза |
|
|
|
5. |
Ф.И.О. лица, ответственного за груз |
|
|
|
6. |
Единица измерения груза |
|
|
|
7. |
Количество единиц груза в партии |
|
|
|
8. |
Стоимость единицы груза |
2.Анализ данных – создание запросов
Создать запросы, требования к которым приведены в таблице:
210