align="justify"> Потім необхідно ввести Висоту гайки.
Користувачеві необхідно ввести Висоту гайки і натиснути клавішу ENTER. Значення цього параметра лежать в діапазоні від 2 до 16.
Потім користувач вводить Кількість граней гайки: 4, 6 або 8.
У разі введення некоректних даних програма виводить повідомлення і повторює запит на введення необхідних даних.
Некоректними даними є: порожній рядок, символи, які не є числами, числа, що виходять за діапазон.
Для переривання виконання програми слід натиснути Escape. Після введення значень здійснюється побудови креслення гайки по заданих параметрах.
ВИСНОВКИ
Курсовий проект повністю виконує поставлене завдання. Реалізовано зручний інтерфейс користувача, який полегшує розуміння і роботу з програмою. При введенні параметрів деталі проводиться перевірка коректності введених даних, що дозволяє уникнути помилки в побудові креслення.
Список використаних джерел
1. Довідкова система AutoCAD.
2. Конспект лекцій з дисципліни «Програмне забезпечення інформаційних технологій проектування».
ДОДАТОК 1
Блок-схема програми
ДОДАТОК 2
Вихідний текст програми
(Setq r (getint Введіть розмір ключа {16..32} gt; ))
(While (or (= r nil) ( lt; r 16) ( gt; r 32))
(Setq r (getint Введіть розмір ключа {16..32} gt; ))
)
(Setq h (getint Введіть висоту гайки {2..16} gt; ))
(While (or (= h nil) ( lt; h 2) ( gt; h 16))
(Setq h (getint Введіть висоту гайки {2..16} gt; ))
)
(Setq n (getint Введіть кількість граней {4,6,8} gt; ))
(While (or (= n nil) ( lt; n 0) (= n 0) (= n 1) (= n 2) (= n 3) (= n 5) (= n 7) (= n 9)
( gt; n 9)); не бийте мене
(Setq n (getint Введіть кількість граней {4,6,8} gt; ))
)
; ######################################### ####################
#######
(command -linetype set Dashed2 )
(setq p1 (list 113275))
(setq p2 (list 113 64))
(command line p1 p2 )
; ######################################### ####################
#######
; constants
(setq ddiam (/ r 2) (/ (* r 0.6) 2) _ra (* ddn 0.66))
(setq my_11 (* (sqrt 3) 2) my_22 (* 3 ddiam) vp_rad (/ my_22 my_11))
(setq Lo (* vp_rad 0.55))
(setq fX 113197_os (list fx fy) _os (list fx (+ fy vp_rad)))
; ######################################### ####################
######
; coordinates
(setq mx (+ (+ fx (/ (* r 0.6) 2)) 2) (+ fy 2))
(setq my (+ my Lo))
(setq mx (- mx 2) (+ my 2))
(setq my (+ my 7))
(setq p1 (list fx fy))
(setq p2 (list (+ fx (/ (* r 0.6) 2)) fy))
(setq p1 p2)
(setq p2 (list (+ (+ fx (/ (* r 0.6) 2)) 2) (+ fy 2)))
(setq p1 p2)
(setq p2 (list mx (+ my Lo)))
(setq p1 p2)
(setq p2 (list (- mx 2) (+ my 2)))
(setq p1 p2)
(setq p2 (list mx (+ my 2)))
(setq p2 (list fx (+ my 2)))
; ######################################### ####################
#######
; малювання:)
(command -linetype set ByLayer )
; основний вид
(setq vn_rad (* ddn 0.66))
; =================== нижня частина кришки
(setq p1 p2)
(setq p2 (list (+ fx ddiam) (+ my 2)))
(setq my1 my)
(command line p1 p2 )
(Setq line1 (entlast))
; ======================== висота кришки
(setq p1 p2)
