Новости

Проектирование параметрического чертежа

Работа добавлена:






Проектирование параметрического чертежа на http://mirrorref.ru

 МИНОБРНАУКИ РОССИИ

Федеральное государственное бюджетное образовательное учреждение высше«Ижевский государственный технический университет имени М.Т.Калашникова»

Отчет по лабораторной работе №1

по дисциплине «Логическое и функциональное программирование»

на тему

«Проектирование параметрического чертежа»

Вариант 12

Выполнил:

ст. гр. Б05-191-2         В. В. Баранов

                                                                                                           А. И. Сморкалова

Принял                                          А. Г. Ложкин

Ижевск 2015

ПОСТАНОВКА ЗАДАЧИ

Написать программу на AutoLisp, которая выводит букву “Д” аналогично типу шрифтаTimesNewRoman. Параметрами являются:

  • точка вставки буквы;
  • высота символа;
  • угол наклона строки относительно осиX.

Буква должна быть обрисована объектами полилинии, после прорисовки буква должна быть видна полностью.

ТЕКСТ ПРОГРАММЫ

(defun dtr(a)  ;перевод из градусов в радианы

(* pi(/ a 180.))

)

(defunc:prog()

 (princ "Укажите точку привязки:")

 (InitGet 1) ; проверка на непустой ввод

 (setq tp0 (getpoint))

 (InitGet 7)

 (setq h (getdist "\Введите высоту буквы h:" tp0))

(InitGet 1)

 (setq a (getangle "\Введите уголповорота a:" tp0))

(setq width (* h 0.85))

 ;вычисление необходимых точек

(setq tp1 (polar tp0 (+ a (dtr 90.0)) (* h 0.25)))

 (setq p1 (polar tp0 (+ a (dtr 0.0)) (* width 0.05)))

 (setq p2 (polar p1 (+ a (dtr 0.0)) (* width 0.2)))

 (setq p3 (polar p2 (+ a (dtr 0.0)) (* width 0.45)))

 (setq p4 (polar p3 (+ a (dtr 0.0)) (* width 0.25)))

 (setq p5 (polar p2 (+ a (dtr 90.0)) (* h 0.2)))

 (setq p6 (polar p3 (+ a (dtr 90.0)) (* h 0.2)))

 (setq p7 (polar p4 (+ a (dtr 00.0)) (* width 0.05)))

 (setq p8 (polar p7 (+ a (dtr 90.0)) (* h 0.25)))

 (setq p9 (polar p8 (+ a (dtr 180.0)) (* width 0.05)))

 (setq p10 (polar p8 (+ a (dtr 90.0)) (* h 0.15)))

 (setq p11 (polar p10 (+ a (dtr 180.0)) (* width 0.2)))

 (setq p12 (polar p11 (+ a (dtr 90.0)) (* h 0.45)))

 (setq p13 (polar p12 (+ a (dtr 0.0)) (* width 0.1)))

 (setq p14 (polar p13 (+ a (dtr 90.0)) (* h 0.10)))

 (setq p15 (polar p14 (+ a (dtr 0.0)) (* width 0.05)))

 (setq p16 (polar p15 (+ a (dtr 90.0)) (* h 0.05)))

 (setq p17 (polar p16 (+ a (dtr 180.0)) (* width 0.75)))

 (setq p18 (polar p17 (+ a (dtr -90.0)) (* h 0.05)))

 (setq p19 (polar p18 (+ a (dtr 0.0)) (* width 0.05)))

 (setq p20 (polar p19 (+ a (dtr -90.0)) (* h 0.1)))

 (setq p21 (polar p20 (+ a (dtr 0.0)) (* width 0.1)))

 (setq p22 (polar tp1 (+ a (dtr 0.0)) (* width 0.2)))

 (setq p23 (polar p22 (+ a (dtr 90.0)) (* h 0.1)))

 (setq p24 (polar p15 (+ a (dtr 180.0)) (* width 0.275)))

 (setq p25 (polar p24 (+ a (dtr -90.0)) (* h 0.625)))

 (setq p26 (polar p25 (+ a (dtr 180.0)) (* width 0.05)))

 (setq p27 (polar p26 (+ a (dtr -90.0)) (* h 0.05)))

 (setq p28 (polar p24 (+ a (dtr 180.0)) (* width 0.25)))

 (setq p29 (polar p27 (+ a (dtr 180.0)) (* width 0.4)))

 (setq p30 (polar p29 (+ a (dtr -90.0)) (* h 0.05)))

 (setq an (* a (/ 180.0 pi)))

;прорисовка

 (command "_.pline" tp0 tp1 tp0 p1 "_Arc" "_d" (+ an 94.0) p5

 "_Line" p6

 "_Arc" "_d" (+ an 5.0) p4

 "_Line" p7 p8 p9

 "_Arc" "_d" (+ an 161.0) p11

 "_Line" p12

 "_Arc" "_d" (+ an 90.0) p14

 "_Line" p15 p16 p17 p18 p19

 "_Arc" "_d" (+ an 8.0) p21

 "_Arc" "_d" (- an 95.0) p23

 "_Arc" "_d" (- an 114.0) tp1

"")

 (command "_.pline" p28 p24 p25

 "_Arc" "_d" (- an 84.0) p27

 "_Line" p29

 "_Arc" "_d" (+ an 67.0) p28 "")

;заливка

 (command "_BHATCH" "_Properties" "_SOLID" p30 "")

(command "_Zoom" "_All")

(princ)

 )

Результат работы программы представлен на рис.1 – угол поворота 0 и рис.2 – угол поворота -15.

Рис.1

Рис.2

Проектирование параметрического чертежа на http://mirrorref.ru


Похожие рефераты, которые будут Вам интерестны.

1. Реферат УПРАВЛЕНИЕ ДВИЖЕНИЕМ ДВУХМАССОВОГО ПАРАМЕТРИЧЕСКОГО МАЯТНИКА

2. Реферат Разработка чертежа в Auto CAD

3. Реферат Выполнение чертежа печатного узла

4. Реферат ВЫПОЛНЕНИЕ ЧЕРТЕЖА ДЕТАЛИ ТИПА ВАЛ

5. Реферат Способы преобразования комплексного чертежа (эпюра Монжа)

6. Реферат Лекция Способы преобразования комплексного чертежа (эпюра Монжа)

7. Реферат Изучение различных схем сглаживающих фильтров, определение основных характеристик. Изучение параметрического стабилизатора на стабилитроне

8. Реферат ПРОЕКТИРОВАНИЕ СЭУ

9. Реферат Проектирование АТП

10. Реферат Проектирование ТЭЦ