Курсовая работа: Построение параметрической модели детали в среде программирования

(setq d1 0)

(while (or (< d1 35) (> d1 45))

(initget 6)

(setq d1 (getreal "Введите наибольший диаметр детали <40>"))

(if (= d1 nil) (setq d1 40)))

(setq d2 0)

(while (or (< d2 26) (> d2 37))

(initget 6)

(setq d2 (getreal " Введите средний диаметр детали <32>"))

(if (= d2 nil) (setq d2 32)))

(setq d3 0)

(while (or (< d3 15) (> d3 25))

(initget 6)

(setq d3 (getreal " Введите наименьший диаметр детали <20>"))

(if (= d3 nil) (setq d3 20)))

(setq w1 0)

(while (or (< w1 17) (> w1 27))

(initget 6)

(setq w1 (getreal " Введите максимальную ширину детали <22>"))

(if (= w1 nil) (setq w1 22)))

(setq w2 0)

(while (or (< w2 10) (> w2 20))

(initget 6)

(setq w2 (getreal " Введите расстояние от верха детали до конца среднего кольца <15> "))

(if (= w2 nil) (setq w2 15)))

(setq w3 0)

(while (or (< w3 5) (> w3 15))

(initget 6)

(setq w3 (getreal " Введите высоту верхнего кольца детали <10>"))