Приложения

Приложение 1. Эскиз с формальными параметрами-размерами

Приложение 2. Копия экрана с разработанным диалоговым окном

Приложение 3. Листинг программы

; шестерня

(command "_.Pline" (list (/ (- d1) 2) (/ b1 2)) (list (/ d1 2) (/ b1 2)) (list (/ d1 2) (/ (- b1) 2))

(list (/ (- d1) 2) (/ (- b1) 2))"_C"

"_.Pline" (list (/ (- da1) 2) (/ b1 2)) (list (/ da1 2) (/ b1 2)) (list (/ da1 2) (/ (- b1) 2))

(list (/ (- da1) 2) (/ (- b1) 2)) "_C"

"_.Pline" (list (/ (- da1) 2) (/ b1 2)) (list (- (/ (- da1) 2) 4) (/ b1 2)) (list (- (/ (- da1) 2) 4) (/ (- b1) 2))

(list (/ (- da1) 2) (/ (- b1) 2)) ""

; колесо

"_.Pline" (list(- a (/ d2 2)) (/ b2 2)) (list(+ a (/ d2 2)) (/ b2 2)) (list (+ a (/ d2 2)) (/ (- b2) 2))

(list (- a (/ d2 2)) (/ (- b2) 2)) ""

"_.Pline" (list(- a (/ DM2 2)) (/ b1 2)) (list (- a (/ DM2 2) (/ (- Ddiam2 diam2) 2)) (/ b1 2))

(list (- a (/ DM2 2) (/ (- Ddiam2 diam2) 2)) (/ b2 2)) (list (- a (/ da2 2)) (/ b2 2))

(list (- a (/ da2 2)) (/ (- b2) 2)) (list (- a (/ DM2 2) (/ (- Ddiam2 diam2) 2)) (/ (- b2) 2))

(list (- a (/ DM2 2) (/ (- Ddiam2 diam2) 2)) (/ (- b1) 2)) (list (- a (/ DM2 2)) (/ (- b1) 2))""

"_.Pline" (list(+ a (/ DM2 2)) (/ b1 2)) (list (+ a (/ DM2 2) (/ (- Ddiam2 diam2) 2)) (/ b1 2))

(list (+ a (/ DM2 2) (/ (- Ddiam2 diam2) 2)) (/ b2 2)) (list (+ a (/ da2 2)) (/ b2 2))

(list (+ a (/ da2 2)) (/ (- b2) 2)) (list (+ a (/ DM2 2) (/ (- Ddiam2 diam2) 2)) (/ (- b2) 2))

(list (+ a (/ DM2 2) (/ (- Ddiam2 diam2) 2)) (/ (- b1) 2)) (list (+ a (/ DM2 2)) (/ (- b1) 2))""

"_.Pline" (list (+ a (/ da2 2)) (/ b2 2)) (list (+ a (/ da2 2) 4) (/ b2 2)) (list (+ a (/ da2 2) 4) (/ (- b2) 2))

(list (+ a (/ da2 2)) (/ (- b2) 2)) ""

"_.Pline" (list (/ (- da1) 2) (/ b1 2)) (list (- (/ (- da1) 2) 4) (/ b1 2)) (list (- (/ (- da1) 2) 4) (/ (- b1) 2)) ""

"_.trim" "" (list a (/ b2 2)) ""

"_.trim" "" (list a (/ (- b2) 2)) ""

; корпус

"_.Pline" (list (- (/ (- da1) 2) 44) (+ (/ b1 2) 40)) (list (+ a (/ da2 2) 44) (+ (/ b1 2) 40))

(list (+ a (/ da2 2) 44) (- (/ (- b1) 2) 40)) (list (- (/ (- da1) 2) 44) (- (/ (- b1) 2) 40)) "_C"

; ведущий вал

"_.line" (list (/ (- DM1) 2) (/ b1 2)) (list (/ (- DM1) 2) (+ (/ b1 2) 40)) ""

"_.line" (list (/ DM1 2) (/ b1 2)) (list (/ DM1 2) (+ (/ b1 2) 40)) ""

"_.line" (list (/ (- DM1) 2) (/ (- b1) 2)) (list (/ (- DM1) 2) (- (/ (- b1) 2) 40)) ""

"_.line" (list (/ DM1 2) (/ (- b1) 2)) (list (/ DM1 2) (- (/ (- b1) 2) 40)) ""

; подшипники

"_.Pline" (list (/ (- diam1) 2) (+ (/ b1 2) 40)) (list (/ (- diam1) 2) (+ (/ b1 2) 40 Bdiam1))

(list (/ diam1 2) (+ (/ b1 2) 40 Bdiam1)) (list (/ diam1 2) (+ (/ b1 2) 40)) ""

"_.Pline" (list (/ (- Ddiam1) 2) (+ (/ b1 2) 40)) (list (/ (- Ddiam1) 2) (+ (/ b1 2) 40 Bdiam1))

(list (/ (- diam1) 2) (+ (/ b1 2) 40 Bdiam1)) (list (/ (- Ddiam1) 2) (+ (/ b1 2) 40)) ""

"_.Pline" (list (/ diam1 2) (+ (/ b1 2) 40 Bdiam1)) (list (/ Ddiam1 2) (+ (/ b1 2) 40 Bdiam1))

(list (/ Ddiam1 2) (+ (/ b1 2) 40)) (list (/ diam1 2) (+ (/ b1 2) 40 Bdiam1)) ""

"_.line" (list (/ (- Ddiam1) 2) (+ (/ b1 2) 40 Bdiam1)) (list (/ (- diam1) 2) (+ (/ b1 2) 40)) ""

"_.line" (list (/ diam1 2) (+ (/ b1 2) 40)) (list (/ Ddiam1 2) (+ (/ b1 2) 40 Bdiam1)) ""

; фаска

"_.Pline" (list (/ (- diam1) 2) (+ (/ b1 2) 40 Bdiam1)) (list (+ (/ (- diam1) 2) 5) (+ (/ b1 2) 40 Bdiam1 5))

(list (- (/ diam1 2) 5) (+ (/ b1 2) 40 Bdiam1 5)) (list (/ diam1 2) (+ (/ b1 2) 40 Bdiam1)) "")

; выходной вал

(command "_.Pline" (list (/ (- diam1) 2) (- (/ (- b1) 2) 40)) (list (/ (- diam1) 2) (- (/ (- b1) 2) 40 (* 2 Bdiam1)))

(list (/ diam1 2) (- (/ (- b1) 2) 40 (* 2 Bdiam1))) (list (/ diam1 2) (- (/ (- b1) 2) 40)) ""

"_.Pline" (list (/ (- dvyh1) 2) (- (/ (- b1) 2) 40 (* 2 Bdiam1))) (list (/ (- dvyh1) 2) (- (/ (- b1) 2) 40 (* 2 Bdiam1) lvyh1))

(list (/ dvyh1 2) (- (/ (- b1) 2) 40 (* 2 Bdiam1) lvyh1)) (list (/ dvyh1 2) (- (/ (- b1) 2) 40 (* 2 Bdiam1))) ""

"_.Pline" (list (/ (- Ddiam1) 2) (- (/ (- b1) 2) 40)) (list (/ (- Ddiam1) 2) (- (/ (- b1) 2) 40 Bdiam1))

(list (/ (- diam1) 2) (- (/ (- b1) 2) 40 Bdiam1)) (list (/ (- Ddiam1) 2) (- (/ (- b1) 2) 40)) ""

"_.line" (list (/ (- diam1) 2) (- (/ (- b1) 2) 40)) (list (/ (- Ddiam1) 2) (- (/ (- b1) 2) 40 Bdiam1)) ""

"_.Pline" (list (/ Ddiam1 2) (- (/ (- b1) 2) 40)) (list (/ Ddiam1 2) (- (/ (- b1) 2) 40 Bdiam1))

(list (/ diam1 2) (- (/ (- b1) 2) 40 Bdiam1)) (list (/ Ddiam1 2) (- (/ (- b1) 2) 40)) ""

"_.line" (list (/ diam1 2) (- (/ (- b1) 2) 40)) (list (/ Ddiam1 2) (- (/ (- b1) 2) 40 Bdiam1)) ""

; фаска

"_.Pline" (list (/ (- dvyh1) 2) (- (/ (- b1) 2) 40 (* 2 Bdiam1) lvyh1)) (list (+ (/ (- dvyh1) 2) 5) (- (/ (- b1) 2) 40 (* 2 Bdiam1) lvyh1 5))

(list (- (/ dvyh1 2) 5) (- (/ (- b1) 2) 40 (* 2 Bdiam1) lvyh1 5)) (list (/ dvyh1 2) (- (/ (- b1) 2) 40 (* 2 Bdiam1) lvyh1)) ""

; ведомый вал

"_.line" (list (- a (/ DM2 2)) (+ (/ b1 2) 40)) (list (- a (/ DM2 2)) (- (/ (- b1) 2) 40)) ""

"_.line" (list (+ a (/ DM2 2)) (+ (/ b1 2) 40)) (list (+ a (/ DM2 2)) (- (/ (- b1) 2) 40)) ""

; подшипники

"_.Pline" (list (- a (/ diam2 2)) (- -40 (/ b1 2))) (list (- a (/ diam2 2)) (- -40 (/ b1 2) Bdiam2))

(list (+ a (/ diam2 2)) (- -40 (/ b1 2) Bdiam2)) (list (+ a (/ diam2 2)) (- -40 (/ b1 2))) ""

"_.Pline" (list (- a (/ Ddiam2 2)) (- -40 (/ b1 2))) (list (- a (/ Ddiam2 2)) (- -40 (/ b1 2) Bdiam2))

(list (- a (/ diam2 2)) (- -40 (/ b1 2) Bdiam2)) (list (- a (/ Ddiam2 2)) (- -40 (/ b1 2))) ""

"_.line" (list (- a (/ Ddiam2 2)) (- -40 (/ b1 2) Bdiam2)) (list (- a (/ diam2 2)) (- -40 (/ b1 2))) ""

"_.Pline" (list (+ a (/ Ddiam2 2)) (- -40 (/ b1 2))) (list (+ a (/ Ddiam2 2)) (- -40 (/ b1 2) Bdiam2))

(list (+ a (/ diam2 2)) (- -40 (/ b1 2) Bdiam2)) (list (+ a (/ Ddiam2 2)) (- -40 (/ b1 2))) ""

"_.line" (list (+ a (/ diam2 2)) (- -40 (/ b1 2))) (list (+ a (/ Ddiam2 2)) (- -40 (/ b1 2) Bdiam2)) ""

; фаска

"_.Pline" (list (- a (/ diam2 2)) (- -40 (/ b1 2) Bdiam2)) (list (+ (- a (/ diam2 2)) 5) (- -40 (/ b1 2) Bdiam2 5))

(list (- (+ a (/ diam2 2)) 5) (- -40 (/ b1 2) Bdiam2 5)) (list (+ a (/ diam2 2)) (- -40 (/ b1 2) Bdiam2)) ""

; выходной вал

"_.Pline" (list (- a (/ diam2 2)) (+ 40 (/ b1 2))) (list (- a (/ diam2 2)) (+ 40 (/ b1 2) (* 2 Bdiam2)))

(list (+ a (/ diam2 2)) (+ 40 (/ b1 2) (* 2 Bdiam2))) (list (+ a (/ diam2 2)) (+ 40 (/ b1 2))) ""

"_.Pline" (list (- a (/ dvyh2 2)) (+ 40 (/ b1 2) (* 2 Bdiam2))) (list (- a (/ dvyh2 2)) (+ 40 (/ b1 2) (* 2 Bdiam2) Lvyh2))

(list (+ a (/ dvyh2 2)) (+ 40 (/ b1 2) (* 2 Bdiam2) Lvyh2)) (list (+ a (/ dvyh2 2)) (+ 40 (/ b1 2)(* 2 Bdiam2))) ""

; подшипники

"_.Pline" (list (- a (/ Ddiam2 2)) (+ 40 (/ b1 2))) (list (- a (/ Ddiam2 2)) (+ 40 (/ b1 2) Bdiam2))

(list (- a (/ diam2 2)) (+ 40 (/ b1 2) Bdiam2)) (list (- a (/ Ddiam2 2)) (+ 40 (/ b1 2))) ""

"_.line" (list (- a (/ diam2 2)) (+ 40 (/ b1 2))) (list (- a (/ Ddiam2 2)) (+ 40 (/ b1 2) Bdiam2)) ""

"_.Pline" (list (+ a (/ Ddiam2 2)) (+ 40 (/ b1 2))) (list (+ a (/ Ddiam2 2)) (+ 40 (/ b1 2) Bdiam2))

(list (+ a (/ diam2 2)) (+ 40 (/ b1 2) Bdiam2)) (list (+ a (/ Ddiam2 2)) (+ 40 (/ b1 2))) ""

"_.line" (list (+ a (/ diam2 2)) (+ 40 (/ b1 2))) (list (+ a (/ Ddiam2 2)) (+ 40 (/ b1 2) Bdiam2)) ""

; фаска

"_.Pline" (list (- a (/ dvyh2 2)) (+ 40 (/ b1 2) (* 2 Bdiam2) Lvyh2)) (list (+ (- a (/ dvyh2 2)) 5) (+ 40 (/ b1 2) (* 2 Bdiam2) Lvyh2 5))

(list (- (+ a (/ dvyh2 2)) 5) (+ 40 (/ b1 2) (* 2 Bdiam2) Lvyh2 5)) (list (+ a (/ dvyh2 2)) (+ 40 (/ b1 2) (* 2 Bdiam2) Lvyh2)) ""

"_.line" (list (+ (/ da1 2) 4) (/ b2 2)) (list (+ (/ da1 2) 4) (/ (- b2) 2)) ""

"_.circle" (list 0 (+ da2 200)) (/ d1 2) ""

"_.circle" (list a (+ da2 200)) (/ d2 2) ""

"_.circle" (list 0 (+ da2 200)) (/ da1 2) ""

"_.circle" (list a (+ da2 200)) (/ da2 2) ""

"_.circle" (list a (+ da2 200)) (/ DM2 2) ""

"_.circle" (list a (+ da2 200)) (+ (/ DM2 2) (/ (- Ddiam2 diam2) 2)) ""

"_.circle" (list 0 (+ da2 200)) (+ (/ da1 2) 4) ""

"_.circle" (list a (+ da2 200)) (+ (/ da2 2) 4) ""

; корпус

"_.Pline" (list (- -44 (/ da1 2)) (+ da2 200 44 (/ da2 2))) (list (+ 44 a (/ da2 2)) (+ da2 200 44 (/ da2 2)))

(list (+ 44 a (/ da2 2)) (+ da2 200 (- -44 (/ da2 2)))) (list (- -44 (/ da1 2)) (+ da2 200 (- -44 (/ da2 2)))) "_C")

Приложение 4. Чертеж, построенный с помощью разработанной программы

Приложение 5. Результаты предварительного кинематического расчета цилиндрического редуктора

Расчет цилиндрической зубчатой передачи выполнялся по следующим параметрам:

Коэффициент длины зуба примем , коэффициент нагрузки: , коэффициент повышения допускаемой нагрузки для непрямозубых колес:, допускаемое контактное напряжение[σ]_к = 590 Н/мм² .

Примем предварительно делительный угол наклона линии зубьев β=10°. Суммарное число зубьев:

Межосевое расстояние:

Найдем М₁ и М₂:

Основные размеры зубчатой пары:

шестерня, =32 колесо,

Ведущий вал. Минимальное значение диаметра выходного конца вала из расчета на кручение при [τ]_к = 15 Н/мм²

Ведомый вал. Диаметр вала под подшипником (опасное сечение) при [τ]_к = 20 Н/мм²

Выбор подшипников

Требуемая динамическая грузоподъемность:

H

Выбираем:

Роликоподшипники конические однорядные (по ГОСТ 333-71) средняя серия 7613 с динамической грузоподъемностью С=17800 кгс и параметрами d x D x b=65x140x48 мм и роликоподшипники конические однорядные (по ГОСТ 333-71) легкая широкая серия 7519 с динамической грузоподъемностью С=22500 кгс и параметрами d x D x b=95х170х43 мм.

Выбор длин выходных валов:

По ГОСТ 8789 – 68 длина вала диаметром:

- от 26 до 65 мм принимается 70мм;

- от 65 до 95 мм принимается 150мм;

- от 95 до 150 мм принимается 200мм.