Архитектору и проектировщику|Тепло- и звукоизоляция URSA.RU
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > Построение фланцевого соединения со штуцером. Фланцы ГОСТ 12815-80.

Построение фланцевого соединения со штуцером. Фланцы ГОСТ 12815-80.

Ответ
Поиск в этой теме
Непрочитано 19.05.2016, 13:42 #1
Построение фланцевого соединения со штуцером. Фланцы ГОСТ 12815-80.
protorgovec
 
газо- нефтепереработка
 
Уфа
Регистрация: 22.07.2015
Сообщений: 98

Решил выставить свой первый "шедевр" Программа рисует фланцевое соединение со штуцером. Рисует 2D. Я не знаю, законченная она или нет, я ей пользуюсь. Может кому пригодиться.
Код:
[Выделить все]
(defun c:flsoedgost ()
(setq Sap (atof (getstring "\n Толщина стенки аппарата Sap >: "))
      Dnsh (atof (getstring "\n Наружний диаметр штуцера Dnsh >: "))
      Ssh (atof (getstring "\n Толщина стенки штуцера Ssh >: "))
      Vn (atof (getstring "\n Наружний вылет Vn >: "))
      Vv (atof (getstring "\n Внутренний вылет Vv >: "))
      Isp (atof (getstring "\n Исполнение фланца на аппарате Isp >: "))
      Dy (atof (getstring "\n Условный диаметр фланца, мм Dy >: "))
      Py (atof (getstring "\n Условное давление фланца, МПа Py >: "))
      Ryad (atof (getstring "\n Ряд Ryad >: "))
      Bt (atof (getstring "\n Тип шпильки Bt >: "))
      Yk (getstring "\n Есть укрепляющие кольцо yes/no ? Yk >: "))
(if (= Yk "yes") (setq Dnk (atof (getstring "\n Наружний диаметр укрепляющего кольца Dnk >: "))
		       Dvk (atof (getstring "\n Внутренний диаметр укрепляющего кольца Dvk >: "))
		       Bk (atof (getstring "\n Толщина укрепляющего кольца Bk >: "))))
(if (= Isp 6) (setq Bl (atof (getstring "\n Ширина линзы Bl >: "))))
(if (= Bt 1) (setq L0 (atof (getstring "\n Длина резьбы L0 >: "))))
(if (= Bt 2) (setq L0 (atof (getstring "\n Длина резьбы L0 >: "))
		   db2 (atof (getstring "\n Диаметр шпильки db2 >: "))))

;давление 0,1 и 0,25 МПа

(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 10) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 75.0 D1 50.0 Dotv 11.0 n 4.0 h 2.0 Mb 10.0 dtr 8.0 b 8.0 h4 23.0 Dm 22.0 Dn 15.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 15) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 80.0 D1 55.0 Dotv 11.0 n 4.0 h 2.0 Mb 10.0 dtr 12.0 b 8.0 h4 26.0 Dm 28.0 Dn 19.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 20) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 90.0 D1 65.0 Dotv 11.0 n 4.0 h 2.0 Mb 10.0 dtr 18.0 b 8.0 h4 28.0 Dm 36.0 Dn 26.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 25) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 100.0 D1 75.0 Dotv 11.0 n 4.0 h 2.0 Mb 10.0 dtr 25.0 b 8.0 h4 28.0 Dm 42.0 Dn 33.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 32) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 120.0 D1 90.0 Dotv 14.0 n 4.0 h 2.0 Mb 12.0 dtr 31.0 b 8.0 h4 28.0 Dm 50.0 Dn 39.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 40) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 130.0 D1 100.0 Dotv 14.0 n 4.0 h 3.0 Mb 12.0 dtr 38.0 b 9.0 h4 33.0 Dm 60.0 Dn 46.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 50) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 140.0 D1 110.0 Dotv 14.0 n 4.0 h 3.0 Mb 12.0 dtr 49.0 b 9.0 h4 33.0 Dm 70.0 Dn 58.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 65) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 160.0 D1 130.0 Dotv 14.0 n 4.0 h 3.0 Mb 12.0 dtr 66.0 b 9.0 h4 33.0 Dm 88.0 Dn 77.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 80) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 185.0 D1 150.0 Dotv 18.0 n 4.0 h 3.0 Mb 16.0 dtr 78.0 b 11.0 h4 35.0 Dm 102.0 Dn 90.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 100) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 205.0 D1 170.0 Dotv 18.0 n 4.0 h 3.0 Mb 16.0 dtr 96.0 b 11.0 h4 37.0 Dm 122.0 Dn 110.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 125) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 235.0 D1 200.0 Dotv 18.0 n 8.0 h 3.0 Mb 16.0 dtr 121.0 b 11.0 h4 37.0 Dm 148.0 Dn 135.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 150) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 260.0 D1 225.0 Dotv 18.0 n 8.0 h 3.0 Mb 16.0 dtr 146.0 b 11.0 h4 38.0 Dm 172.0 Dn 161.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 175) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 290.0 D1 255.0 Dotv 18.0 n 8.0 h 3.0 Mb 16.0 dtr 177.0 b 13.0 h4 43.0 Dm 210.0 Dn 196.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 200) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 315.0 D1 280.0 Dotv 18.0 n 8.0 h 3.0 Mb 16.0 dtr 202.0 b 13.0 h4 45.0 Dm 235.0 Dn 222.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 225) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 340.0 D1 305.0 Dotv 18.0 n 8.0 h 3.0 Mb 16.0 dtr 226.0 b 15.0 h4 45.0 Dm 260.0 Dn 248.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 250) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 370.0 D1 335.0 Dotv 18.0 n 12.0 h 3.0 Mb 16.0 dtr 254.0 b 16.0 h4 45.0 Dm 288.0 Dn 278.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 300) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 435.0 D1 395.0 Dotv 22.0 n 12.0 h 4.0 Mb 20.0 dtr 303.0 b 16.0 h4 45.0 Dm 340.0 Dn 330.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 350) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 485.0 D1 445.0 Dotv 22.0 n 12.0 h 4.0 Mb 20.0 dtr 351.0 b 16.0 h4 45.0 Dm 390.0 Dn 382.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 400) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 535.0 D1 495.0 Dotv 22.0 n 16.0 h 4.0 Mb 20.0 dtr 398.0 b 16.0 h4 45.0 Dm 440.0 Dn 432.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 450) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 590.0 D1 550.0 Dotv 22.0 n 16.0 h 4.0 Mb 20.0 dtr 450.0 b 16.0 h4 50.0 Dm 494.0 Dn 484.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 500) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D 640.0 D1 600.0 Dotv 22.0 n 20.0 h 4.0 Mb 20.0 dtr 501.0 b 19.0 h4 50.0 Dm 545.0 Dn 535.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 500) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D 640.0 D1 600.0 Dotv 22.0 n 16.0 h 4.0 Mb 20.0 dtr 501.0 b 19.0 h4 50.0 Dm 545.0 Dn 535.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 600) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 755.0 D1 705.0 Dotv 26.0 n 20.0 h 5.0 Mb 24.0 dtr 602.0 b 19.0 h4 55.0 Dm 650.0 Dn 636.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 700) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 860.0 D1 810.0 Dotv 26.0 n 24.0 h 5.0 Mb 24.0 dtr 692.0 b 19.0 h4 55.0 Dm 740.0 Dn 726.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 800) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 975.0 D1 920.0 Dotv 30.0 n 24.0 h 5.0 Mb 27.0 dtr 792.0 b 19.0 h4 60.0 Dm 844.0 Dn 826.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 900) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 1075.0 D1 1020.0 Dotv 30.0 n 24.0 h 5.0 Mb 27.0 dtr 892.0 b 21.0 h4 60.0 Dm 944.0 Dn 926.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 1000) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 1175.0 D1 1120.0 Dotv 30.0 n 28.0 h 5.0 Mb 27.0 dtr 992.0 b 21.0 h4 60.0 Dm 1044.0 Dn 1028.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 1200) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 1375.0 D1 1320.0 Dotv 30.0 n 32.0 h 5.0 Mb 27.0 dtr 1192.0 b 23.0 h4 65.0 Dm 1244.0 Dn 1228.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 1400) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 1575.0 D1 1520.0 Dotv 30.0 n 36.0 h 5.0 Mb 27.0 dtr 1392.0 b 23.0 h4 65.0 Dm 1445.0 Dn 1428.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 1600) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 1785.0 D1 1730.0 Dotv 30.0 n 40.0 h 5.0 Mb 27.0 dtr 1592.0 b 23.0 h4 65.0 Dm 1646.0 Dn 1628.0))

(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 10) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 35.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 15) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 40.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 20) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 50.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 25) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 60.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 32) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 70.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 40) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 80.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 50) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 90.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 65) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 110.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 80) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 128.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 100) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 148.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 125) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 178.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 150) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 202.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 175) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 232.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 200) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 258.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 225) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 282.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 250) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 312.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 300) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 365.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 350) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 415.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 400) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 465.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 450) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 520.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 500) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 570.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 600) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 670.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 700) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 775.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 800) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 880.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 900) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 980.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 1000) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 1080.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 1200) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 1280.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 1400) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 1480.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 1600) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D2 1690.0))

(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 10) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 30.0 D6 31.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 10) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 29.0 D6 30.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 15) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 35.0 D6 36.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 15) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 33.0 D6 34.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 20) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 46.0 D6 47.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 20) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 43.0 D6 44.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 25) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 53.0 D6 54.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 25) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 51.0 D6 52.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 32) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 63.0 D6 64.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 32) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 59.0 D6 60.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 40) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 70.0 D6 71.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 40) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 69.0 D6 70.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 50) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 83.0 D6 84.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 50) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 80.0 D6 81.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 65) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 103.0 D6 104.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 65) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 100.0 D6 101.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 80) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 117.0 D6 118.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 80) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 115.0 D6 116.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 100) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 143.0 D6 144.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 100) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 137.0 D6 138.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 125) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 169.0 D6 170.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 125) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 166.0 D6 167.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 150) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 196.0 D6 197.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 150) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 191.0 D6 192.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 175) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 226.0 D6 227.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 175) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 223.0 D6 224.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 200) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 251.0 D6 252.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 200) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 249.0 D6 250.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 225) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 276.0 D6 277.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 225) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 276.0 D6 277.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 250) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 306.0 D6 307.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 250) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 303.0 D6 304.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 300) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 356.0 D6 357.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 300) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 356.0 D6 357.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 350) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 407.0 D6 408.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 350) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 406.0 D6 407.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 400) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 457.0 D6 458.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 400) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 456.0 D6 457.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 450) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 507.0 D6 508.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 450) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 509.0 D6 510.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 500) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 557.0 D6 558.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 500) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 561.0 D6 562.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 600) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 657.0 D6 658.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 600) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 661.0 D6 662.0 h1 6.0 h2 5.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 700) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 762.0 D6 763.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 700) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 763.0 D6 764.0 h1 6.0 h2 5.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 800) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D4 867.0 D6 868.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 800) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D4 867.0 D6 868.0 h1 6.0 h2 5.0))

(if (and (or (= Isp 5) (= Isp 9)) (= Dy 10) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 20.0 D5 19.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 10) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 19.0 D5 18.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 15) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 25.0 D5 24.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 15) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 23.0 D5 22.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 20) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 32.0 D5 31.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 20) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 33.0 D5 32.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 25) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 39.0 D5 38.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 25) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 41.0 D5 40.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 32) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 49.0 D5 48.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 32) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 49.0 D5 48.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 40) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 56.0 D5 55.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 40) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 55.0 D5 54.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 50) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 69.0 D5 68.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 50) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 66.0 D5 65.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 65) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 89.0 D5 88.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 65) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 86.0 D5 85.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 80) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 103.0 D5 102.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 80) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 101.0 D5 100.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 100) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 123.0 D5 122.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 100) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 117.0 D5 116.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 125) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 149.0 D5 148.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 125) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 146.0 D5 145.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 150) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 176.0 D5 175.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 150) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 171.0 D5 170.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 175) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 206.0 D5 205.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 175) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 203.0 D5 202.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 200) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 231.0 D5 230.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 200) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 229.0 D5 228.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 225) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 256.0 D5 255.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 225) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 256.0 D5 255.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 250) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 286.0 D5 285.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 250) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 283.0 D5 282.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 300) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 336.0 D5 335.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 300) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 336.0 D5 335.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 350) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 381.0 D5 380.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 350) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 386.0 D5 385.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 400) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 431.0 D5 430.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 400) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 436.0 D5 435.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 450) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 481.0 D5 480.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 450) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 489.0 D5 488.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 500) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 531.0 D5 530.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 500) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 541.0 D5 540.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 600) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 631.0 D5 630.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 600) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 635.0 D5 634.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 700) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 736.0 D5 735.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 700) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 737.0 D5 736.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 800) (or (= Py 0.1) (= Py 0.25)) (= Ryad 1)) (setq D3 841.0 D5 840.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 800) (or (= Py 0.1) (= Py 0.25)) (= Ryad 2)) (setq D3 841.0 D5 840.0))

;давление 0,6 МПа

(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 10) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 75.0 D1 50.0 Dotv 11.0 n 4.0 h 2.0 Mb 10.0 dtr 8.0 b 10.0 h4 27.0 Dm 22.0 Dn 15.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 15) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 80.0 D1 55.0 Dotv 11.0 n 4.0 h 2.0 Mb 10.0 dtr 12.0 b 10.0 h4 28.0 Dm 28.0 Dn 19.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 20) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 90.0 D1 65.0 Dotv 11.0 n 4.0 h 2.0 Mb 10.0 dtr 18.0 b 10.0 h4 30.0 Dm 36.0 Dn 26.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 25) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 100.0 D1 75.0 Dotv 11.0 n 4.0 h 2.0 Mb 10.0 dtr 25.0 b 12.0 h4 30.0 Dm 42.0 Dn 33.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 32) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 120.0 D1 90.0 Dotv 14.0 n 4.0 h 2.0 Mb 12.0 dtr 31.0 b 12.0 h4 33.0 Dm 50.0 Dn 39.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 40) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 130.0 D1 100.0 Dotv 14.0 n 4.0 h 3.0 Mb 12.0 dtr 38.0 b 12.0 h4 35.0 Dm 60.0 Dn 46.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 50) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 140.0 D1 110.0 Dotv 14.0 n 4.0 h 3.0 Mb 12.0 dtr 49.0 b 12.0 h4 35.0 Dm 70.0 Dn 58.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 65) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 160.0 D1 130.0 Dotv 14.0 n 4.0 h 3.0 Mb 12.0 dtr 66.0 b 12.0 h4 35.0 Dm 88.0 Dn 77.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 80) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 185.0 D1 150.0 Dotv 18.0 n 4.0 h 3.0 Mb 16.0 dtr 78.0 b 13.0 h4 37.0 Dm 102.0 Dn 90.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 100) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 205.0 D1 170.0 Dotv 18.0 n 4.0 h 3.0 Mb 16.0 dtr 96.0 b 13.0 h4 38.0 Dm 122.0 Dn 110.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 125) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 235.0 D1 200.0 Dotv 18.0 n 8.0 h 3.0 Mb 16.0 dtr 121.0 b 15.0 h4 40.0 Dm 148.0 Dn 135.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 150) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 260.0 D1 225.0 Dotv 18.0 n 8.0 h 3.0 Mb 16.0 dtr 146.0 b 15.0 h4 43.0 Dm 172.0 Dn 161.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 175) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 290.0 D1 255.0 Dotv 18.0 n 8.0 h 3.0 Mb 16.0 dtr 177.0 b 17.0 h4 47.0 Dm 210.0 Dn 196.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 200) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 315.0 D1 280.0 Dotv 18.0 n 8.0 h 3.0 Mb 16.0 dtr 202.0 b 17.0 h4 50.0 Dm 235.0 Dn 222.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 225) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 340.0 D1 305.0 Dotv 18.0 n 8.0 h 3.0 Mb 16.0 dtr 226.0 b 17.0 h4 50.0 Dm 260.0 Dn 248.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 250) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 370.0 D1 335.0 Dotv 18.0 n 12.0 h 3.0 Mb 16.0 dtr 254.0 b 18.0 h4 50.0 Dm 288.0 Dn 278.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 300) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 435.0 D1 395.0 Dotv 22.0 n 12.0 h 4.0 Mb 20.0 dtr 303.0 b 18.0 h4 50.0 Dm 340.0 Dn 330.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 350) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 485.0 D1 445.0 Dotv 22.0 n 12.0 h 4.0 Mb 20.0 dtr 351.0 b 18.0 h4 50.0 Dm 390.0 Dn 382.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 400) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 535.0 D1 495.0 Dotv 22.0 n 16.0 h 4.0 Mb 20.0 dtr 398.0 b 18.0 h4 50.0 Dm 440.0 Dn 432.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 450) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 590.0 D1 550.0 Dotv 22.0 n 16.0 h 4.0 Mb 20.0 dtr 450.0 b 18.0 h4 50.0 Dm 494.0 Dn 484.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 500) (= Py 0.6) (= Ryad 1)) (setq D 640.0 D1 600.0 Dotv 22.0 n 20.0 h 4.0 Mb 20.0 dtr 501.0 b 19.0 h4 50.0 Dm 545.0 Dn 535.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 500) (= Py 0.6) (= Ryad 2)) (setq D 640.0 D1 600.0 Dotv 22.0 n 16.0 h 4.0 Mb 20.0 dtr 501.0 b 19.0 h4 50.0 Dm 545.0 Dn 535.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 600) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 755.0 D1 705.0 Dotv 26.0 n 20.0 h 5.0 Mb 24.0 dtr 602.0 b 19.0 h4 55.0 Dm 650.0 Dn 636.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 700) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 860.0 D1 810.0 Dotv 26.0 n 24.0 h 5.0 Mb 24.0 dtr 692.0 b 19.0 h4 55.0 Dm 740.0 Dn 726.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 800) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 975.0 D1 920.0 Dotv 30.0 n 24.0 h 5.0 Mb 27.0 dtr 792.0 b 19.0 h4 60.0 Dm 844.0 Dn 826.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 900) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 1075.0 D1 1020.0 Dotv 30.0 n 24.0 h 5.0 Mb 27.0 dtr 892.0 b 21.0 h4 60.0 Dm 944.0 Dn 926.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 1000) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 1175.0 D1 1120.0 Dotv 30.0 n 28.0 h 5.0 Mb 27.0 dtr 992.0 b 21.0 h4 60.0 Dm 1044.0 Dn 1028.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 1200) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D 1400.0 D1 1340.0 Dotv 33.0 n 32.0 h 5.0 Mb 30.0 dtr 1192.0 b 23.0 h4 70.0 Dm 1248.0 Dn 1228.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 1400) (= Py 0.6) (= Ryad 1)) (setq D 1620.0 D1 1560.0 Dotv 36.0 n 36.0 h 5.0 Mb 33.0 dtr 1392.0 b 27.0 h4 85.0 Dm 1456.0 Dn 1428.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 1400) (= Py 0.6) (= Ryad 2)) (setq D 1620.0 D1 1560.0 Dotv 33.0 n 36.0 h 5.0 Mb 30.0 dtr 1392.0 b 27.0 h4 85.0 Dm 1456.0 Dn 1428.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 1600) (= Py 0.6) (= Ryad 1)) (setq D 1820.0 D1 1760.0 Dotv 36.0 n 40.0 h 5.0 Mb 33.0 dtr 1592.0 b 32.0 h4 95.0 Dm 1660.0 Dn 1628.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 1600) (= Py 0.6) (= Ryad 2)) (setq D 1820.0 D1 1760.0 Dotv 33.0 n 40.0 h 5.0 Mb 30.0 dtr 1592.0 b 32.0 h4 95.0 Dm 1660.0 Dn 1628.0))

(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 10) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 35.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 15) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 40.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 20) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 50.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 25) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 60.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 32) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 70.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 40) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 80.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 50) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 90.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 65) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 110.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 80) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 128.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 100) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 148.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 125) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 178.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 150) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 202.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 175) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 232.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 200) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 258.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 225) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 282.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 250) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 312.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 300) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 365.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 350) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 415.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 400) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 465.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 450) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 520.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 500) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 570.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 600) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 670.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 700) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 775.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 800) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 880.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 900) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 980.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 1000) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 1080.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 1200) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 1295.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 1400) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 1510.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 1600) (= Py 0.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 1710.0))

(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 0.6) (= Ryad 1)) (setq D4 30.0 D6 31.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 0.6) (= Ryad 2)) (setq D4 29.0 D6 30.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 0.6) (= Ryad 1)) (setq D4 35.0 D6 36.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 0.6) (= Ryad 2)) (setq D4 33.0 D6 34.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 0.6) (= Ryad 1)) (setq D4 46.0 D6 47.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 0.6) (= Ryad 2)) (setq D4 43.0 D6 44.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 0.6) (= Ryad 1)) (setq D4 53.0 D6 54.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 0.6) (= Ryad 2)) (setq D4 51.0 D6 52.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 0.6) (= Ryad 1)) (setq D4 63.0 D6 64.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 0.6) (= Ryad 2)) (setq D4 59.0 D6 60.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 0.6) (= Ryad 1)) (setq D4 70.0 D6 71.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 0.6) (= Ryad 2)) (setq D4 69.0 D6 70.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 0.6) (= Ryad 1)) (setq D4 83.0 D6 84.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 0.6) (= Ryad 2)) (setq D4 80.0 D6 81.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 0.6) (= Ryad 1)) (setq D4 103.0 D6 104.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 0.6) (= Ryad 2)) (setq D4 100.0 D6 101.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 0.6) (= Ryad 1)) (setq D4 117.0 D6 118.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 0.6) (= Ryad 2)) (setq D4 115.0 D6 116.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 0.6) (= Ryad 1)) (setq D4 143.0 D6 144.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 0.6) (= Ryad 2)) (setq D4 137.0 D6 138.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 0.6) (= Ryad 1)) (setq D4 169.0 D6 170.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 0.6) (= Ryad 2)) (setq D4 166.0 D6 167.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 0.6) (= Ryad 1)) (setq D4 196.0 D6 197.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 0.6) (= Ryad 2)) (setq D4 191.0 D6 192.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 0.6) (= Ryad 1)) (setq D4 226.0 D6 227.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 0.6) (= Ryad 2)) (setq D4 223.0 D6 224.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 0.6) (= Ryad 1)) (setq D4 251.0 D6 252.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 0.6) (= Ryad 2)) (setq D4 249.0 D6 250.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 0.6) (= Ryad 1)) (setq D4 276.0 D6 277.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 0.6) (= Ryad 2)) (setq D4 276.0 D6 277.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 0.6) (= Ryad 1)) (setq D4 306.0 D6 307.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 0.6) (= Ryad 2)) (setq D4 303.0 D6 304.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 0.6) (= Ryad 1)) (setq D4 356.0 D6 357.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 0.6) (= Ryad 2)) (setq D4 356.0 D6 357.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 0.6) (= Ryad 1)) (setq D4 407.0 D6 408.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 0.6) (= Ryad 2)) (setq D4 406.0 D6 407.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 0.6) (= Ryad 1)) (setq D4 457.0 D6 458.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 0.6) (= Ryad 2)) (setq D4 456.0 D6 457.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 450) (= Py 0.6) (= Ryad 1)) (setq D4 507.0 D6 508.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 450) (= Py 0.6) (= Ryad 2)) (setq D4 509.0 D6 510.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 0.6) (= Ryad 1)) (setq D4 557.0 D6 558.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 0.6) (= Ryad 2)) (setq D4 561.0 D6 562.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 0.6) (= Ryad 1)) (setq D4 657.0 D6 658.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 0.6) (= Ryad 2)) (setq D4 661.0 D6 662.0 h1 6.0 h2 5.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 700) (= Py 0.6) (= Ryad 1)) (setq D4 762.0 D6 763.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 700) (= Py 0.6) (= Ryad 2)) (setq D4 763.0 D6 764.0 h1 6.0 h2 5.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 800) (= Py 0.6) (= Ryad 1)) (setq D4 867.0 D6 868.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 800) (= Py 0.6) (= Ryad 2)) (setq D4 867.0 D6 868.0 h1 6.0 h2 5.0))

(if (and (or (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 0.6) (= Ryad 1)) (setq D3 20.0 D5 19.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 0.6) (= Ryad 2)) (setq D3 19.0 D5 18.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 0.6) (= Ryad 1)) (setq D3 25.0 D5 24.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 0.6) (= Ryad 2)) (setq D3 23.0 D5 22.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 0.6) (= Ryad 1)) (setq D3 32.0 D5 31.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 0.6) (= Ryad 2)) (setq D3 33.0 D5 32.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 0.6) (= Ryad 1)) (setq D3 39.0 D5 38.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 0.6) (= Ryad 2)) (setq D3 41.0 D5 40.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 0.6) (= Ryad 1)) (setq D3 49.0 D5 48.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 0.6) (= Ryad 2)) (setq D3 49.0 D5 48.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 0.6) (= Ryad 1)) (setq D3 56.0 D5 55.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 0.6) (= Ryad 2)) (setq D3 55.0 D5 54.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 0.6) (= Ryad 1)) (setq D3 69.0 D5 68.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 0.6) (= Ryad 2)) (setq D3 66.0 D5 65.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 0.6) (= Ryad 1)) (setq D3 89.0 D5 88.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 0.6) (= Ryad 2)) (setq D3 86.0 D5 85.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 0.6) (= Ryad 1)) (setq D3 103.0 D5 102.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 0.6) (= Ryad 2)) (setq D3 101.0 D5 100.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 0.6) (= Ryad 1)) (setq D3 123.0 D5 122.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 0.6) (= Ryad 2)) (setq D3 117.0 D5 116.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 0.6) (= Ryad 1)) (setq D3 149.0 D5 148.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 0.6) (= Ryad 2)) (setq D3 146.0 D5 145.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 0.6) (= Ryad 1)) (setq D3 176.0 D5 175.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 0.6) (= Ryad 2)) (setq D3 171.0 D5 170.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 0.6) (= Ryad 1)) (setq D3 206.0 D5 205.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 0.6) (= Ryad 2)) (setq D3 203.0 D5 202.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 0.6) (= Ryad 1)) (setq D3 231.0 D5 230.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 0.6) (= Ryad 2)) (setq D3 229.0 D5 228.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 0.6) (= Ryad 1)) (setq D3 256.0 D5 255.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 0.6) (= Ryad 2)) (setq D3 256.0 D5 255.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 0.6) (= Ryad 1)) (setq D3 286.0 D5 285.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 0.6) (= Ryad 2)) (setq D3 283.0 D5 282.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 0.6) (= Ryad 1)) (setq D3 336.0 D5 335.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 0.6) (= Ryad 2)) (setq D3 336.0 D5 335.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 0.6) (= Ryad 1)) (setq D3 381.0 D5 380.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 0.6) (= Ryad 2)) (setq D3 386.0 D5 385.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 0.6) (= Ryad 1)) (setq D3 431.0 D5 430.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 0.6) (= Ryad 2)) (setq D3 436.0 D5 435.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 450) (= Py 0.6) (= Ryad 1)) (setq D3 481.0 D5 480.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 450) (= Py 0.6) (= Ryad 2)) (setq D3 489.0 D5 488.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 0.6) (= Ryad 1)) (setq D3 531.0 D5 530.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 0.6) (= Ryad 2)) (setq D3 541.0 D5 540.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 0.6) (= Ryad 1)) (setq D3 631.0 D5 630.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 0.6) (= Ryad 2)) (setq D3 635.0 D5 634.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 700) (= Py 0.6) (= Ryad 1)) (setq D3 736.0 D5 735.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 700) (= Py 0.6) (= Ryad 2)) (setq D3 737.0 D5 736.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 800) (= Py 0.6) (= Ryad 1)) (setq D3 841.0 D5 840.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 800) (= Py 0.6) (= Ryad 2)) (setq D3 841.0 D5 840.0))

;давление 1,0 МПа

(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 10) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 90.0 D1 60.0 Dotv 14.0 n 4.0 h 2.0 Mb 12.0 dtr 8.0 b 10.0 h4 33.0 Dm 25.0 Dn 15.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 15) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 95.0 D1 65.0 Dotv 14.0 n 4.0 h 2.0 Mb 12.0 dtr 12.0 b 10.0 h4 33.0 Dm 30.0 Dn 19.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 20) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 105.0 D1 75.0 Dotv 14.0 n 4.0 h 2.0 Mb 12.0 dtr 18.0 b 12.0 h4 36.0 Dm 38.0 Dn 26.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 25) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 115.0 D1 85.0 Dotv 14.0 n 4.0 h 2.0 Mb 12.0 dtr 25.0 b 12.0 h4 38.0 Dm 45.0 Dn 33.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 32) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 135.0 D1 100.0 Dotv 18.0 n 4.0 h 2.0 Mb 16.0 dtr 31.0 b 13.0 h4 40.0 Dm 55.0 Dn 39.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 40) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 145.0 D1 110.0 Dotv 18.0 n 4.0 h 3.0 Mb 16.0 dtr 38.0 b 13.0 h4 42.0 Dm 62.0 Dn 46.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 50) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 160.0 D1 125.0 Dotv 18.0 n 4.0 h 3.0 Mb 16.0 dtr 49.0 b 13.0 h4 42.0 Dm 76.0 Dn 58.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 65) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 180.0 D1 145.0 Dotv 18.0 n 4.0 h 3.0 Mb 16.0 dtr 66.0 b 15.0 h4 45.0 Dm 94.0 Dn 77.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 80) (= Py 1.0) (= Ryad 1)) (setq D 195.0 D1 160.0 Dotv 18.0 n 8.0 h 3.0 Mb 16.0 dtr 78.0 b 15.0 h4 47.0 Dm 105.0 Dn 90.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 80) (= Py 1.0) (= Ryad 2)) (setq D 195.0 D1 160.0 Dotv 18.0 n 4.0 h 3.0 Mb 16.0 dtr 78.0 b 15.0 h4 47.0 Dm 105.0 Dn 90.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 100) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 215.0 D1 180.0 Dotv 18.0 n 8.0 h 3.0 Mb 16.0 dtr 96.0 b 17.0 h4 48.0 Dm 128.0 Dn 110.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 125) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 245.0 D1 210.0 Dotv 18.0 n 8.0 h 3.0 Mb 16.0 dtr 121.0 b 19.0 h4 57.0 Dm 156.0 Dn 135.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 150) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 280.0 D1 240.0 Dotv 22.0 n 8.0 h 3.0 Mb 20.0 dtr 146.0 b 19.0 h4 57.0 Dm 180.0 Dn 161.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 175) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 310.0 D1 270.0 Dotv 22.0 n 8.0 h 3.0 Mb 20.0 dtr 177.0 b 19.0 h4 57.0 Dm 210.0 Dn 196.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 200) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 335.0 D1 295.0 Dotv 22.0 n 8.0 h 3.0 Mb 20.0 dtr 202.0 b 19.0 h4 58.0 Dm 240.0 Dn 222.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 225) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 365.0 D1 325.0 Dotv 22.0 n 8.0 h 3.0 Mb 20.0 dtr 226.0 b 19.0 h4 60.0 Dm 268.0 Dn 248.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 250) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 390.0 D1 350.0 Dotv 22.0 n 12.0 h 3.0 Mb 20.0 dtr 254.0 b 21.0 h4 60.0 Dm 290.0 Dn 278.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 300) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 440.0 D1 400.0 Dotv 22.0 n 12.0 h 4.0 Mb 20.0 dtr 303.0 b 22.0 h4 60.0 Dm 345.0 Dn 330.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 350) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 500.0 D1 460.0 Dotv 22.0 n 16.0 h 4.0 Mb 20.0 dtr 351.0 b 22.0 h4 60.0 Dm 400.0 Dn 382.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 400) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 565.0 D1 515.0 Dotv 26.0 n 16.0 h 4.0 Mb 24.0 dtr 398.0 b 22.0 h4 60.0 Dm 445.0 Dn 432.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 450) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 615.0 D1 565.0 Dotv 26.0 n 20.0 h 4.0 Mb 24.0 dtr 450.0 b 22.0 h4 65.0 Dm 500.0 Dn 484.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 500) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 670.0 D1 620.0 Dotv 26.0 n 20.0 h 4.0 Mb 24.0 dtr 501.0 b 24.0 h4 65.0 Dm 550.0 Dn 535.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 600) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 780.0 D1 725.0 Dotv 30.0 n 20.0 h 5.0 Mb 27.0 dtr 602.0 b 24.0 h4 65.0 Dm 650.0 Dn 636.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 700) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 895.0 D1 840.0 Dotv 30.0 n 24.0 h 5.0 Mb 27.0 dtr 692.0 b 25.0 h4 65.0 Dm 744.0 Dn 726.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 800) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 1010.0 D1 950.0 Dotv 33.0 n 24.0 h 5.0 Mb 30.0 dtr 792.0 b 27.0 h4 75.0 Dm 850.0 Dn 826.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 900) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 1110.0 D1 1050.0 Dotv 33.0 n 28.0 h 5.0 Mb 30.0 dtr 892.0 b 29.0 h4 80.0 Dm 950.0 Dn 926.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 1000) (= Py 1.0) (= Ryad 1)) (setq D 1220.0 D1 1160.0 Dotv 36.0 n 28.0 h 5.0 Mb 33.0 dtr 992.0 b 29.0 h4 80.0 Dm 1050.0 Dn 1028.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 1000) (= Py 1.0) (= Ryad 2)) (setq D 1220.0 D1 1160.0 Dotv 33.0 n 28.0 h 5.0 Mb 30.0 dtr 992.0 b 29.0 h4 80.0 Dm 1050.0 Dn 1028.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 1200) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D 1455.0 D1 1380.0 Dotv 39.0 n 32.0 h 5.0 Mb 36.0 dtr 1192.0 b 33.0 h4 90.0 Dm 1256.0 Dn 1228.0))

(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 10) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 42.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 15) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 47.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 20) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 58.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 25) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 68.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 32) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 78.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 40) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 88.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 50) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 102.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 65) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 122.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 80) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 133.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 100) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 158.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 125) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 184.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 150) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 212.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 175) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 242.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 200) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 268.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 225) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 295.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 250) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 320.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 300) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 370.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 350) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 430.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 400) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 482.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 450) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 532.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 500) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 585.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 600) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 685.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 700) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 800.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 800) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 905.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 900) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 1005.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 1000) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 1110.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 1200) (= Py 1.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 1330.0))

(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 1.0) (= Ryad 1)) (setq D4 34.0 D6 35.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 1.0) (= Ryad 2)) (setq D4 34.0 D6 35.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 1.0) (= Ryad 1)) (setq D4 39.0 D6 40.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 1.0) (= Ryad 2)) (setq D4 39.0 D6 40.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 1.0) (= Ryad 1)) (setq D4 50.0 D6 51.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 1.0) (= Ryad 2)) (setq D4 50.0 D6 51.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 1.0) (= Ryad 1)) (setq D4 57.0 D6 58.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 1.0) (= Ryad 2)) (setq D4 57.0 D6 58.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 1.0) (= Ryad 1)) (setq D4 65.0 D6 66.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 1.0) (= Ryad 2)) (setq D4 65.0 D6 66.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 1.0) (= Ryad 1)) (setq D4 75.0 D6 76.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 1.0) (= Ryad 2)) (setq D4 75.0 D6 76.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 1.0) (= Ryad 1)) (setq D4 87.0 D6 88.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 1.0) (= Ryad 2)) (setq D4 87.0 D6 88.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 1.0) (= Ryad 1)) (setq D4 109.0 D6 110.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 1.0) (= Ryad 2)) (setq D4 109.0 D6 110.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 1.0) (= Ryad 1)) (setq D4 120.0 D6 121.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 1.0) (= Ryad 2)) (setq D4 120.0 D6 121.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 1.0) (= Ryad 1)) (setq D4 149.0 D6 150.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 1.0) (= Ryad 2)) (setq D4 149.0 D6 150.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 1.0) (= Ryad 1)) (setq D4 175.0 D6 176.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 1.0) (= Ryad 2)) (setq D4 175.0 D6 176.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 1.0) (= Ryad 1)) (setq D4 203.0 D6 204.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 1.0) (= Ryad 2)) (setq D4 203.0 D6 204.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 1.0) (= Ryad 1)) (setq D4 233.0 D6 234.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 1.0) (= Ryad 2)) (setq D4 233.0 D6 234.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 1.0) (= Ryad 1)) (setq D4 259.0 D6 260.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 1.0) (= Ryad 2)) (setq D4 259.0 D6 260.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 1.0) (= Ryad 1)) (setq D4 286.0 D6 287.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 1.0) (= Ryad 2)) (setq D4 286.0 D6 287.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 1.0) (= Ryad 1)) (setq D4 312.0 D6 313.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 1.0) (= Ryad 2)) (setq D4 312.0 D6 313.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 1.0) (= Ryad 1)) (setq D4 363.0 D6 364.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 1.0) (= Ryad 2)) (setq D4 363.0 D6 364.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 1.0) (= Ryad 1)) (setq D4 421.0 D6 422.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 1.0) (= Ryad 2)) (setq D4 421.0 D6 422.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 1.0) (= Ryad 1)) (setq D4 473.0 D6 474.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 1.0) (= Ryad 2)) (setq D4 473.0 D6 474.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 450) (= Py 1.0) (= Ryad 1)) (setq D4 523.0 D6 524.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 450) (= Py 1.0) (= Ryad 2)) (setq D4 523.0 D6 524.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 1.0) (= Ryad 1)) (setq D4 575.0 D6 576.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 1.0) (= Ryad 2)) (setq D4 575.0 D6 576.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 1.0) (= Ryad 1)) (setq D4 675.0 D6 676.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 1.0) (= Ryad 2)) (setq D4 677.0 D6 678.0 h1 6.0 h2 5.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 700) (= Py 1.0) (= Ryad 1)) (setq D4 777.0 D6 778.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 700) (= Py 1.0) (= Ryad 2)) (setq D4 777.0 D6 778.0 h1 6.0 h2 5.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 800) (= Py 1.0) (= Ryad 1)) (setq D4 882.0 D6 883.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 800) (= Py 1.0) (= Ryad 2)) (setq D4 877.0 D6 878.0 h1 6.0 h2 5.0))

(if (and (or (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 1.0) (= Ryad 1)) (setq D3 24.0 D5 23.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 1.0) (= Ryad 2)) (setq D3 24.0 D5 23.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 1.0) (= Ryad 1)) (setq D3 29.0 D5 28.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 1.0) (= Ryad 2)) (setq D3 29.0 D5 28.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 1.0) (= Ryad 1)) (setq D3 36.0 D5 35.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 1.0) (= Ryad 2)) (setq D3 36.0 D5 35.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 1.0) (= Ryad 1)) (setq D3 43.0 D5 42.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 1.0) (= Ryad 2)) (setq D3 43.0 D5 42.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 1.0) (= Ryad 1)) (setq D3 51.0 D5 50.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 1.0) (= Ryad 2)) (setq D3 51.0 D5 50.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 1.0) (= Ryad 1)) (setq D3 61.0 D5 60.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 1.0) (= Ryad 2)) (setq D3 61.0 D5 60.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 1.0) (= Ryad 1)) (setq D3 73.0 D5 72.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 1.0) (= Ryad 2)) (setq D3 73.0 D5 72.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 1.0) (= Ryad 1)) (setq D3 95.0 D5 94.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 1.0) (= Ryad 2)) (setq D3 95.0 D5 94.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 1.0) (= Ryad 1)) (setq D3 106.0 D5 105.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 1.0) (= Ryad 2)) (setq D3 106.0 D5 105.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 1.0) (= Ryad 1)) (setq D3 129.0 D5 128.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 1.0) (= Ryad 2)) (setq D3 129.0 D5 128.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 1.0) (= Ryad 1)) (setq D3 155.0 D5 154.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 1.0) (= Ryad 2)) (setq D3 155.0 D5 154.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 1.0) (= Ryad 1)) (setq D3 183.0 D5 182.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 1.0) (= Ryad 2)) (setq D3 183.0 D5 182.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 1.0) (= Ryad 1)) (setq D3 213.0 D5 212.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 1.0) (= Ryad 2)) (setq D3 213.0 D5 212.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 1.0) (= Ryad 1)) (setq D3 239.0 D5 238.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 1.0) (= Ryad 2)) (setq D3 239.0 D5 238.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 1.0) (= Ryad 1)) (setq D3 266.0 D5 265.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 1.0) (= Ryad 2)) (setq D3 266.0 D5 265.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 1.0) (= Ryad 1)) (setq D3 292.0 D5 291.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 1.0) (= Ryad 2)) (setq D3 292.0 D5 291.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 1.0) (= Ryad 1)) (setq D3 343.0 D5 342.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 1.0) (= Ryad 2)) (setq D3 343.0 D5 342.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 1.0) (= Ryad 1)) (setq D3 395.0 D5 394.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 1.0) (= Ryad 2)) (setq D3 395.0 D5 394.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 1.0) (= Ryad 1)) (setq D3 447.0 D5 446.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 1.0) (= Ryad 2)) (setq D3 447.0 D5 446.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 450) (= Py 1.0) (= Ryad 1)) (setq D3 497.0 D5 496.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 450) (= Py 1.0) (= Ryad 2)) (setq D3 497.0 D5 496.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 1.0) (= Ryad 1)) (setq D3 549.0 D5 548.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 1.0) (= Ryad 2)) (setq D3 549.0 D5 548.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 1.0) (= Ryad 1)) (setq D3 649.0 D5 648.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 1.0) (= Ryad 2)) (setq D3 651.0 D5 650.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 700) (= Py 1.0) (= Ryad 1)) (setq D3 751.0 D5 750.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 700) (= Py 1.0) (= Ryad 2)) (setq D3 751.0 D5 750.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 800) (= Py 1.0) (= Ryad 1)) (setq D3 856.0 D5 855.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 800) (= Py 1.0) (= Ryad 2)) (setq D3 851.0 D5 850.0))

;давление 1,6 МПа

(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 10) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D 90.0 D1 60.0 Dotv 14.0 n 4.0 h 2.0 Mb 12.0 dtr 8.0 b 12.0 h4 33.0 Dm 26.0 Dn 15.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 15) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D 95.0 D1 65.0 Dotv 14.0 n 4.0 h 2.0 Mb 12.0 dtr 12.0 b 12.0 h4 33.0 Dm 30.0 Dn 19.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 20) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D 105.0 D1 75.0 Dotv 14.0 n 4.0 h 2.0 Mb 12.0 dtr 18.0 b 12.0 h4 36.0 Dm 38.0 Dn 26.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 25) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D 115.0 D1 85.0 Dotv 14.0 n 4.0 h 2.0 Mb 12.0 dtr 25.0 b 12.0 h4 38.0 Dm 45.0 Dn 33.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 32) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D 135.0 D1 100.0 Dotv 18.0 n 4.0 h 2.0 Mb 16.0 dtr 31.0 b 13.0 h4 40.0 Dm 55.0 Dn 39.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 40) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D 145.0 D1 110.0 Dotv 18.0 n 4.0 h 3.0 Mb 16.0 dtr 38.0 b 13.0 h4 42.0 Dm 64.0 Dn 46.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 50) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D 160.0 D1 125.0 Dotv 18.0 n 4.0 h 3.0 Mb 16.0 dtr 49.0 b 13.0 h4 45.0 Dm 76.0 Dn 58.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 65) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D 180.0 D1 145.0 Dotv 18.0 n 4.0 h 3.0 Mb 16.0 dtr 66.0 b 15.0 h4 47.0 Dm 94.0 Dn 77.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 80) (= Py 1.6) (= Ryad 1)) (setq D 195.0 D1 160.0 Dotv 18.0 n 8.0 h 3.0 Mb 16.0 dtr 78.0 b 17.0 h4 50.0 Dm 110.0 Dn 90.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 80) (= Py 1.6) (= Ryad 2)) (setq D 195.0 D1 160.0 Dotv 18.0 n 4.0 h 3.0 Mb 16.0 dtr 78.0 b 17.0 h4 50.0 Dm 110.0 Dn 90.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 100) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D 215.0 D1 180.0 Dotv 18.0 n 8.0 h 3.0 Mb 16.0 dtr 96.0 b 17.0 h4 50.0 Dm 130.0 Dn 110.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 125) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D 245.0 D1 210.0 Dotv 18.0 n 8.0 h 3.0 Mb 16.0 dtr 121.0 b 19.0 h4 57.0 Dm 156.0 Dn 135.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 150) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D 280.0 D1 240.0 Dotv 22.0 n 8.0 h 3.0 Mb 20.0 dtr 146.0 b 19.0 h4 57.0 Dm 180.0 Dn 161.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 175) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D 310.0 D1 270.0 Dotv 22.0 n 8.0 h 3.0 Mb 20.0 dtr 177.0 b 21.0 h4 57.0 Dm 210.0 Dn 196.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 200) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D 335.0 D1 295.0 Dotv 22.0 n 12.0 h 3.0 Mb 20.0 dtr 202.0 b 21.0 h4 58.0 Dm 240.0 Dn 222.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 225) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D 365.0 D1 325.0 Dotv 22.0 n 12.0 h 3.0 Mb 20.0 dtr 226.0 b 21.0 h4 65.0 Dm 268.0 Dn 248.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 250) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D 405.0 D1 355.0 Dotv 26.0 n 12.0 h 3.0 Mb 24.0 dtr 254.0 b 23.0 h4 65.0 Dm 292.0 Dn 278.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 300) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D 460.0 D1 410.0 Dotv 26.0 n 12.0 h 4.0 Mb 24.0 dtr 303.0 b 24.0 h4 66.0 Dm 346.0 Dn 330.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 350) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D 520.0 D1 470.0 Dotv 26.0 n 16.0 h 4.0 Mb 24.0 dtr 351.0 b 28.0 h4 70.0 Dm 400.0 Dn 382.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 400) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D 580.0 D1 525.0 Dotv 30.0 n 16.0 h 4.0 Mb 27.0 dtr 398.0 b 32.0 h4 75.0 Dm 450.0 Dn 432.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 450) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D 640.0 D1 585.0 Dotv 30.0 n 20.0 h 4.0 Mb 27.0 dtr 450.0 b 34.0 h4 85.0 Dm 506.0 Dn 484.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 500) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D 710.0 D1 650.0 Dotv 33.0 n 20.0 h 4.0 Mb 30.0 dtr 501.0 b 38.0 h4 90.0 Dm 559.0 Dn 535.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 600) (= Py 1.6) (= Ryad 1)) (setq D 840.0 D1 770.0 Dotv 36.0 n 20.0 h 5.0 Mb 33.0 dtr 602.0 b 41.0 h4 90.0 Dm 660.0 Dn 636.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 600) (= Py 1.6) (= Ryad 2)) (setq D 840.0 D1 770.0 Dotv 39.0 n 20.0 h 5.0 Mb 36.0 dtr 602.0 b 41.0 h4 90.0 Dm 660.0 Dn 636.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 700) (= Py 1.6) (= Ryad 1)) (setq D 910.0 D1 840.0 Dotv 36.0 n 24.0 h 5.0 Mb 33.0 dtr 692.0 b 43.0 h4 95.0 Dm 750.0 Dn 726.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 700) (= Py 1.6) (= Ryad 2)) (setq D 910.0 D1 840.0 Dotv 39.0 n 24.0 h 5.0 Mb 36.0 dtr 692.0 b 43.0 h4 95.0 Dm 750.0 Dn 726.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 800) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D 1020.0 D1 950.0 Dotv 39.0 n 24.0 h 5.0 Mb 36.0 dtr 792.0 b 45.0 h4 95.0 Dm 850.0 Dn 826.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 900) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D 1120.0 D1 1050.0 Dotv 39.0 n 28.0 h 5.0 Mb 36.0 dtr 892.0 b 47.0 h4 110.0 Dm 958.0 Dn 926.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 1000) (= Py 1.6) (= Ryad 1)) (setq D 1255.0 D1 1170.0 Dotv 42.0 n 28.0 h 5.0 Mb 39.0 dtr 992.0 b 49.0 h4 110.0 Dm 1060.0 Dn 1028.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 1000) (= Py 1.6) (= Ryad 2)) (setq D 1255.0 D1 1170.0 Dotv 45.0 n 28.0 h 5.0 Mb 42.0 dtr 992.0 b 49.0 h4 110.0 Dm 1060.0 Dn 1028.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 1200) (= Py 1.6) (= Ryad 1)) (setq D 1485.0 D1 1390.0 Dotv 48.0 n 32.0 h 5.0 Mb 45.0 dtr 1192.0 b 51.0 h4 125.0 Dm 1268.0 Dn 1228.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 1200) (= Py 1.6) (= Ryad 2)) (setq D 1485.0 D1 1390.0 Dotv 52.0 n 32.0 h 5.0 Mb 48.0 dtr 1192.0 b 51.0 h4 125.0 Dm 1268.0 Dn 1228.0))

(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 10) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 42.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 15) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 47.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 20) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 58.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 25) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 68.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 32) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 78.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 40) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 88.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 50) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 102.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 65) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 122.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 80) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 133.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 100) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 158.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 125) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 184.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 150) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 212.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 175) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 242.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 200) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 268.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 225) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 295.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 250) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 320.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 300) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 370.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 350) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 430.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 400) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 482.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 450) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 532.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 500) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 585.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 600) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 685.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 700) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 800.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 800) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 905.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 900) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 1005.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 1000) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 1110.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 1200) (= Py 1.6) (or (= Ryad 1) (= Ryad 2))) (setq D2 1330.0))

(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 1.6) (= Ryad 1)) (setq D4 34.0 D6 35.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 1.6) (= Ryad 2)) (setq D4 34.0 D6 35.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 1.6) (= Ryad 1)) (setq D4 39.0 D6 40.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 1.6) (= Ryad 2)) (setq D4 39.0 D6 40.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 1.6) (= Ryad 1)) (setq D4 50.0 D6 51.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 1.6) (= Ryad 2)) (setq D4 50.0 D6 51.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 1.6) (= Ryad 1)) (setq D4 57.0 D6 58.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 1.6) (= Ryad 2)) (setq D4 57.0 D6 58.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 1.6) (= Ryad 1)) (setq D4 65.0 D6 66.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 1.6) (= Ryad 2)) (setq D4 65.0 D6 66.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 1.6) (= Ryad 1)) (setq D4 75.0 D6 76.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 1.6) (= Ryad 2)) (setq D4 75.0 D6 76.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 1.6) (= Ryad 1)) (setq D4 87.0 D6 88.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 1.6) (= Ryad 2)) (setq D4 87.0 D6 88.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 1.6) (= Ryad 1)) (setq D4 109.0 D6 110.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 1.6) (= Ryad 2)) (setq D4 109.0 D6 110.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 1.6) (= Ryad 1)) (setq D4 120.0 D6 121.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 1.6) (= Ryad 2)) (setq D4 120.0 D6 121.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 1.6) (= Ryad 1)) (setq D4 149.0 D6 150.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 1.6) (= Ryad 2)) (setq D4 149.0 D6 150.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 1.6) (= Ryad 1)) (setq D4 175.0 D6 176.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 1.6) (= Ryad 2)) (setq D4 175.0 D6 176.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 1.6) (= Ryad 1)) (setq D4 203.0 D6 204.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 1.6) (= Ryad 2)) (setq D4 203.0 D6 204.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 1.6) (= Ryad 1)) (setq D4 233.0 D6 234.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 1.6) (= Ryad 2)) (setq D4 233.0 D6 234.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 1.6) (= Ryad 1)) (setq D4 259.0 D6 260.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 1.6) (= Ryad 2)) (setq D4 259.0 D6 260.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 1.6) (= Ryad 1)) (setq D4 286.0 D6 287.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 1.6) (= Ryad 2)) (setq D4 286.0 D6 287.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 1.6) (= Ryad 1)) (setq D4 312.0 D6 313.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 1.6) (= Ryad 2)) (setq D4 312.0 D6 313.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 1.6) (= Ryad 1)) (setq D4 363.0 D6 364.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 1.6) (= Ryad 2)) (setq D4 363.0 D6 364.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 1.6) (= Ryad 1)) (setq D4 421.0 D6 422.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 1.6) (= Ryad 2)) (setq D4 421.0 D6 422.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 1.6) (= Ryad 1)) (setq D4 473.0 D6 474.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 1.6) (= Ryad 2)) (setq D4 473.0 D6 474.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 450) (= Py 1.6) (= Ryad 1)) (setq D4 523.0 D6 524.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 450) (= Py 1.6) (= Ryad 2)) (setq D4 523.0 D6 524.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 1.6) (= Ryad 1)) (setq D4 575.0 D6 576.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 1.6) (= Ryad 2)) (setq D4 575.0 D6 576.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 1.6) (= Ryad 1)) (setq D4 675.0 D6 676.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 1.6) (= Ryad 2)) (setq D4 677.0 D6 678.0 h1 6.0 h2 5.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 700) (= Py 1.6) (= Ryad 1)) (setq D4 777.0 D6 778.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 700) (= Py 1.6) (= Ryad 2)) (setq D4 777.0 D6 778.0 h1 6.0 h2 5.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 800) (= Py 1.6) (= Ryad 1)) (setq D4 882.0 D6 883.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 800) (= Py 1.6) (= Ryad 2)) (setq D4 877.0 D6 878.0 h1 6.0 h2 5.0))

(if (and (or (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 1.6) (= Ryad 1)) (setq D3 24.0 D5 23.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 1.6) (= Ryad 2)) (setq D3 24.0 D5 23.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 1.6) (= Ryad 1)) (setq D3 29.0 D5 28.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 1.6) (= Ryad 2)) (setq D3 29.0 D5 28.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 1.6) (= Ryad 1)) (setq D3 36.0 D5 35.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 1.6) (= Ryad 2)) (setq D3 36.0 D5 35.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 1.6) (= Ryad 1)) (setq D3 43.0 D5 42.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 1.6) (= Ryad 2)) (setq D3 43.0 D5 42.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 1.6) (= Ryad 1)) (setq D3 51.0 D5 50.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 1.6) (= Ryad 2)) (setq D3 51.0 D5 50.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 1.6) (= Ryad 1)) (setq D3 61.0 D5 60.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 1.6) (= Ryad 2)) (setq D3 61.0 D5 60.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 1.6) (= Ryad 1)) (setq D3 73.0 D5 72.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 1.6) (= Ryad 2)) (setq D3 73.0 D5 72.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 1.6) (= Ryad 1)) (setq D3 95.0 D5 94.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 1.6) (= Ryad 2)) (setq D3 95.0 D5 94.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 1.6) (= Ryad 1)) (setq D3 106.0 D5 105.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 1.6) (= Ryad 2)) (setq D3 106.0 D5 105.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 1.6) (= Ryad 1)) (setq D3 129.0 D5 128.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 1.6) (= Ryad 2)) (setq D3 129.0 D5 128.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 1.6) (= Ryad 1)) (setq D3 155.0 D5 154.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 1.6) (= Ryad 2)) (setq D3 155.0 D5 154.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 1.6) (= Ryad 1)) (setq D3 183.0 D5 182.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 1.6) (= Ryad 2)) (setq D3 183.0 D5 182.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 1.6) (= Ryad 1)) (setq D3 213.0 D5 212.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 1.6) (= Ryad 2)) (setq D3 213.0 D5 212.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 1.6) (= Ryad 1)) (setq D3 239.0 D5 238.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 1.6) (= Ryad 2)) (setq D3 239.0 D5 238.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 1.6) (= Ryad 1)) (setq D3 266.0 D5 265.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 1.6) (= Ryad 2)) (setq D3 266.0 D5 265.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 1.6) (= Ryad 1)) (setq D3 292.0 D5 291.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 1.6) (= Ryad 2)) (setq D3 292.0 D5 291.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 1.6) (= Ryad 1)) (setq D3 343.0 D5 342.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 1.6) (= Ryad 2)) (setq D3 343.0 D5 342.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 1.6) (= Ryad 1)) (setq D3 395.0 D5 394.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 1.6) (= Ryad 2)) (setq D3 395.0 D5 394.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 1.6) (= Ryad 1)) (setq D3 447.0 D5 446.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 1.6) (= Ryad 2)) (setq D3 447.0 D5 446.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 450) (= Py 1.6) (= Ryad 1)) (setq D3 497.0 D5 496.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 450) (= Py 1.6) (= Ryad 2)) (setq D3 497.0 D5 496.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 1.6) (= Ryad 1)) (setq D3 549.0 D5 548.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 1.6) (= Ryad 2)) (setq D3 549.0 D5 548.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 1.6) (= Ryad 1)) (setq D3 649.0 D5 648.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 1.6) (= Ryad 2)) (setq D3 651.0 D5 650.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 700) (= Py 1.6) (= Ryad 1)) (setq D3 751.0 D5 750.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 700) (= Py 1.6) (= Ryad 2)) (setq D3 751.0 D5 750.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 800) (= Py 1.6) (= Ryad 1)) (setq D3 856.0 D5 855.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 800) (= Py 1.6) (= Ryad 2)) (setq D3 851.0 D5 850.0))

;давление 2,5 МПа

(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 10) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D 90.0 D1 60.0 Dotv 14.0 n 4.0 h 2.0 Mb 12.0 dtr 8.0 b 14.0 h4 33.0 Dm 26.0 Dn 15.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 15) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D 95.0 D1 65.0 Dotv 14.0 n 4.0 h 2.0 Mb 12.0 dtr 12.0 b 14.0 h4 33.0 Dm 30.0 Dn 19.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 20) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D 105.0 D1 75.0 Dotv 14.0 n 4.0 h 2.0 Mb 12.0 dtr 18.0 b 14.0 h4 34.0 Dm 38.0 Dn 26.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 25) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D 115.0 D1 85.0 Dotv 14.0 n 4.0 h 2.0 Mb 12.0 dtr 25.0 b 14.0 h4 36.0 Dm 45.0 Dn 33.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 32) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D 135.0 D1 100.0 Dotv 18.0 n 4.0 h 2.0 Mb 16.0 dtr 31.0 b 16.0 h4 43.0 Dm 56.0 Dn 39.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 40) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D 145.0 D1 110.0 Dotv 18.0 n 4.0 h 3.0 Mb 16.0 dtr 38.0 b 16.0 h4 45.0 Dm 64.0 Dn 46.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 50) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D 160.0 D1 125.0 Dotv 18.0 n 4.0 h 3.0 Mb 16.0 dtr 49.0 b 17.0 h4 45.0 Dm 76.0 Dn 58.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 65) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D 180.0 D1 145.0 Dotv 18.0 n 8.0 h 3.0 Mb 16.0 dtr 66.0 b 19.0 h4 50.0 Dm 96.0 Dn 77.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 80) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D 195.0 D1 160.0 Dotv 18.0 n 8.0 h 3.0 Mb 16.0 dtr 78.0 b 19.0 h4 52.0 Dm 110.0 Dn 90.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 100) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D 230.0 D1 190.0 Dotv 22.0 n 8.0 h 3.0 Mb 20.0 dtr 96.0 b 21.0 h4 58.0 Dm 132.0 Dn 110.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 125) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D 270.0 D1 220.0 Dotv 26.0 n 8.0 h 3.0 Mb 24.0 dtr 121.0 b 23.0 h4 65.0 Dm 160.0 Dn 135.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 150) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D 300.0 D1 250.0 Dotv 26.0 n 8.0 h 3.0 Mb 24.0 dtr 146.0 b 25.0 h4 68.0 Dm 186.0 Dn 161.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 175) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D 330.0 D1 280.0 Dotv 26.0 n 12.0 h 3.0 Mb 24.0 dtr 177.0 b 25.0 h4 70.0 Dm 216.0 Dn 196.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 200) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D 360.0 D1 310.0 Dotv 26.0 n 12.0 h 3.0 Mb 24.0 dtr 202.0 b 27.0 h4 75.0 Dm 245.0 Dn 222.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 225) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D 395.0 D1 340.0 Dotv 30.0 n 12.0 h 3.0 Mb 27.0 dtr 226.0 b 29.0 h4 75.0 Dm 270.0 Dn 248.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 250) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D 425.0 D1 370.0 Dotv 30.0 n 12.0 h 3.0 Mb 27.0 dtr 254.0 b 29.0 h4 75.0 Dm 300.0 Dn 278.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 300) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D 485.0 D1 430.0 Dotv 30.0 n 16.0 h 4.0 Mb 27.0 dtr 303.0 b 32.0 h4 80.0 Dm 352.0 Dn 330.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 350) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D 550.0 D1 490.0 Dotv 33.0 n 16.0 h 4.0 Mb 30.0 dtr 351.0 b 36.0 h4 85.0 Dm 406.0 Dn 382.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 400) (= Py 2.5) (= Ryad 1)) (setq D 610.0 D1 550.0 Dotv 36.0 n 16.0 h 4.0 Mb 33.0 dtr 398.0 b 40.0 h4 100.0 Dm 464.0 Dn 432.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 400) (= Py 2.5) (= Ryad 2)) (setq D 610.0 D1 550.0 Dotv 33.0 n 16.0 h 4.0 Mb 30.0 dtr 398.0 b 40.0 h4 100.0 Dm 464.0 Dn 432.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 450) (= Py 2.5) (= Ryad 1)) (setq D 660.0 D1 600.0 Dotv 36.0 n 20.0 h 4.0 Mb 33.0 dtr 450.0 b 42.0 h4 100.0 Dm 515.0 Dn 484.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 450) (= Py 2.5) (= Ryad 2)) (setq D 660.0 D1 600.0 Dotv 33.0 n 20.0 h 4.0 Mb 30.0 dtr 450.0 b 42.0 h4 100.0 Dm 515.0 Dn 484.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 500) (= Py 2.5) (= Ryad 1)) (setq D 730.0 D1 660.0 Dotv 36.0 n 20.0 h 4.0 Mb 33.0 dtr 500.0 b 44.0 h4 100.0 Dm 570.0 Dn 535.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 500) (= Py 2.5) (= Ryad 2)) (setq D 730.0 D1 660.0 Dotv 39.0 n 20.0 h 4.0 Mb 36.0 dtr 500.0 b 44.0 h4 100.0 Dm 570.0 Dn 535.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 600) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D 840.0 D1 770.0 Dotv 39.0 n 20.0 h 5.0 Mb 36.0 dtr 600.0 b 49.0 h4 115.0 Dm 670.0 Dn 636.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 700) (= Py 2.5) (= Ryad 1)) (setq D 960.0 D1 875.0 Dotv 42.0 n 24.0 h 5.0 Mb 39.0 dtr 690.0 b 53.0 h4 125.0 Dm 766.0 Dn 726.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 700) (= Py 2.5) (= Ryad 2)) (setq D 960.0 D1 875.0 Dotv 45.0 n 24.0 h 5.0 Mb 42.0 dtr 690.0 b 53.0 h4 125.0 Dm 766.0 Dn 726.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 800) (= Py 2.5) (= Ryad 1)) (setq D 1075.0 D1 990.0 Dotv 48.0 n 24.0 h 5.0 Mb 45.0 dtr 790.0 b 55.0 h4 135.0 Dm 874.0 Dn 826.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 800) (= Py 2.5) (= Ryad 2)) (setq D 1075.0 D1 990.0 Dotv 45.0 n 24.0 h 5.0 Mb 42.0 dtr 790.0 b 55.0 h4 135.0 Dm 874.0 Dn 826.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 900) (= Py 2.5) (= Ryad 1)) (setq D 1185.0 D1 1090.0 Dotv 48.0 n 28.0 h 5.0 Mb 45.0 dtr 892.0 b 57.0 h4 145.0 Dm 980.0 Dn 926.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 900) (= Py 2.5) (= Ryad 2)) (setq D 1185.0 D1 1090.0 Dotv 52.0 n 28.0 h 5.0 Mb 48.0 dtr 892.0 b 57.0 h4 145.0 Dm 980.0 Dn 926.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 1000) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D 1315.0 D1 1210.0 Dotv 56.0 n 28.0 h 5.0 Mb 52.0 dtr 992.0 b 59.0 h4 150.0 Dm 1084.0 Dn 1028.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 1200) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D 1525.0 D1 1420.0 Dotv 56.0 n 32.0 h 5.0 Mb 52.0 dtr 1192.0 b 62.0 h4 160.0 Dm 1288.0 Dn 1228.0))

(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 10) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 42.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 15) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 47.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 20) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 58.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 25) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 68.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 32) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 78.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 40) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 88.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 50) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 102.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 65) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 122.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 80) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 133.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 100) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 158.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 125) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 184.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 150) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 212.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 175) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 242.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 200) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 278.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 225) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 305.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 250) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 335.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 300) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 390.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 350) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 450.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 400) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 505.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 450) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 555.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 500) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 615.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 600) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 720.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 700) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 820.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 800) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 930.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 900) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 1030.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 1000) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 1140.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 1200) (= Py 2.5) (or (= Ryad 1) (= Ryad 2))) (setq D2 1350.0))

(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 2.5) (= Ryad 1)) (setq D4 34.0 D6 35.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 2.5) (= Ryad 2)) (setq D4 34.0 D6 35.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 2.5) (= Ryad 1)) (setq D4 39.0 D6 40.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 2.5) (= Ryad 2)) (setq D4 39.0 D6 40.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 2.5) (= Ryad 1)) (setq D4 50.0 D6 51.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 2.5) (= Ryad 2)) (setq D4 50.0 D6 51.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 2.5) (= Ryad 1)) (setq D4 57.0 D6 58.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 2.5) (= Ryad 2)) (setq D4 57.0 D6 58.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 2.5) (= Ryad 1)) (setq D4 65.0 D6 66.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 2.5) (= Ryad 2)) (setq D4 65.0 D6 66.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 2.5) (= Ryad 1)) (setq D4 75.0 D6 76.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 2.5) (= Ryad 2)) (setq D4 75.0 D6 76.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 2.5) (= Ryad 1)) (setq D4 87.0 D6 88.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 2.5) (= Ryad 2)) (setq D4 87.0 D6 88.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 2.5) (= Ryad 1)) (setq D4 109.0 D6 110.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 2.5) (= Ryad 2)) (setq D4 109.0 D6 110.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 2.5) (= Ryad 1)) (setq D4 120.0 D6 121.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 2.5) (= Ryad 2)) (setq D4 120.0 D6 121.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 2.5) (= Ryad 1)) (setq D4 149.0 D6 150.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 2.5) (= Ryad 2)) (setq D4 149.0 D6 150.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 2.5) (= Ryad 1)) (setq D4 175.0 D6 176.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 2.5) (= Ryad 2)) (setq D4 175.0 D6 176.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 2.5) (= Ryad 1)) (setq D4 203.0 D6 204.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 2.5) (= Ryad 2)) (setq D4 203.0 D6 204.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 2.5) (= Ryad 1)) (setq D4 233.0 D6 234.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 2.5) (= Ryad 2)) (setq D4 233.0 D6 234.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 2.5) (= Ryad 1)) (setq D4 259.0 D6 260.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 2.5) (= Ryad 2)) (setq D4 259.0 D6 260.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 2.5) (= Ryad 1)) (setq D4 286.0 D6 287.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 2.5) (= Ryad 2)) (setq D4 286.0 D6 287.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 2.5) (= Ryad 1)) (setq D4 312.0 D6 313.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 2.5) (= Ryad 2)) (setq D4 312.0 D6 313.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 2.5) (= Ryad 1)) (setq D4 363.0 D6 364.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 2.5) (= Ryad 2)) (setq D4 363.0 D6 364.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 2.5) (= Ryad 1)) (setq D4 421.0 D6 422.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 2.5) (= Ryad 2)) (setq D4 421.0 D6 422.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 2.5) (= Ryad 1)) (setq D4 473.0 D6 474.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 2.5) (= Ryad 2)) (setq D4 473.0 D6 474.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 450) (= Py 2.5) (= Ryad 1)) (setq D4 523.0 D6 524.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 450) (= Py 2.5) (= Ryad 2)) (setq D4 523.0 D6 524.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 2.5) (= Ryad 1)) (setq D4 575.0 D6 576.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 2.5) (= Ryad 2)) (setq D4 575.0 D6 576.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 2.5) (= Ryad 1)) (setq D4 675.0 D6 676.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 2.5) (= Ryad 2)) (setq D4 677.0 D6 678.0 h1 6.0 h2 5.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 700) (= Py 2.5) (= Ryad 1)) (setq D4 777.0 D6 778.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 700) (= Py 2.5) (= Ryad 2)) (setq D4 777.0 D6 778.0 h1 6.0 h2 5.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 800) (= Py 2.5) (= Ryad 1)) (setq D4 882.0 D6 883.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 800) (= Py 2.5) (= Ryad 2)) (setq D4 877.0 D6 878.0 h1 6.0 h2 5.0))

(if (and (or (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 2.5) (= Ryad 1)) (setq D3 24.0 D5 23.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 2.5) (= Ryad 2)) (setq D3 24.0 D5 23.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 2.5) (= Ryad 1)) (setq D3 29.0 D5 28.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 2.5) (= Ryad 2)) (setq D3 29.0 D5 28.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 2.5) (= Ryad 1)) (setq D3 36.0 D5 35.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 2.5) (= Ryad 2)) (setq D3 36.0 D5 35.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 2.5) (= Ryad 1)) (setq D3 43.0 D5 42.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 2.5) (= Ryad 2)) (setq D3 43.0 D5 42.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 2.5) (= Ryad 1)) (setq D3 51.0 D5 50.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 2.5) (= Ryad 2)) (setq D3 51.0 D5 50.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 2.5) (= Ryad 1)) (setq D3 61.0 D5 60.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 2.5) (= Ryad 2)) (setq D3 61.0 D5 60.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 2.5) (= Ryad 1)) (setq D3 73.0 D5 72.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 2.5) (= Ryad 2)) (setq D3 73.0 D5 72.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 2.5) (= Ryad 1)) (setq D3 95.0 D5 94.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 2.5) (= Ryad 2)) (setq D3 95.0 D5 94.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 2.5) (= Ryad 1)) (setq D3 106.0 D5 105.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 2.5) (= Ryad 2)) (setq D3 106.0 D5 105.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 2.5) (= Ryad 1)) (setq D3 129.0 D5 128.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 2.5) (= Ryad 2)) (setq D3 129.0 D5 128.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 2.5) (= Ryad 1)) (setq D3 155.0 D5 154.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 2.5) (= Ryad 2)) (setq D3 155.0 D5 154.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 2.5) (= Ryad 1)) (setq D3 183.0 D5 182.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 2.5) (= Ryad 2)) (setq D3 183.0 D5 182.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 2.5) (= Ryad 1)) (setq D3 213.0 D5 212.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 2.5) (= Ryad 2)) (setq D3 213.0 D5 212.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 2.5) (= Ryad 1)) (setq D3 239.0 D5 238.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 2.5) (= Ryad 2)) (setq D3 239.0 D5 238.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 2.5) (= Ryad 1)) (setq D3 266.0 D5 265.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 2.5) (= Ryad 2)) (setq D3 266.0 D5 265.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 2.5) (= Ryad 1)) (setq D3 292.0 D5 291.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 2.5) (= Ryad 2)) (setq D3 292.0 D5 291.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 2.5) (= Ryad 1)) (setq D3 343.0 D5 342.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 2.5) (= Ryad 2)) (setq D3 343.0 D5 342.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 2.5) (= Ryad 1)) (setq D3 395.0 D5 394.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 2.5) (= Ryad 2)) (setq D3 395.0 D5 394.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 2.5) (= Ryad 1)) (setq D3 447.0 D5 446.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 2.5) (= Ryad 2)) (setq D3 447.0 D5 446.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 450) (= Py 2.5) (= Ryad 1)) (setq D3 497.0 D5 496.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 450) (= Py 2.5) (= Ryad 2)) (setq D3 497.0 D5 496.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 2.5) (= Ryad 1)) (setq D3 549.0 D5 548.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 2.5) (= Ryad 2)) (setq D3 549.0 D5 548.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 2.5) (= Ryad 1)) (setq D3 649.0 D5 648.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 2.5) (= Ryad 2)) (setq D3 651.0 D5 650.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 700) (= Py 2.5) (= Ryad 1)) (setq D3 751.0 D5 750.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 700) (= Py 2.5) (= Ryad 2)) (setq D3 751.0 D5 750.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 800) (= Py 2.5) (= Ryad 1)) (setq D3 856.0 D5 855.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 800) (= Py 2.5) (= Ryad 2)) (setq D3 851.0 D5 850.0))

;давление 4,0 МПа

(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 10) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D 90.0 D1 60.0 Dotv 14.0 n 4.0 h 2.0 Mb 12.0 dtr 8.0 b 14.0 h4 33.0 Dm 26.0 Dn 15.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 15) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D 95.0 D1 65.0 Dotv 14.0 n 4.0 h 2.0 Mb 12.0 dtr 12.0 b 14.0 h4 33.0 Dm 30.0 Dn 19.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 20) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D 105.0 D1 75.0 Dotv 14.0 n 4.0 h 2.0 Mb 12.0 dtr 18.0 b 14.0 h4 34.0 Dm 38.0 Dn 26.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 25) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D 115.0 D1 85.0 Dotv 14.0 n 4.0 h 2.0 Mb 12.0 dtr 25.0 b 14.0 h4 36.0 Dm 45.0 Dn 33.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 32) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D 135.0 D1 100.0 Dotv 18.0 n 4.0 h 2.0 Mb 16.0 dtr 31.0 b 16.0 h4 43.0 Dm 56.0 Dn 39.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 40) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D 145.0 D1 110.0 Dotv 18.0 n 4.0 h 3.0 Mb 16.0 dtr 38.0 b 16.0 h4 45.0 Dm 64.0 Dn 46.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 50) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D 160.0 D1 125.0 Dotv 18.0 n 4.0 h 3.0 Mb 16.0 dtr 48.0 b 17.0 h4 45.0 Dm 76.0 Dn 58.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 65) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D 180.0 D1 145.0 Dotv 18.0 n 8.0 h 3.0 Mb 16.0 dtr 66.0 b 19.0 h4 50.0 Dm 96.0 Dn 77.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 80) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D 195.0 D1 160.0 Dotv 18.0 n 8.0 h 3.0 Mb 16.0 dtr 78.0 b 21.0 h4 55.0 Dm 112.0 Dn 90.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 100) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D 230.0 D1 190.0 Dotv 22.0 n 8.0 h 3.0 Mb 20.0 dtr 96.0 b 23.0 h4 65.0 Dm 138.0 Dn 110.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 125) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D 270.0 D1 220.0 Dotv 26.0 n 8.0 h 3.0 Mb 24.0 dtr 120.0 b 25.0 h4 65.0 Dm 160.0 Dn 135.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 150) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D 300.0 D1 250.0 Dotv 26.0 n 8.0 h 3.0 Mb 24.0 dtr 145.0 b 27.0 h4 68.0 Dm 186.0 Dn 161.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 175) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D 350.0 D1 295.0 Dotv 30.0 n 12.0 h 3.0 Mb 27.0 dtr 177.0 b 33.0 h4 85.0 Dm 226.0 Dn 196.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 200) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D 375.0 D1 320.0 Dotv 30.0 n 12.0 h 3.0 Mb 27.0 dtr 200.0 b 35.0 h4 85.0 Dm 250.0 Dn 222.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 225) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D 415.0 D1 355.0 Dotv 33.0 n 12.0 h 3.0 Mb 30.0 dtr 226.0 b 37.0 h4 95.0 Dm 280.0 Dn 248.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 250) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D 445.0 D1 385.0 Dotv 33.0 n 12.0 h 3.0 Mb 30.0 dtr 252.0 b 39.0 h4 98.0 Dm 310.0 Dn 278.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 300) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D 510.0 D1 450.0 Dotv 33.0 n 16.0 h 4.0 Mb 30.0 dtr 301.0 b 42.0 h4 112.0 Dm 368.0 Dn 330.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 350) (= Py 4.0) (= Ryad 1)) (setq D 570.0 D1 510.0 Dotv 36.0 n 16.0 h 4.0 Mb 33.0 dtr 351.0 b 48.0 h4 116.0 Dm 418.0 Dn 382.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 350) (= Py 4.0) (= Ryad 2)) (setq D 570.0 D1 510.0 Dotv 33.0 n 16.0 h 4.0 Mb 30.0 dtr 351.0 b 48.0 h4 116.0 Dm 418.0 Dn 382.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 400) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D 655.0 D1 585.0 Dotv 39.0 n 16.0 h 4.0 Mb 36.0 dtr 398.0 b 54.0 h4 135.0 Dm 480.0 Dn 432.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 450) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D 680.0 D1 610.0 Dotv 39.0 n 20.0 h 4.0 Mb 36.0 dtr 448.0 b 56.0 h4 135.0 Dm 530.0 Dn 484.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 500) (= Py 4.0) (= Ryad 1)) (setq D 755.0 D1 670.0 Dotv 42.0 n 20.0 h 4.0 Mb 39.0 dtr 495.0 b 58.0 h4 140.0 Dm 580.0 Dn 535.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 500) (= Py 4.0) (= Ryad 2)) (setq D 755.0 D1 670.0 Dotv 45.0 n 20.0 h 4.0 Mb 42.0 dtr 495.0 b 58.0 h4 140.0 Dm 580.0 Dn 535.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 600) (= Py 4.0) (= Ryad 1)) (setq D 890.0 D1 795.0 Dotv 48.0 n 20.0 h 5.0 Mb 45.0 dtr 595.0 b 58.0 h4 140.0 Dm 686.0 Dn 636.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 600) (= Py 4.0) (= Ryad 2)) (setq D 890.0 D1 795.0 Dotv 52.0 n 20.0 h 5.0 Mb 48.0 dtr 595.0 b 58.0 h4 140.0 Dm 686.0 Dn 636.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 700) (= Py 4.0) (= Ryad 1)) (setq D 995.0 D1 900.0 Dotv 48.0 n 24.0 h 5.0 Mb 45.0 dtr 695.0 b 63.0 h4 160.0 Dm 790.0 Dn 726.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 700) (= Py 4.0) (= Ryad 2)) (setq D 995.0 D1 900.0 Dotv 52.0 n 24.0 h 5.0 Mb 48.0 dtr 695.0 b 63.0 h4 160.0 Dm 790.0 Dn 726.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 800) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D 1135.0 D1 1030.0 Dotv 56.0 n 24.0 h 5.0 Mb 52.0 dtr 795.0 b 71.0 h4 190.0 Dm 908.0 Dn 826.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 900) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D 1250.0 D1 1140.0 Dotv 56.0 n 28.0 h 5.0 Mb 52.0 dtr 895.0 b 74.0 h4 215.0 Dm 1024.0 Dn 926.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 1000) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D 1360.0 D1 1250.0 Dotv 56.0 n 28.0 h 5.0 Mb 52.0 dtr 995.0 b 77.0 h4 235.0 Dm 1140.0 Dn 1028.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 1200) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D 1575.0 D1 1460.0 Dotv 62.0 n 32.0 h 5.0 Mb 56.0 dtr 1195.0 b 80.0 h4 250.0 Dm 1350.0 Dn 1228.0))

(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 10) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 42.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 15) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 47.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 20) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 58.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 25) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 68.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 32) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 78.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 40) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 88.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 50) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 102.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 65) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 122.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 80) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 133.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 100) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 158.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 125) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 184.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 150) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 212.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 175) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 242.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 200) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 285.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 225) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 315.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 250) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 345.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 300) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 410.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 350) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 465.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 400) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 535.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 450) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 560.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 500) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 615.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 600) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 735.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 700) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 840.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 800) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 960.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 900) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 1070.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 1000) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 1180.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 1200) (= Py 4.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 1380.0))

(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 4.0) (= Ryad 1)) (setq D4 34.0 D6 35.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 4.0) (= Ryad 2)) (setq D4 34.0 D6 35.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 4.0) (= Ryad 1)) (setq D4 39.0 D6 40.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 4.0) (= Ryad 2)) (setq D4 39.0 D6 40.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 4.0) (= Ryad 1)) (setq D4 50.0 D6 51.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 4.0) (= Ryad 2)) (setq D4 50.0 D6 51.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 4.0) (= Ryad 1)) (setq D4 57.0 D6 58.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 4.0) (= Ryad 2)) (setq D4 57.0 D6 58.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 4.0) (= Ryad 1)) (setq D4 65.0 D6 66.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 4.0) (= Ryad 2)) (setq D4 65.0 D6 66.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 4.0) (= Ryad 1)) (setq D4 75.0 D6 76.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 4.0) (= Ryad 2)) (setq D4 75.0 D6 76.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 4.0) (= Ryad 1)) (setq D4 87.0 D6 88.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 4.0) (= Ryad 2)) (setq D4 87.0 D6 88.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 4.0) (= Ryad 1)) (setq D4 109.0 D6 110.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 4.0) (= Ryad 2)) (setq D4 109.0 D6 110.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 4.0) (= Ryad 1)) (setq D4 120.0 D6 121.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 4.0) (= Ryad 2)) (setq D4 120.0 D6 121.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 4.0) (= Ryad 1)) (setq D4 149.0 D6 150.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 4.0) (= Ryad 2)) (setq D4 149.0 D6 150.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 4.0) (= Ryad 1)) (setq D4 175.0 D6 176.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 4.0) (= Ryad 2)) (setq D4 175.0 D6 176.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 4.0) (= Ryad 1)) (setq D4 203.0 D6 204.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 4.0) (= Ryad 2)) (setq D4 203.0 D6 204.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 4.0) (= Ryad 1)) (setq D4 233.0 D6 234.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 4.0) (= Ryad 2)) (setq D4 233.0 D6 234.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 4.0) (= Ryad 1)) (setq D4 259.0 D6 260.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 4.0) (= Ryad 2)) (setq D4 259.0 D6 260.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 4.0) (= Ryad 1)) (setq D4 286.0 D6 287.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 4.0) (= Ryad 2)) (setq D4 286.0 D6 287.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 4.0) (= Ryad 1)) (setq D4 312.0 D6 313.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 4.0) (= Ryad 2)) (setq D4 312.0 D6 313.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 4.0) (= Ryad 1)) (setq D4 363.0 D6 364.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 4.0) (= Ryad 2)) (setq D4 363.0 D6 364.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 4.0) (= Ryad 1)) (setq D4 421.0 D6 422.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 4.0) (= Ryad 2)) (setq D4 421.0 D6 422.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 4.0) (= Ryad 1)) (setq D4 473.0 D6 474.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 4.0) (= Ryad 2)) (setq D4 473.0 D6 474.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 450) (= Py 4.0) (= Ryad 1)) (setq D4 523.0 D6 524.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 450) (= Py 4.0) (= Ryad 2)) (setq D4 523.0 D6 524.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 4.0) (= Ryad 1)) (setq D4 575.0 D6 576.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 4.0) (= Ryad 2)) (setq D4 575.0 D6 576.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 4.0) (= Ryad 1)) (setq D4 675.0 D6 676.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 4.0) (= Ryad 2)) (setq D4 677.0 D6 678.0 h1 6.0 h2 5.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 700) (= Py 4.0) (= Ryad 1)) (setq D4 777.0 D6 778.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 700) (= Py 4.0) (= Ryad 2)) (setq D4 777.0 D6 778.0 h1 6.0 h2 5.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 800) (= Py 4.0) (= Ryad 1)) (setq D4 882.0 D6 883.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 800) (= Py 4.0) (= Ryad 2)) (setq D4 877.0 D6 878.0 h1 6.0 h2 5.0))

(if (and (or (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 4.0) (= Ryad 1)) (setq D3 24.0 D5 23.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 4.0) (= Ryad 2)) (setq D3 24.0 D5 23.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 4.0) (= Ryad 1)) (setq D3 29.0 D5 28.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 4.0) (= Ryad 2)) (setq D3 29.0 D5 28.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 4.0) (= Ryad 1)) (setq D3 36.0 D5 35.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 4.0) (= Ryad 2)) (setq D3 36.0 D5 35.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 4.0) (= Ryad 1)) (setq D3 43.0 D5 42.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 4.0) (= Ryad 2)) (setq D3 43.0 D5 42.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 4.0) (= Ryad 1)) (setq D3 51.0 D5 50.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 4.0) (= Ryad 2)) (setq D3 51.0 D5 50.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 4.0) (= Ryad 1)) (setq D3 61.0 D5 60.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 4.0) (= Ryad 2)) (setq D3 61.0 D5 60.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 4.0) (= Ryad 1)) (setq D3 73.0 D5 72.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 4.0) (= Ryad 2)) (setq D3 73.0 D5 72.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 4.0) (= Ryad 1)) (setq D3 95.0 D5 94.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 4.0) (= Ryad 2)) (setq D3 95.0 D5 94.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 4.0) (= Ryad 1)) (setq D3 106.0 D5 105.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 4.0) (= Ryad 2)) (setq D3 106.0 D5 105.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 4.0) (= Ryad 1)) (setq D3 129.0 D5 128.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 4.0) (= Ryad 2)) (setq D3 129.0 D5 128.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 4.0) (= Ryad 1)) (setq D3 155.0 D5 154.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 4.0) (= Ryad 2)) (setq D3 155.0 D5 154.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 4.0) (= Ryad 1)) (setq D3 183.0 D5 182.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 4.0) (= Ryad 2)) (setq D3 183.0 D5 182.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 4.0) (= Ryad 1)) (setq D3 213.0 D5 212.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 4.0) (= Ryad 2)) (setq D3 213.0 D5 212.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 4.0) (= Ryad 1)) (setq D3 239.0 D5 238.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 4.0) (= Ryad 2)) (setq D3 239.0 D5 238.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 4.0) (= Ryad 1)) (setq D3 266.0 D5 265.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 4.0) (= Ryad 2)) (setq D3 266.0 D5 265.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 4.0) (= Ryad 1)) (setq D3 292.0 D5 291.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 4.0) (= Ryad 2)) (setq D3 292.0 D5 291.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 4.0) (= Ryad 1)) (setq D3 343.0 D5 342.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 4.0) (= Ryad 2)) (setq D3 343.0 D5 342.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 4.0) (= Ryad 1)) (setq D3 395.0 D5 394.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 4.0) (= Ryad 2)) (setq D3 395.0 D5 394.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 4.0) (= Ryad 1)) (setq D3 447.0 D5 446.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 4.0) (= Ryad 2)) (setq D3 447.0 D5 446.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 450) (= Py 4.0) (= Ryad 1)) (setq D3 497.0 D5 496.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 450) (= Py 4.0) (= Ryad 2)) (setq D3 497.0 D5 496.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 4.0) (= Ryad 1)) (setq D3 549.0 D5 548.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 4.0) (= Ryad 2)) (setq D3 549.0 D5 548.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 4.0) (= Ryad 1)) (setq D3 649.0 D5 648.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 4.0) (= Ryad 2)) (setq D3 651.0 D5 650.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 700) (= Py 4.0) (= Ryad 1)) (setq D3 751.0 D5 750.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 700) (= Py 4.0) (= Ryad 2)) (setq D3 751.0 D5 750.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 800) (= Py 4.0) (= Ryad 1)) (setq D3 856.0 D5 855.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 800) (= Py 4.0) (= Ryad 2)) (setq D3 851.0 D5 850.0))

;давление 6,3 МПа

(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 10) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D 100.0 D1 70.0 Dotv 14.0 n 4.0 h 2.0 Mb 12.0 dtr 8.0 b 16.0 h4 46.0 Dm 34.0 Dn 15.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 15) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D 105.0 D1 75.0 Dotv 14.0 n 4.0 h 2.0 Mb 12.0 dtr 12.0 b 16.0 h4 46.0 Dm 38.0 Dn 19.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 20) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D 125.0 D1 90.0 Dotv 18.0 n 4.0 h 2.0 Mb 16.0 dtr 18.0 b 18.0 h4 54.0 Dm 48.0 Dn 26.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 25) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D 135.0 D1 100.0 Dotv 18.0 n 4.0 h 2.0 Mb 16.0 dtr 25.0 b 20.0 h4 56.0 Dm 52.0 Dn 33.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 32) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D 150.0 D1 110.0 Dotv 22.0 n 4.0 h 2.0 Mb 20.0 dtr 31.0 b 21.0 h4 60.0 Dm 64.0 Dn 39.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 40) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D 165.0 D1 125.0 Dotv 22.0 n 4.0 h 3.0 Mb 20.0 dtr 37.0 b 21.0 h4 65.0 Dm 74.0 Dn 46.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 50) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D 175.0 D1 135.0 Dotv 22.0 n 4.0 h 3.0 Mb 20.0 dtr 47.0 b 23.0 h4 67.0 Dm 86.0 Dn 58.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 65) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D 200.0 D1 160.0 Dotv 22.0 n 8.0 h 3.0 Mb 20.0 dtr 64.0 b 25.0 h4 72.0 Dm 106.0 Dn 77.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 80) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D 210.0 D1 170.0 Dotv 22.0 n 8.0 h 3.0 Mb 20.0 dtr 77.0 b 27.0 h4 72.0 Dm 120.0 Dn 90.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 100) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D 250.0 D1 200.0 Dotv 26.0 n 8.0 h 3.0 Mb 24.0 dtr 94.0 b 29.0 h4 77.0 Dm 140.0 Dn 110.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 125) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D 295.0 D1 240.0 Dotv 30.0 n 8.0 h 3.0 Mb 27.0 dtr 118.0 b 33.0 h4 95.0 Dm 172.0 Dn 135.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 150) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D 340.0 D1 280.0 Dotv 33.0 n 8.0 h 3.0 Mb 30.0 dtr 142.0 b 35.0 h4 105.0 Dm 206.0 Dn 161.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 175) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D 370.0 D1 310.0 Dotv 33.0 n 12.0 h 3.0 Mb 30.0 dtr 174.0 b 39.0 h4 105.0 Dm 232.0 Dn 196.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 200) (= Py 6.3) (= Ryad 1)) (setq D 405.0 D1 345.0 Dotv 36.0 n 12.0 h 3.0 Mb 33.0 dtr 198.0 b 41.0 h4 110.0 Dm 264.0 Dn 222.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 200) (= Py 6.3) (= Ryad 2)) (setq D 405.0 D1 345.0 Dotv 33.0 n 12.0 h 3.0 Mb 30.0 dtr 198.0 b 41.0 h4 110.0 Dm 264.0 Dn 222.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 225) (= Py 6.3) (= Ryad 1)) (setq D 430.0 D1 370.0 Dotv 36.0 n 12.0 h 3.0 Mb 33.0 dtr 222.0 b 43.0 h4 115.0 Dm 290.0 Dn 248.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 225) (= Py 6.3) (= Ryad 2)) (setq D 430.0 D1 370.0 Dotv 33.0 n 12.0 h 3.0 Mb 30.0 dtr 222.0 b 43.0 h4 115.0 Dm 290.0 Dn 248.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 250) (= Py 6.3) (= Ryad 1)) (setq D 470.0 D1 400.0 Dotv 36.0 n 12.0 h 3.0 Mb 33.0 dtr 246.0 b 45.0 h4 115.0 Dm 316.0 Dn 278.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 250) (= Py 6.3) (= Ryad 2)) (setq D 470.0 D1 400.0 Dotv 39.0 n 12.0 h 3.0 Mb 36.0 dtr 246.0 b 45.0 h4 115.0 Dm 316.0 Dn 278.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 300) (= Py 6.3) (= Ryad 1)) (setq D 530.0 D1 460.0 Dotv 36.0 n 16.0 h 4.0 Mb 33.0 dtr 294.0 b 50.0 h4 120.0 Dm 370.0 Dn 330.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 300) (= Py 6.3) (= Ryad 2)) (setq D 530.0 D1 460.0 Dotv 39.0 n 16.0 h 4.0 Mb 36.0 dtr 294.0 b 50.0 h4 120.0 Dm 370.0 Dn 330.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 350) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D 595.0 D1 525.0 Dotv 39.0 n 16.0 h 4.0 Mb 36.0 dtr 342.0 b 56.0 h4 140.0 Dm 430.0 Dn 382.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 400) (= Py 6.3) (= Ryad 1)) (setq D 670.0 D1 585.0 Dotv 42.0 n 16.0 h 4.0 Mb 39.0 dtr 386.0 b 62.0 h4 155.0 Dm 484.0 Dn 432.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 400) (= Py 6.3) (= Ryad 2)) (setq D 670.0 D1 585.0 Dotv 45.0 n 16.0 h 4.0 Mb 42.0 dtr 386.0 b 62.0 h4 155.0 Dm 484.0 Dn 432.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 500) (= Py 6.3) (= Ryad 1)) (setq D 800.0 D1 705.0 Dotv 48.0 n 20.0 h 4.0 Mb 45.0 dtr 485.0 b 66.0 h4 165.0 Dm 594.0 Dn 535.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 500) (= Py 6.3) (= Ryad 2)) (setq D 800.0 D1 705.0 Dotv 52.0 n 20.0 h 4.0 Mb 48.0 dtr 485.0 b 66.0 h4 165.0 Dm 594.0 Dn 535.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 600) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D 925.0 D1 820.0 Dotv 56.0 n 20.0 h 5.0 Mb 52.0 dtr 585.0 b 71.0 h4 180.0 Dm 704.0 Dn 636.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 700) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D 1045.0 D1 935.0 Dotv 56.0 n 24.0 h 5.0 Mb 52.0 dtr 685.0 b 76.0 h4 225.0 Dm 820.0 Dn 726.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 800) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D 1165.0 D1 1050.0 Dotv 62.0 n 24.0 h 5.0 Mb 56.0 dtr 785.0 b 85.0 h4 225.0 Dm 920.0 Dn 826.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 900) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D 1285.0 D1 1170.0 Dotv 62.0 n 28.0 h 5.0 Mb 56.0 dtr 885.0 b 88.0 h4 265.0 Dm 1050.0 Dn 926.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 1000) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D 1415.0 D1 1290.0 Dotv 70.0 n 28.0 h 5.0 Mb 64.0 dtr 985.0 b 92.0 h4 280.0 Dm 1160.0 Dn 1028.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 1200) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D 1665.0 D1 1530.0 Dotv 78.0 n 32.0 h 5.0 Mb 72.0 dtr 1185.0 b 95.0 h4 315.0 Dm 1386.0 Dn 1228.0))

(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 10) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 42.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 15) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 47.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 20) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 58.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 25) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 68.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 32) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 78.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 40) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 88.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 50) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 102.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 65) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 122.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 80) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 133.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 100) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 158.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 125) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 184.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 150) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 212.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 175) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 242.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 200) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 285.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 225) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 315.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 250) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 345.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 300) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 410.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 350) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 465.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 400) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 535.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 500) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 615.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 600) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 735.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 700) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 840.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 800) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 960.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 900) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 1070.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 1000) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 1180.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 1200) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D2 1380.0))

(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 6.3) (= Ryad 1)) (setq D4 34.0 D6 35.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 6.3) (= Ryad 2)) (setq D4 34.0 D6 35.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 6.3) (= Ryad 1)) (setq D4 39.0 D6 40.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 6.3) (= Ryad 2)) (setq D4 39.0 D6 40.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 6.3) (= Ryad 1)) (setq D4 50.0 D6 51.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 6.3) (= Ryad 2)) (setq D4 50.0 D6 51.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 6.3) (= Ryad 1)) (setq D4 57.0 D6 58.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 6.3) (= Ryad 2)) (setq D4 57.0 D6 58.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 6.3) (= Ryad 1)) (setq D4 65.0 D6 66.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 6.3) (= Ryad 2)) (setq D4 65.0 D6 66.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 6.3) (= Ryad 1)) (setq D4 75.0 D6 76.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 6.3) (= Ryad 2)) (setq D4 75.0 D6 76.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 6.3) (= Ryad 1)) (setq D4 87.0 D6 88.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 6.3) (= Ryad 2)) (setq D4 87.0 D6 88.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 6.3) (= Ryad 1)) (setq D4 109.0 D6 110.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 6.3) (= Ryad 2)) (setq D4 109.0 D6 110.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 6.3) (= Ryad 1)) (setq D4 120.0 D6 121.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 6.3) (= Ryad 2)) (setq D4 120.0 D6 121.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 6.3) (= Ryad 1)) (setq D4 149.0 D6 150.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 6.3) (= Ryad 2)) (setq D4 149.0 D6 150.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 6.3) (= Ryad 1)) (setq D4 175.0 D6 176.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 6.3) (= Ryad 2)) (setq D4 175.0 D6 176.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 6.3) (= Ryad 1)) (setq D4 203.0 D6 204.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 6.3) (= Ryad 2)) (setq D4 203.0 D6 204.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 6.3) (= Ryad 1)) (setq D4 233.0 D6 234.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 6.3) (= Ryad 2)) (setq D4 233.0 D6 234.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 6.3) (= Ryad 1)) (setq D4 259.0 D6 260.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 6.3) (= Ryad 2)) (setq D4 259.0 D6 260.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 6.3) (= Ryad 1)) (setq D4 286.0 D6 287.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 6.3) (= Ryad 2)) (setq D4 286.0 D6 287.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 6.3) (= Ryad 1)) (setq D4 312.0 D6 313.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 6.3) (= Ryad 2)) (setq D4 312.0 D6 313.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 6.3) (= Ryad 1)) (setq D4 363.0 D6 364.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 6.3) (= Ryad 2)) (setq D4 363.0 D6 364.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 6.3) (= Ryad 1)) (setq D4 421.0 D6 422.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 6.3) (= Ryad 2)) (setq D4 421.0 D6 422.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 6.3) (= Ryad 1)) (setq D4 473.0 D6 474.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 6.3) (= Ryad 2)) (setq D4 473.0 D6 474.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 6.3) (= Ryad 1)) (setq D4 575.0 D6 576.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 6.3) (= Ryad 2)) (setq D4 575.0 D6 576.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 6.3) (= Ryad 1)) (setq D4 675.0 D6 676.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 6.3) (= Ryad 2)) (setq D4 677.0 D6 678.0 h1 6.0 h2 5.0))

(if (and (or (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 6.3) (= Ryad 1)) (setq D3 24.0 D5 23.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 6.3) (= Ryad 2)) (setq D3 24.0 D5 23.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 6.3) (= Ryad 1)) (setq D3 29.0 D5 28.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 6.3) (= Ryad 2)) (setq D3 29.0 D5 28.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 6.3) (= Ryad 1)) (setq D3 36.0 D5 35.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 6.3) (= Ryad 2)) (setq D3 36.0 D5 35.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 6.3) (= Ryad 1)) (setq D3 43.0 D5 42.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 6.3) (= Ryad 2)) (setq D3 43.0 D5 42.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 6.3) (= Ryad 1)) (setq D3 51.0 D5 50.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 6.3) (= Ryad 2)) (setq D3 51.0 D5 50.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 6.3) (= Ryad 1)) (setq D3 61.0 D5 60.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 6.3) (= Ryad 2)) (setq D3 61.0 D5 60.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 6.3) (= Ryad 1)) (setq D3 73.0 D5 72.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 6.3) (= Ryad 2)) (setq D3 73.0 D5 72.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 6.3) (= Ryad 1)) (setq D3 95.0 D5 94.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 6.3) (= Ryad 2)) (setq D3 95.0 D5 94.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 6.3) (= Ryad 1)) (setq D3 106.0 D5 105.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 6.3) (= Ryad 2)) (setq D3 106.0 D5 105.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 6.3) (= Ryad 1)) (setq D3 129.0 D5 128.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 6.3) (= Ryad 2)) (setq D3 129.0 D5 128.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 6.3) (= Ryad 1)) (setq D3 155.0 D5 154.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 6.3) (= Ryad 2)) (setq D3 155.0 D5 154.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 6.3) (= Ryad 1)) (setq D3 183.0 D5 182.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 6.3) (= Ryad 2)) (setq D3 183.0 D5 182.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 6.3) (= Ryad 1)) (setq D3 213.0 D5 212.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 6.3) (= Ryad 2)) (setq D3 213.0 D5 212.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 6.3) (= Ryad 1)) (setq D3 239.0 D5 238.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 6.3) (= Ryad 2)) (setq D3 239.0 D5 238.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 6.3) (= Ryad 1)) (setq D3 266.0 D5 265.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 6.3) (= Ryad 2)) (setq D3 266.0 D5 265.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 6.3) (= Ryad 1)) (setq D3 292.0 D5 291.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 6.3) (= Ryad 2)) (setq D3 292.0 D5 291.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 6.3) (= Ryad 1)) (setq D3 343.0 D5 342.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 6.3) (= Ryad 2)) (setq D3 343.0 D5 342.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 6.3) (= Ryad 1)) (setq D3 395.0 D5 394.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 6.3) (= Ryad 2)) (setq D3 395.0 D5 394.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 6.3) (= Ryad 1)) (setq D3 447.0 D5 446.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 6.3) (= Ryad 2)) (setq D3 447.0 D5 446.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 6.3) (= Ryad 1)) (setq D3 549.0 D5 548.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 500) (= Py 6.3) (= Ryad 2)) (setq D3 549.0 D5 548.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 6.3) (= Ryad 1)) (setq D3 649.0 D5 648.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 600) (= Py 6.3) (= Ryad 2)) (setq D3 651.0 D5 650.0))

(if (and (= Isp 6) (= Dy 10) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D7 18.0))
(if (and (= Isp 6) (= Dy 15) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D7 24.0))
(if (and (= Isp 6) (= Dy 20) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D7 30.0))
(if (and (= Isp 6) (= Dy 25) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D7 35.0))
(if (and (= Isp 6) (= Dy 32) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D7 42.0))
(if (and (= Isp 6) (= Dy 40) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D7 52.0))
(if (and (= Isp 6) (= Dy 50) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D7 63.0))
(if (and (= Isp 6) (= Dy 65) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D7 85.0))
(if (and (= Isp 6) (= Dy 80) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D7 97.0))
(if (and (= Isp 6) (= Dy 100) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D7 124.0))
(if (and (= Isp 6) (= Dy 125) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D7 153.0))
(if (and (= Isp 6) (= Dy 150) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D7 181.0))
(if (and (= Isp 6) (= Dy 175) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D7 218.0))
(if (and (= Isp 6) (= Dy 200) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D7 243.0))
(if (and (= Isp 6) (= Dy 225) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D7 270.0))
(if (and (= Isp 6) (= Dy 250) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D7 298.0))
(if (and (= Isp 6) (= Dy 300) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D7 345.0))
(if (and (= Isp 6) (= Dy 350) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D7 394.0))
(if (and (= Isp 6) (= Dy 400) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D7 445.0))

(if (and (= Isp 7) (= Dy 10) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D8 35.0 D9 50.0 h3 6.5 b2 9.0 r 2.8))
(if (and (= Isp 7) (= Dy 15) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D8 35.0 D9 55.0 h3 6.5 b2 9.0 r 2.8))
(if (and (= Isp 7) (= Dy 20) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D8 45.0 D9 58.0 h3 6.5 b2 9.0 r 2.8))
(if (and (= Isp 7) (= Dy 25) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D8 50.0 D9 68.0 h3 6.5 b2 9.0 r 2.8))
(if (and (= Isp 7) (= Dy 32) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D8 65.0 D9 78.0 h3 6.5 b2 9.0 r 2.8))
(if (and (= Isp 7) (= Dy 40) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D8 75.0 D9 88.0 h3 6.5 b2 9.0 r 2.8))
(if (and (= Isp 7) (= Dy 50) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D8 85.0 D9 102.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 65) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D8 110.0 D9 132.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 80) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D8 115.0 D9 133.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 100) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D8 145.0 D9 170.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 125) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D8 175.0 D9 205.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 150) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D8 205.0 D9 240.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 175) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D8 235.0 D9 270.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 200) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D8 265.0 D9 285.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 225) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D8 280.0 D9 315.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 250) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D8 320.0 D9 345.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 300) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D8 375.0 D9 410.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 350) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D8 420.0 D9 465.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 400) (= Py 6.3) (or (= Ryad 1) (= Ryad 2))) (setq D8 480.0 D9 535.0 h3 8.0 b2 12.0 r 4.0))

;давление 10,0 МПа

(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 10) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D 100.0 D1 70.0 Dotv 14.0 n 4.0 h 2.0 Mb 12.0 dtr 8.0 b 16.0 h4 43.0 Dm 34.0 Dn 15.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 15) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D 105.0 D1 75.0 Dotv 14.0 n 4.0 h 2.0 Mb 12.0 dtr 12.0 b 18.0 h4 46.0 Dm 38.0 Dn 19.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 20) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D 125.0 D1 90.0 Dotv 18.0 n 4.0 h 2.0 Mb 16.0 dtr 18.0 b 20.0 h4 51.0 Dm 48.0 Dn 26.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 25) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D 135.0 D1 100.0 Dotv 18.0 n 4.0 h 2.0 Mb 16.0 dtr 25.0 b 22.0 h4 56.0 Dm 52.0 Dn 33.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 32) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D 150.0 D1 110.0 Dotv 22.0 n 4.0 h 2.0 Mb 20.0 dtr 31.0 b 22.0 h4 60.0 Dm 64.0 Dn 39.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 40) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D 165.0 D1 125.0 Dotv 22.0 n 4.0 h 3.0 Mb 20.0 dtr 37.0 b 23.0 h4 67.0 Dm 76.0 Dn 46.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 50) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D 195.0 D1 145.0 Dotv 26.0 n 4.0 h 3.0 Mb 24.0 dtr 45.0 b 25.0 h4 68.0 Dm 86.0 Dn 58.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 65) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D 220.0 D1 170.0 Dotv 26.0 n 8.0 h 3.0 Mb 24.0 dtr 62.0 b 29.0 h4 80.0 Dm 110.0 Dn 77.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 80) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D 230.0 D1 180.0 Dotv 26.0 n 8.0 h 3.0 Mb 24.0 dtr 75.0 b 31.0 h4 87.0 Dm 124.0 Dn 90.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 100) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D 265.0 D1 210.0 Dotv 30.0 n 8.0 h 3.0 Mb 27.0 dtr 92.0 b 35.0 h4 97.0 Dm 146.0 Dn 110.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 125) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D 310.0 D1 250.0 Dotv 33.0 n 8.0 h 3.0 Mb 30.0 dtr 112.0 b 39.0 h4 112.0 Dm 180.0 Dn 135.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 150) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D 350.0 D1 290.0 Dotv 33.0 n 12.0 h 3.0 Mb 30.0 dtr 136.0 b 43.0 h4 125.0 Dm 214.0 Dn 161.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 175) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D 380.0 D1 320.0 Dotv 33.0 n 12.0 h 3.0 Mb 30.0 dtr 166.0 b 45.0 h4 125.0 Dm 246.0 Dn 196.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 200) (= Py 10.0) (= Ryad 1)) (setq D 430.0 D1 360.0 Dotv 36.0 n 12.0 h 3.0 Mb 33.0 dtr 190.0 b 51.0 h4 140.0 Dm 276.0 Dn 222.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 200) (= Py 10.0) (= Ryad 2)) (setq D 430.0 D1 360.0 Dotv 39.0 n 12.0 h 3.0 Mb 36.0 dtr 190.0 b 51.0 h4 140.0 Dm 276.0 Dn 222.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 225) (= Py 10.0) (= Ryad 1)) (setq D 470.0 D1 400.0 Dotv 39.0 n 12.0 h 3.0 Mb 36.0 dtr 212.0 b 53.0 h4 155.0 Dm 312.0 Dn 248.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 225) (= Py 10.0) (= Ryad 2)) (setq D 470.0 D1 400.0 Dotv 39.0 n 12.0 h 3.0 Mb 36.0 dtr 212.0 b 53.0 h4 155.0 Dm 312.0 Dn 248.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 250) (= Py 10.0) (= Ryad 1)) (setq D 500.0 D1 430.0 Dotv 39.0 n 12.0 h 3.0 Mb 36.0 dtr 236.0 b 57.0 h4 160.0 Dm 340.0 Dn 278.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 250) (= Py 10.0) (= Ryad 2)) (setq D 500.0 D1 430.0 Dotv 39.0 n 12.0 h 3.0 Mb 36.0 dtr 236.0 b 57.0 h4 160.0 Dm 340.0 Dn 278.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 300) (= Py 10.0) (= Ryad 1)) (setq D 585.0 D1 500.0 Dotv 42.0 n 16.0 h 4.0 Mb 39.0 dtr 284.0 b 66.0 h4 180.0 Dm 400.0 Dn 330.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 300) (= Py 10.0) (= Ryad 2)) (setq D 585.0 D1 500.0 Dotv 45.0 n 16.0 h 4.0 Mb 42.0 dtr 284.0 b 66.0 h4 180.0 Dm 400.0 Dn 330.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 350) (= Py 10.0) (= Ryad 1)) (setq D 655.0 D1 560.0 Dotv 48.0 n 16.0 h 4.0 Mb 45.0 dtr 332.0 b 72.0 h4 195.0 Dm 460.0 Dn 382.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 350) (= Py 10.0) (= Ryad 2)) (setq D 655.0 D1 560.0 Dotv 52.0 n 16.0 h 4.0 Mb 48.0 dtr 332.0 b 72.0 h4 195.0 Dm 460.0 Dn 382.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 400) (= Py 10.0) (= Ryad 1)) (setq D 715.0 D1 620.0 Dotv 48.0 n 16.0 h 4.0 Mb 45.0 dtr 376.0 b 76.0 h4 200.0 Dm 510.0 Dn 432.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 400) (= Py 10.0) (= Ryad 2)) (setq D 715.0 D1 620.0 Dotv 52.0 n 16.0 h 4.0 Mb 48.0 dtr 376.0 b 76.0 h4 200.0 Dm 510.0 Dn 432.0))

(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 10) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 42.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 15) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 47.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 20) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 58.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 25) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 68.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 32) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 78.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 40) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 88.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 50) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 102.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 65) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 122.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 80) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 133.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 100) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 158.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 125) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 184.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 150) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 212.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 175) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 242.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 200) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 285.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 225) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 315.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 250) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 345.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 300) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 410.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 350) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 465.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 400) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 535.0))

(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 10.0) (= Ryad 1)) (setq D4 34.0 D6 35.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 10.0) (= Ryad 2)) (setq D4 34.0 D6 35.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 10.0) (= Ryad 1)) (setq D4 39.0 D6 40.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 10.0) (= Ryad 2)) (setq D4 39.0 D6 40.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 10.0) (= Ryad 1)) (setq D4 50.0 D6 51.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 10.0) (= Ryad 2)) (setq D4 50.0 D6 51.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 10.0) (= Ryad 1)) (setq D4 57.0 D6 58.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 10.0) (= Ryad 2)) (setq D4 57.0 D6 58.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 10.0) (= Ryad 1)) (setq D4 65.0 D6 66.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 10.0) (= Ryad 2)) (setq D4 65.0 D6 66.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 10.0) (= Ryad 1)) (setq D4 75.0 D6 76.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 10.0) (= Ryad 2)) (setq D4 75.0 D6 76.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 10.0) (= Ryad 1)) (setq D4 87.0 D6 88.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 10.0) (= Ryad 2)) (setq D4 87.0 D6 88.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 10.0) (= Ryad 1)) (setq D4 109.0 D6 110.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 10.0) (= Ryad 2)) (setq D4 109.0 D6 110.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 10.0) (= Ryad 1)) (setq D4 120.0 D6 121.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 10.0) (= Ryad 2)) (setq D4 120.0 D6 121.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 10.0) (= Ryad 1)) (setq D4 149.0 D6 150.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 10.0) (= Ryad 2)) (setq D4 149.0 D6 150.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 10.0) (= Ryad 1)) (setq D4 175.0 D6 176.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 10.0) (= Ryad 2)) (setq D4 175.0 D6 176.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 10.0) (= Ryad 1)) (setq D4 203.0 D6 204.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 10.0) (= Ryad 2)) (setq D4 203.0 D6 204.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 10.0) (= Ryad 1)) (setq D4 233.0 D6 234.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 10.0) (= Ryad 2)) (setq D4 233.0 D6 234.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 10.0) (= Ryad 1)) (setq D4 259.0 D6 260.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 10.0) (= Ryad 2)) (setq D4 259.0 D6 260.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 10.0) (= Ryad 1)) (setq D4 286.0 D6 287.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 10.0) (= Ryad 2)) (setq D4 286.0 D6 287.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 10.0) (= Ryad 1)) (setq D4 312.0 D6 313.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 10.0) (= Ryad 2)) (setq D4 312.0 D6 313.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 10.0) (= Ryad 1)) (setq D4 363.0 D6 364.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 10.0) (= Ryad 2)) (setq D4 363.0 D6 364.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 10.0) (= Ryad 1)) (setq D4 421.0 D6 422.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 10.0) (= Ryad 2)) (setq D4 421.0 D6 422.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 10.0) (= Ryad 1)) (setq D4 473.0 D6 474.0 h1 5.0 h2 4.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 10.0) (= Ryad 2)) (setq D4 473.0 D6 474.0 h1 5.0 h2 4.0))

(if (and (or (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 10.0) (= Ryad 1)) (setq D3 24.0 D5 23.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 10) (= Py 10.0) (= Ryad 2)) (setq D3 24.0 D5 23.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 10.0) (= Ryad 1)) (setq D3 29.0 D5 28.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 10.0) (= Ryad 2)) (setq D3 29.0 D5 28.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 10.0) (= Ryad 1)) (setq D3 36.0 D5 35.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 10.0) (= Ryad 2)) (setq D3 36.0 D5 35.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 10.0) (= Ryad 1)) (setq D3 43.0 D5 42.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 10.0) (= Ryad 2)) (setq D3 43.0 D5 42.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 10.0) (= Ryad 1)) (setq D3 51.0 D5 50.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 10.0) (= Ryad 2)) (setq D3 51.0 D5 50.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 10.0) (= Ryad 1)) (setq D3 61.0 D5 60.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 10.0) (= Ryad 2)) (setq D3 61.0 D5 60.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 10.0) (= Ryad 1)) (setq D3 73.0 D5 72.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 10.0) (= Ryad 2)) (setq D3 73.0 D5 72.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 10.0) (= Ryad 1)) (setq D3 95.0 D5 94.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 10.0) (= Ryad 2)) (setq D3 95.0 D5 94.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 10.0) (= Ryad 1)) (setq D3 106.0 D5 105.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 10.0) (= Ryad 2)) (setq D3 106.0 D5 105.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 10.0) (= Ryad 1)) (setq D3 129.0 D5 128.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 10.0) (= Ryad 2)) (setq D3 129.0 D5 128.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 10.0) (= Ryad 1)) (setq D3 155.0 D5 154.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 10.0) (= Ryad 2)) (setq D3 155.0 D5 154.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 10.0) (= Ryad 1)) (setq D3 183.0 D5 182.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 10.0) (= Ryad 2)) (setq D3 183.0 D5 182.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 10.0) (= Ryad 1)) (setq D3 213.0 D5 212.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 10.0) (= Ryad 2)) (setq D3 213.0 D5 212.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 10.0) (= Ryad 1)) (setq D3 239.0 D5 238.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 10.0) (= Ryad 2)) (setq D3 239.0 D5 238.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 10.0) (= Ryad 1)) (setq D3 266.0 D5 265.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 10.0) (= Ryad 2)) (setq D3 266.0 D5 265.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 10.0) (= Ryad 1)) (setq D3 292.0 D5 291.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 10.0) (= Ryad 2)) (setq D3 292.0 D5 291.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 10.0) (= Ryad 1)) (setq D3 343.0 D5 342.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 10.0) (= Ryad 2)) (setq D3 343.0 D5 342.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 10.0) (= Ryad 1)) (setq D3 395.0 D5 394.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 350) (= Py 10.0) (= Ryad 2)) (setq D3 395.0 D5 394.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 10.0) (= Ryad 1)) (setq D3 447.0 D5 446.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 400) (= Py 10.0) (= Ryad 2)) (setq D3 447.0 D5 446.0))

(if (and (= Isp 6) (= Dy 10) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 18.0))
(if (and (= Isp 6) (= Dy 15) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 24.0))
(if (and (= Isp 6) (= Dy 20) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 30.0))
(if (and (= Isp 6) (= Dy 25) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 35.0))
(if (and (= Isp 6) (= Dy 32) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 42.0))
(if (and (= Isp 6) (= Dy 40) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 52.0))
(if (and (= Isp 6) (= Dy 50) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 63.0))
(if (and (= Isp 6) (= Dy 65) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 85.0))
(if (and (= Isp 6) (= Dy 80) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 97.0))
(if (and (= Isp 6) (= Dy 100) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 124.0))
(if (and (= Isp 6) (= Dy 125) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 153.0))
(if (and (= Isp 6) (= Dy 150) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 181.0))
(if (and (= Isp 6) (= Dy 175) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 218.0))
(if (and (= Isp 6) (= Dy 200) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 243.0))
(if (and (= Isp 6) (= Dy 225) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 270.0))
(if (and (= Isp 6) (= Dy 250) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 298.0))
(if (and (= Isp 6) (= Dy 300) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 345.0))
(if (and (= Isp 6) (= Dy 350) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 394.0))
(if (and (= Isp 6) (= Dy 400) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 445.0))

(if (and (= Isp 7) (= Dy 10) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 35.0 D9 50.0 h3 6.5 b2 9.0 r 2.8))
(if (and (= Isp 7) (= Dy 15) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 35.0 D9 55.0 h3 6.5 b2 9.0 r 2.8))
(if (and (= Isp 7) (= Dy 20) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 45.0 D9 58.0 h3 6.5 b2 9.0 r 2.8))
(if (and (= Isp 7) (= Dy 25) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 50.0 D9 68.0 h3 6.5 b2 9.0 r 2.8))
(if (and (= Isp 7) (= Dy 32) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 65.0 D9 78.0 h3 6.5 b2 9.0 r 2.8))
(if (and (= Isp 7) (= Dy 40) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 75.0 D9 88.0 h3 6.5 b2 9.0 r 2.8))
(if (and (= Isp 7) (= Dy 50) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 85.0 D9 102.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 65) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 110.0 D9 140.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 80) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 115.0 D9 150.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 100) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 145.0 D9 175.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 125) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 175.0 D9 210.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 150) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 205.0 D9 250.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 175) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 235.0 D9 280.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 200) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 265.0 D9 285.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 225) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 280.0 D9 315.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 250) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 320.0 D9 345.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 300) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 375.0 D9 410.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 350) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 420.0 D9 465.0 h3 11.0 b2 17.0 r 5.8))
(if (and (= Isp 7) (= Dy 400) (= Py 10.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 480.0 D9 535.0 h3 11.0 b2 17.0 r 5.8))

;давление 16,0 МПа

(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 15) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D 105.0 D1 75.0 Dotv 14.0 n 4.0 h 2.0 Mb 12.0 dtr 12.0 b 18.0 h4 50.0 Dm 38.0 Dn 19.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 20) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D 125.0 D1 90.0 Dotv 18.0 n 4.0 h 2.0 Mb 16.0 dtr 18.0 b 20.0 h4 56.0 Dm 48.0 Dn 26.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 25) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D 135.0 D1 100.0 Dotv 18.0 n 4.0 h 2.0 Mb 16.0 dtr 25.0 b 22.0 h4 56.0 Dm 52.0 Dn 33.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 32) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D 150.0 D1 110.0 Dotv 22.0 n 4.0 h 2.0 Mb 20.0 dtr 31.0 b 22.0 h4 65.0 Dm 64.0 Dn 39.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 40) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D 165.0 D1 125.0 Dotv 22.0 n 4.0 h 3.0 Mb 20.0 dtr 37.0 b 25.0 h4 72.0 Dm 76.0 Dn 46.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 50) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D 195.0 D1 145.0 Dotv 26.0 n 4.0 h 3.0 Mb 24.0 dtr 45.0 b 27.0 h4 75.0 Dm 86.0 Dn 58.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 65) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D 220.0 D1 170.0 Dotv 26.0 n 8.0 h 3.0 Mb 24.0 dtr 62.0 b 31.0 h4 85.0 Dm 110.0 Dn 77.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 80) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D 230.0 D1 180.0 Dotv 26.0 n 8.0 h 3.0 Mb 24.0 dtr 75.0 b 33.0 h4 90.0 Dm 124.0 Dn 90.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 100) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D 265.0 D1 210.0 Dotv 30.0 n 8.0 h 3.0 Mb 27.0 dtr 92.0 b 37.0 h4 100.0 Dm 146.0 Dn 110.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 125) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D 310.0 D1 250.0 Dotv 33.0 n 8.0 h 3.0 Mb 30.0 dtr 112.0 b 41.0 h4 115.0 Dm 180.0 Dn 135.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 150) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D 350.0 D1 290.0 Dotv 33.0 n 12.0 h 3.0 Mb 30.0 dtr 136.0 b 47.0 h4 130.0 Dm 214.0 Dn 161.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 175) (= Py 16.0) (= Ryad 1)) (setq D 380.0 D1 320.0 Dotv 36.0 n 12.0 h 3.0 Mb 33.0 dtr 166.0 b 51.0 h4 135.0 Dm 246.0 Dn 196.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 175) (= Py 16.0) (= Ryad 2)) (setq D 380.0 D1 320.0 Dotv 33.0 n 12.0 h 3.0 Mb 30.0 dtr 166.0 b 51.0 h4 135.0 Dm 246.0 Dn 196.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 200) (= Py 16.0) (= Ryad 1)) (setq D 430.0 D1 360.0 Dotv 36.0 n 12.0 h 3.0 Mb 33.0 dtr 190.0 b 57.0 h4 145.0 Dm 276.0 Dn 222.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 200) (= Py 16.0) (= Ryad 2)) (setq D 430.0 D1 360.0 Dotv 39.0 n 12.0 h 3.0 Mb 36.0 dtr 190.0 b 57.0 h4 145.0 Dm 276.0 Dn 222.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 225) (= Py 16.0) (= Ryad 1)) (setq D 470.0 D1 400.0 Dotv 39.0 n 12.0 h 3.0 Mb 36.0 dtr 212.0 b 60.0 h4 160.0 Dm 312.0 Dn 248.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 225) (= Py 16.0) (= Ryad 2)) (setq D 470.0 D1 400.0 Dotv 39.0 n 12.0 h 3.0 Mb 36.0 dtr 212.0 b 60.0 h4 160.0 Dm 312.0 Dn 248.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 250) (= Py 16.0) (= Ryad 1)) (setq D 500.0 D1 430.0 Dotv 42.0 n 12.0 h 3.0 Mb 39.0 dtr 236.0 b 65.0 h4 165.0 Dm 340.0 Dn 278.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 250) (= Py 16.0) (= Ryad 2)) (setq D 500.0 D1 430.0 Dotv 39.0 n 12.0 h 3.0 Mb 36.0 dtr 236.0 b 65.0 h4 165.0 Dm 340.0 Dn 278.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 300) (= Py 16.0) (= Ryad 1)) (setq D 585.0 D1 500.0 Dotv 42.0 n 16.0 h 4.0 Mb 39.0 dtr 284.0 b 74.0 h4 185.0 Dm 400.0 Dn 330.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 300) (= Py 16.0) (= Ryad 2)) (setq D 585.0 D1 500.0 Dotv 45.0 n 16.0 h 4.0 Mb 42.0 dtr 284.0 b 74.0 h4 185.0 Dm 400.0 Dn 330.0))

(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 15) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 47.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 20) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 58.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 25) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 68.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 32) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 78.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 40) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 88.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 50) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 102.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 65) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 122.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 80) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 133.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 100) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 158.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 125) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 184.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 150) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 212.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 175) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 242.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 200) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 285.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 225) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 315.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 250) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 345.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 300) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 410.0))

(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 16.0) (= Ryad 1)) (setq D4 39.0 D6 40.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 16.0) (= Ryad 2)) (setq D4 39.0 D6 40.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 16.0) (= Ryad 1)) (setq D4 50.0 D6 51.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 16.0) (= Ryad 2)) (setq D4 50.0 D6 51.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 16.0) (= Ryad 1)) (setq D4 57.0 D6 58.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 16.0) (= Ryad 2)) (setq D4 57.0 D6 58.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 16.0) (= Ryad 1)) (setq D4 65.0 D6 66.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 16.0) (= Ryad 2)) (setq D4 65.0 D6 66.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 16.0) (= Ryad 1)) (setq D4 75.0 D6 76.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 16.0) (= Ryad 2)) (setq D4 75.0 D6 76.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 16.0) (= Ryad 1)) (setq D4 87.0 D6 88.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 16.0) (= Ryad 2)) (setq D4 87.0 D6 88.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 16.0) (= Ryad 1)) (setq D4 109.0 D6 110.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 16.0) (= Ryad 2)) (setq D4 109.0 D6 110.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 16.0) (= Ryad 1)) (setq D4 120.0 D6 121.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 16.0) (= Ryad 2)) (setq D4 120.0 D6 121.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 16.0) (= Ryad 1)) (setq D4 149.0 D6 150.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 16.0) (= Ryad 2)) (setq D4 149.0 D6 150.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 16.0) (= Ryad 1)) (setq D4 175.0 D6 176.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 16.0) (= Ryad 2)) (setq D4 175.0 D6 176.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 16.0) (= Ryad 1)) (setq D4 203.0 D6 204.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 16.0) (= Ryad 2)) (setq D4 203.0 D6 204.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 16.0) (= Ryad 1)) (setq D4 233.0 D6 234.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 16.0) (= Ryad 2)) (setq D4 233.0 D6 234.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 16.0) (= Ryad 1)) (setq D4 259.0 D6 260.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 16.0) (= Ryad 2)) (setq D4 259.0 D6 260.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 16.0) (= Ryad 1)) (setq D4 286.0 D6 287.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 16.0) (= Ryad 2)) (setq D4 286.0 D6 287.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 16.0) (= Ryad 1)) (setq D4 312.0 D6 313.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 16.0) (= Ryad 2)) (setq D4 312.0 D6 313.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 16.0) (= Ryad 1)) (setq D4 363.0 D6 364.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 16.0) (= Ryad 2)) (setq D4 363.0 D6 364.0 h1 5.0 h2 4.0))

(if (and (or (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 16.0) (= Ryad 1)) (setq D3 29.0 D5 28.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 16.0) (= Ryad 2)) (setq D3 29.0 D5 28.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 16.0) (= Ryad 1)) (setq D3 36.0 D5 35.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 16.0) (= Ryad 2)) (setq D3 36.0 D5 35.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 16.0) (= Ryad 1)) (setq D3 43.0 D5 42.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 16.0) (= Ryad 2)) (setq D3 43.0 D5 42.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 16.0) (= Ryad 1)) (setq D3 51.0 D5 50.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 16.0) (= Ryad 2)) (setq D3 51.0 D5 50.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 16.0) (= Ryad 1)) (setq D3 61.0 D5 60.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 16.0) (= Ryad 2)) (setq D3 61.0 D5 60.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 16.0) (= Ryad 1)) (setq D3 73.0 D5 72.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 16.0) (= Ryad 2)) (setq D3 73.0 D5 72.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 16.0) (= Ryad 1)) (setq D3 95.0 D5 94.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 16.0) (= Ryad 2)) (setq D3 95.0 D5 94.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 16.0) (= Ryad 1)) (setq D3 106.0 D5 105.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 16.0) (= Ryad 2)) (setq D3 106.0 D5 105.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 16.0) (= Ryad 1)) (setq D3 129.0 D5 128.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 16.0) (= Ryad 2)) (setq D3 129.0 D5 128.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 16.0) (= Ryad 1)) (setq D3 155.0 D5 154.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 16.0) (= Ryad 2)) (setq D3 155.0 D5 154.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 16.0) (= Ryad 1)) (setq D3 183.0 D5 182.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 16.0) (= Ryad 2)) (setq D3 183.0 D5 182.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 16.0) (= Ryad 1)) (setq D3 213.0 D5 212.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 16.0) (= Ryad 2)) (setq D3 213.0 D5 212.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 16.0) (= Ryad 1)) (setq D3 239.0 D5 238.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 16.0) (= Ryad 2)) (setq D3 239.0 D5 238.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 16.0) (= Ryad 1)) (setq D3 266.0 D5 265.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 16.0) (= Ryad 2)) (setq D3 266.0 D5 265.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 16.0) (= Ryad 1)) (setq D3 292.0 D5 291.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 16.0) (= Ryad 2)) (setq D3 292.0 D5 291.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 16.0) (= Ryad 1)) (setq D3 343.0 D5 342.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 300) (= Py 16.0) (= Ryad 2)) (setq D3 343.0 D5 342.0))

(if (and (= Isp 6) (= Dy 15) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 24.0))
(if (and (= Isp 6) (= Dy 20) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 30.0))
(if (and (= Isp 6) (= Dy 25) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 35.0))
(if (and (= Isp 6) (= Dy 32) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 42.0))
(if (and (= Isp 6) (= Dy 40) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 52.0))
(if (and (= Isp 6) (= Dy 50) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 63.0))
(if (and (= Isp 6) (= Dy 65) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 85.0))
(if (and (= Isp 6) (= Dy 80) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 97.0))
(if (and (= Isp 6) (= Dy 100) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 124.0))
(if (and (= Isp 6) (= Dy 125) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 153.0))
(if (and (= Isp 6) (= Dy 150) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 181.0))
(if (and (= Isp 6) (= Dy 175) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 218.0))
(if (and (= Isp 6) (= Dy 200) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 243.0))
(if (and (= Isp 6) (= Dy 225) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 270.0))
(if (and (= Isp 6) (= Dy 250) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 298.0))
(if (and (= Isp 6) (= Dy 300) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 345.0))

(if (and (= Isp 7) (= Dy 15) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 35.0 D9 55.0 h3 6.5 b2 9.0 r 2.8))
(if (and (= Isp 7) (= Dy 20) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 45.0 D9 58.0 h3 6.5 b2 9.0 r 2.8))
(if (and (= Isp 7) (= Dy 25) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 50.0 D9 68.0 h3 6.5 b2 9.0 r 2.8))
(if (and (= Isp 7) (= Dy 32) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 65.0 D9 78.0 h3 6.5 b2 9.0 r 2.8))
(if (and (= Isp 7) (= Dy 40) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 75.0 D9 88.0 h3 6.5 b2 9.0 r 2.8))
(if (and (= Isp 7) (= Dy 50) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 95.0 D9 115.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 65) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 110.0 D9 140.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 80) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 130.0 D9 150.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 100) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 145.0 D9 175.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 125) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 190.0 D9 210.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 150) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 205.0 D9 250.0 h3 10.0 b2 14.0 r 4.2))
(if (and (= Isp 7) (= Dy 175) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 255.0 D9 280.0 h3 11.0 b2 17.0 r 5.8))
(if (and (= Isp 7) (= Dy 200) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 275.0 D9 315.0 h3 11.0 b2 17.0 r 5.8))
(if (and (= Isp 7) (= Dy 225) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 305.0 D9 350.0 h3 11.0 b2 17.0 r 5.8))
(if (and (= Isp 7) (= Dy 250) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 330.0 D9 380.0 h3 11.0 b2 17.0 r 5.8))
(if (and (= Isp 7) (= Dy 300) (= Py 16.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 380.0 D9 410.0 h3 14.0 b2 23.0 r 8.5))

;давление 20,0 МПа

(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 15) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D 120.0 D1 82.0 Dotv 22.0 n 4.0 h 2.0 Mb 20.0 dtr 14.0 b 24.0 h4 52.0 Dm 40.0 Dn 23.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 20) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D 130.0 D1 90.0 Dotv 22.0 n 4.0 h 2.0 Mb 20.0 dtr 19.0 b 26.0 h4 55.0 Dm 46.0 Dn 29.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 25) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D 150.0 D1 102.0 Dotv 26.0 n 4.0 h 2.0 Mb 24.0 dtr 25.0 b 28.0 h4 60.0 Dm 54.0 Dn 36.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 32) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D 160.0 D1 115.0 Dotv 26.0 n 4.0 h 2.0 Mb 24.0 dtr 31.0 b 30.0 h4 65.0 Dm 64.0 Dn 43.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 40) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D 170.0 D1 124.0 Dotv 26.0 n 4.0 h 3.0 Mb 24.0 dtr 36.0 b 31.0 h4 72.0 Dm 74.0 Dn 49.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 50) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D 210.0 D1 160.0 Dotv 26.0 n 8.0 h 3.0 Mb 24.0 dtr 46.0 b 37.0 h4 95.0 Dm 105.0 Dn 61.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 65) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D 260.0 D1 203.0 Dotv 30.0 n 8.0 h 3.0 Mb 27.0 dtr 68.0 b 45.0 h4 118.0 Dm 138.0 Dn 90.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 80) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D 290.0 D1 230.0 Dotv 33.0 n 8.0 h 3.0 Mb 30.0 dtr 80.0 b 51.0 h4 132.0 Dm 162.0 Dn 110.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 100) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D 360.0 D1 292.0 Dotv 39.0 n 8.0 h 3.0 Mb 36.0 dtr 102.0 b 63.0 h4 175.0 Dm 208.0 Dn 135.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 125) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D 385.0 D1 318.0 Dotv 39.0 n 12.0 h 3.0 Mb 36.0 dtr 130.0 b 73.0 h4 175.0 Dm 234.0 Dn 170.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 150) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D 440.0 D1 360.0 Dotv 45.0 n 12.0 h 3.0 Mb 42.0 dtr 150.0 b 79.0 h4 190.0 Dm 266.0 Dn 196.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 175) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D 475.0 D1 394.0 Dotv 45.0 n 12.0 h 3.0 Mb 42.0 dtr 170.0 b 81.0 h4 195.0 Dm 294.0 Dn 222.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 200) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D 535.0 D1 440.0 Dotv 52.0 n 12.0 h 3.0 Mb 48.0 dtr 192.0 b 89.0 h4 230.0 Dm 340.0 Dn 248.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 225) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D 580.0 D1 483.0 Dotv 56.0 n 12.0 h 3.0 Mb 52.0 dtr 212.0 b 97.0 h4 245.0 Dm 374.0 Dn 278.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 250) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D 670.0 D1 572.0 Dotv 56.0 n 16.0 h 3.0 Mb 52.0 dtr 254.0 b 107.0 h4 300.0 Dm 460.0 Dn 330.0))

(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 15) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 47.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 20) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 58.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 25) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 68.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 32) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 78.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 40) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 88.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 50) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 102.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 65) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 122.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 80) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 133.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 100) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 158.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 125) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 184.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 150) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 212.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 175) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 242.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 200) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 285.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 225) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 315.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9)) (= Dy 250) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D2 345.0))

(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 20.0) (= Ryad 1)) (setq D4 39.0 D6 40.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 20.0) (= Ryad 2)) (setq D4 39.0 D6 40.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 20.0) (= Ryad 1)) (setq D4 50.0 D6 51.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 20.0) (= Ryad 2)) (setq D4 50.0 D6 51.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 20.0) (= Ryad 1)) (setq D4 57.0 D6 58.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 20.0) (= Ryad 2)) (setq D4 57.0 D6 58.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 20.0) (= Ryad 1)) (setq D4 65.0 D6 66.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 20.0) (= Ryad 2)) (setq D4 65.0 D6 66.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 20.0) (= Ryad 1)) (setq D4 75.0 D6 76.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 20.0) (= Ryad 2)) (setq D4 75.0 D6 76.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 20.0) (= Ryad 1)) (setq D4 87.0 D6 88.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 20.0) (= Ryad 2)) (setq D4 87.0 D6 88.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 20.0) (= Ryad 1)) (setq D4 109.0 D6 110.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 20.0) (= Ryad 2)) (setq D4 109.0 D6 110.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 20.0) (= Ryad 1)) (setq D4 120.0 D6 121.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 20.0) (= Ryad 2)) (setq D4 120.0 D6 121.0 h1 4.0 h2 3.0))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 20.0) (= Ryad 1)) (setq D4 149.0 D6 150.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 20.0) (= Ryad 2)) (setq D4 149.0 D6 150.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 20.0) (= Ryad 1)) (setq D4 175.0 D6 176.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 20.0) (= Ryad 2)) (setq D4 175.0 D6 176.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 20.0) (= Ryad 1)) (setq D4 203.0 D6 204.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 20.0) (= Ryad 2)) (setq D4 203.0 D6 204.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 20.0) (= Ryad 1)) (setq D4 233.0 D6 234.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 20.0) (= Ryad 2)) (setq D4 233.0 D6 234.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 20.0) (= Ryad 1)) (setq D4 259.0 D6 260.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 20.0) (= Ryad 2)) (setq D4 259.0 D6 260.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 20.0) (= Ryad 1)) (setq D4 286.0 D6 287.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 20.0) (= Ryad 2)) (setq D4 286.0 D6 287.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 20.0) (= Ryad 1)) (setq D4 312.0 D6 313.0 h1 4.5 h2 3.5))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 20.0) (= Ryad 2)) (setq D4 312.0 D6 313.0 h1 4.5 h2 3.5))

(if (and (or (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 20.0) (= Ryad 1)) (setq D3 29.0 D5 28.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 15) (= Py 20.0) (= Ryad 2)) (setq D3 29.0 D5 28.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 20.0) (= Ryad 1)) (setq D3 36.0 D5 35.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 20) (= Py 20.0) (= Ryad 2)) (setq D3 36.0 D5 35.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 20.0) (= Ryad 1)) (setq D3 43.0 D5 42.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 25) (= Py 20.0) (= Ryad 2)) (setq D3 43.0 D5 42.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 20.0) (= Ryad 1)) (setq D3 51.0 D5 50.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 32) (= Py 20.0) (= Ryad 2)) (setq D3 51.0 D5 50.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 20.0) (= Ryad 1)) (setq D3 61.0 D5 60.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 40) (= Py 20.0) (= Ryad 2)) (setq D3 61.0 D5 60.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 20.0) (= Ryad 1)) (setq D3 73.0 D5 72.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 50) (= Py 20.0) (= Ryad 2)) (setq D3 73.0 D5 72.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 20.0) (= Ryad 1)) (setq D3 95.0 D5 94.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 65) (= Py 20.0) (= Ryad 2)) (setq D3 95.0 D5 94.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 20.0) (= Ryad 1)) (setq D3 106.0 D5 105.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 80) (= Py 20.0) (= Ryad 2)) (setq D3 106.0 D5 105.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 20.0) (= Ryad 1)) (setq D3 129.0 D5 128.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 100) (= Py 20.0) (= Ryad 2)) (setq D3 129.0 D5 128.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 20.0) (= Ryad 1)) (setq D3 155.0 D5 154.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 125) (= Py 20.0) (= Ryad 2)) (setq D3 155.0 D5 154.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 20.0) (= Ryad 1)) (setq D3 183.0 D5 182.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 150) (= Py 20.0) (= Ryad 2)) (setq D3 183.0 D5 182.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 20.0) (= Ryad 1)) (setq D3 213.0 D5 212.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 175) (= Py 20.0) (= Ryad 2)) (setq D3 213.0 D5 212.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 20.0) (= Ryad 1)) (setq D3 239.0 D5 238.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 200) (= Py 20.0) (= Ryad 2)) (setq D3 239.0 D5 238.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 20.0) (= Ryad 1)) (setq D3 266.0 D5 265.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 225) (= Py 20.0) (= Ryad 2)) (setq D3 266.0 D5 265.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 20.0) (= Ryad 1)) (setq D3 292.0 D5 291.0))
(if (and (or (= Isp 5) (= Isp 9)) (= Dy 250) (= Py 20.0) (= Ryad 2)) (setq D3 292.0 D5 291.0))

(if (and (= Isp 6) (= Dy 15) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 24.0))
(if (and (= Isp 6) (= Dy 20) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 30.0))
(if (and (= Isp 6) (= Dy 25) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 35.0))
(if (and (= Isp 6) (= Dy 32) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 42.0))
(if (and (= Isp 6) (= Dy 40) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 52.0))
(if (and (= Isp 6) (= Dy 50) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 63.0))
(if (and (= Isp 6) (= Dy 65) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 85.0))
(if (and (= Isp 6) (= Dy 80) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 97.0))
(if (and (= Isp 6) (= Dy 100) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 124.0))
(if (and (= Isp 6) (= Dy 125) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 153.0))
(if (and (= Isp 6) (= Dy 150) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 181.0))
(if (and (= Isp 6) (= Dy 175) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 218.0))
(if (and (= Isp 6) (= Dy 200) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D7 243.0))

(if (and (= Isp 7) (= Dy 15) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 40.0 D9 55.0 h3 6.5 b2 9.0 r 2.8))
(if (and (= Isp 7) (= Dy 20) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 45.0 D9 58.0 h3 6.5 b2 9.0 r 2.8))
(if (and (= Isp 7) (= Dy 25) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 50.0 D9 68.0 h3 6.5 b2 9.0 r 2.8))
(if (and (= Isp 7) (= Dy 32) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 65.0 D9 78.0 h3 6.5 b2 9.0 r 2.8))
(if (and (= Isp 7) (= Dy 40) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 75.0 D9 91.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 50) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 95.0 D9 129.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 65) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 130.0 D9 167.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 80) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 160.0 D9 190.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 100) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 190.0 D9 245.0 h3 8.0 b2 12.0 r 4.0))
(if (and (= Isp 7) (= Dy 125) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 205.0 D9 271.0 h3 10.0 b2 14.0 r 4.2))
(if (and (= Isp 7) (= Dy 150) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 240.0 D9 306.0 h3 11.0 b2 17.0 r 5.8))
(if (and (= Isp 7) (= Dy 175) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 275.0 D9 340.0 h3 11.0 b2 17.0 r 5.8))
(if (and (= Isp 7) (= Dy 200) (= Py 20.0) (or (= Ryad 1) (= Ryad 2))) (setq D8 305.0 D9 380.0 h3 11.0 b2 17.0 r 5.8))

(command "_osmode" 0
         "_.-layer" "_set" 0 ""
	 "_celweight" 009
	 "_.-view" "_front"
	 "_linetype" "_set" "ACAD_ISO04W100" "")
(if (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 7) (= Isp 9))
  (command "_line" (list (- 0 Vv Sap 20) 0 0) (list (+ Vn 2.0 h h4 20) 0 0) ""))
(if (= Isp 6) (setq f1 (atof (rtos (* (/ (- D7 dtr) 2) 0.35) 2 2))))
(if (= Isp 6) (command "_line" (list (- 0 Vv Sap 20) 0 0) (list (+ (- Vn f1 f1) Bl h h4 20) 0 0) ""))
;вычисляем нужен ли скос на патрубке
(if (and (> Ssh 1.0) (<= Ssh 4.0) (<= (/ (- Dnsh dn) 2.0) 1.0))
  (command "_linetype" "_set" "ByLayer" ""
	   "_celweight" 030
	   "_line" (list (- 0 Vv Sap) (/ Dnsh 2.0) 0) (list (- 0 Vv Sap) (- 0 (/ Dnsh 2.0)) 0) ""
	   "_line" (list (- Vn h4 h) (/ Dnsh 2.0) 0) (list (- Vn h4 h) (- 0 (/ Dnsh 2.0)) 0) ""
	   "_line" (list (- 0 Vv Sap) (/ Dnsh 2.0) 0) (list (- Vn h4 h) (/ Dnsh 2.0) 0) ""
	   "_line" (list (- 0 Vv Sap) (- 0 (/ Dnsh 2.0)) 0) (list (- Vn h4 h) (- 0 (/ Dnsh 2.0)) 0) ""
	   "_line" (list (- 0 Vv Sap) (- (/ Dnsh 2.0) Ssh) 0) (list (- Vn h4 h) (- (/ Dnsh 2.0) Ssh) 0) ""
	   "_line" (list (- 0 Vv Sap) (- 0 (- (/ Dnsh 2.0) Ssh)) 0) (list (- Vn h4 h) (- 0 (- (/ Dnsh 2.0) Ssh)) 0) ""
	   "_celweight" 009
	   "_bhatch" "_P" "ANSI31" "2" "0" (list (/ (- Vn h4) 2.0) (- (/ Dnsh 2.0) (/ Ssh 2.0)) 0) ""
	   "_bhatch" "_P" "ANSI31" "2" "0" (list (/ (- Vn h4) 2.0) (- 0 (- (/ Dnsh 2.0) (/ Ssh 2.0))) 0) ""
	   "_celweight" 030))
(if (and (> Ssh 1.0) (<= Ssh 4.0) (> (/ (- Dnsh dn) 2.0) 1.0))
  (setq f5 (atof (rtos (/ (* (/ (- Dnsh dn) 2.0) 0.9659) 0.2588) 2 2))))
(if (and (> Ssh 1.0) (<= Ssh 4.0) (> (/ (- Dnsh dn) 2.0) 1.0))
  (command "_linetype" "_set" "ByLayer" ""
	   "_celweight" 030
	   "_line" (list (- 0 Vv Sap) (/ Dnsh 2.0) 0) (list (- 0 Vv Sap) (- 0 (/ Dnsh 2.0)) 0) ""
	   "_line" (list (- Vn h4 h) (/ Dn 2.0) 0) (list (- Vn h4 h) (- 0 (/ dn 2.0)) 0) ""
	   "_line" (list (- 0 Vv Sap) (/ Dnsh 2.0) 0) (list (- Vn h4 h f5) (/ Dnsh 2.0) 0) ""
	   "_line" (list (- 0 Vv Sap) (- 0 (/ Dnsh 2.0)) 0) (list (- Vn h4 h f5) (- 0 (/ Dnsh 2.0)) 0) ""
	   "_line" (list (- Vn h4 h f5) (/ Dnsh 2.0) 0) (list (- Vn h4 h) (/ dn 2.0) 0) ""
	   "_line" (list (- Vn h4 h f5) (- 0 (/ Dnsh 2.0)) 0) (list (- Vn h4 h) (- 0 (/ dn 2.0)) 0) ""
	   "_line" (list (- 0 Vv Sap) (- (/ Dnsh 2.0) Ssh) 0) (list (- Vn h4 h) (- (/ Dnsh 2.0) Ssh) 0) ""
	   "_line" (list (- 0 Vv Sap) (- 0 (- (/ Dnsh 2.0) Ssh)) 0) (list (- Vn h4 h) (- 0 (- (/ Dnsh 2.0) Ssh)) 0) ""
	   "_celweight" 009
	   "_bhatch" "_P" "ANSI31" "2" "0" (list (/ (- Vn h4) 2.0) (- (/ Dnsh 2.0) (/ Ssh 2.0)) 0) ""
	   "_bhatch" "_P" "ANSI31" "2" "0" (list (/ (- Vn h4) 2.0) (- 0 (- (/ Dnsh 2.0) (/ Ssh 2.0))) 0) ""
	   "_celweight" 030))
(if (and (> Ssh 4.0) (<= Ssh 20.0) (<= (/ (- Dnsh dn) 2.0) 2.0))
  (command "_linetype" "_set" "ByLayer" ""
	   "_celweight" 030
	   "_line" (list (- 0 Vv Sap) (/ Dnsh 2.0) 0) (list (- 0 Vv Sap) (- 0 (/ Dnsh 2.0)) 0) ""
	   "_line" (list (- Vn h4 h) (/ Dnsh 2.0) 0) (list (- Vn h4 h) (- 0 (/ Dnsh 2.0)) 0) ""
	   "_line" (list (- 0 Vv Sap) (/ Dnsh 2.0) 0) (list (- Vn h4 h) (/ Dnsh 2.0) 0) ""
	   "_line" (list (- 0 Vv Sap) (- 0 (/ Dnsh 2.0)) 0) (list (- Vn h4 h) (- 0 (/ Dnsh 2.0)) 0) ""
	   "_line" (list (- 0 Vv Sap) (- (/ Dnsh 2.0) Ssh) 0) (list (- Vn h4 h) (- (/ Dnsh 2.0) Ssh) 0) ""
	   "_line" (list (- 0 Vv Sap) (- 0 (- (/ Dnsh 2.0) Ssh)) 0) (list (- Vn h4 h) (- 0 (- (/ Dnsh 2.0) Ssh)) 0) ""
	   "_celweight" 009
	   "_bhatch" "_P" "ANSI31" "2" "0" (list (/ (- Vn h4) 2.0) (- (/ Dnsh 2.0) (/ Ssh 2.0)) 0) ""
	   "_bhatch" "_P" "ANSI31" "2" "0" (list (/ (- Vn h4) 2.0) (- 0 (- (/ Dnsh 2.0) (/ Ssh 2.0))) 0) ""
	   "_celweight" 030))
(if (and (> Ssh 4.0) (<= Ssh 20.0) (> (/ (- Dnsh dn) 2.0) 2.0))
  (setq f5 (atof (rtos (/ (* (/ (- Dnsh dn) 2.0) 0.9659) 0.2588) 2 2))))
(if (and (> Ssh 4.0) (<= Ssh 20.0) (> (/ (- Dnsh dn) 2.0) 2.0))
  (command "_linetype" "_set" "ByLayer" ""
	   "_celweight" 030
	   "_line" (list (- 0 Vv Sap) (/ Dnsh 2.0) 0) (list (- 0 Vv Sap) (- 0 (/ Dnsh 2.0)) 0) ""
	   "_line" (list (- Vn h4 h) (/ Dn 2.0) 0) (list (- Vn h4 h) (- 0 (/ dn 2.0)) 0) ""
	   "_line" (list (- 0 Vv Sap) (/ Dnsh 2.0) 0) (list (- Vn h4 h f5) (/ Dnsh 2.0) 0) ""
	   "_line" (list (- 0 Vv Sap) (- 0 (/ Dnsh 2.0)) 0) (list (- Vn h4 h f5) (- 0 (/ Dnsh 2.0)) 0) ""
	   "_line" (list (- Vn h4 h f5) (/ Dnsh 2.0) 0) (list (- Vn h4 h) (/ dn 2.0) 0) ""
	   "_line" (list (- Vn h4 h f5) (- 0 (/ Dnsh 2.0)) 0) (list (- Vn h4 h) (- 0 (/ dn 2.0)) 0) ""
	   "_line" (list (- 0 Vv Sap) (- (/ Dnsh 2.0) Ssh) 0) (list (- Vn h4 h) (- (/ Dnsh 2.0) Ssh) 0) ""
	   "_line" (list (- 0 Vv Sap) (- 0 (- (/ Dnsh 2.0) Ssh)) 0) (list (- Vn h4 h) (- 0 (- (/ Dnsh 2.0) Ssh)) 0) ""
	   "_celweight" 009
	   "_bhatch" "_P" "ANSI31" "2" "0" (list (/ (- Vn h4) 2.0) (- (/ Dnsh 2.0) (/ Ssh 2.0)) 0) ""
	   "_bhatch" "_P" "ANSI31" "2" "0" (list (/ (- Vn h4) 2.0) (- 0 (- (/ Dnsh 2.0) (/ Ssh 2.0))) 0) ""
	   "_celweight" 030))
(if (and (> Ssh 20.0) (<= Ssh 30.0) (<= (/ (- Dnsh dn) 2.0) 3.0))
  (command "_linetype" "_set" "ByLayer" ""
	   "_celweight" 030
	   "_line" (list (- 0 Vv Sap) (/ Dnsh 2.0) 0) (list (- 0 Vv Sap) (- 0 (/ Dnsh 2.0)) 0) ""
	   "_line" (list (- Vn h4 h) (/ Dnsh 2.0) 0) (list (- Vn h4 h) (- 0 (/ Dnsh 2.0)) 0) ""
	   "_line" (list (- 0 Vv Sap) (/ Dnsh 2.0) 0) (list (- Vn h4 h) (/ Dnsh 2.0) 0) ""
	   "_line" (list (- 0 Vv Sap) (- 0 (/ Dnsh 2.0)) 0) (list (- Vn h4 h) (- 0 (/ Dnsh 2.0)) 0) ""
	   "_line" (list (- 0 Vv Sap) (- (/ Dnsh 2.0) Ssh) 0) (list (- Vn h4 h) (- (/ Dnsh 2.0) Ssh) 0) ""
	   "_line" (list (- 0 Vv Sap) (- 0 (- (/ Dnsh 2.0) Ssh)) 0) (list (- Vn h4 h) (- 0 (- (/ Dnsh 2.0) Ssh)) 0) ""
	   "_celweight" 009
	   "_bhatch" "_P" "ANSI31" "2" "0" (list (/ (- Vn h4) 2.0) (- (/ Dnsh 2.0) (/ Ssh 2.0)) 0) ""
	   "_bhatch" "_P" "ANSI31" "2" "0" (list (/ (- Vn h4) 2.0) (- 0 (- (/ Dnsh 2.0) (/ Ssh 2.0))) 0) ""
	   "_celweight" 030))
(if (and (> Ssh 20.0) (<= Ssh 30.0) (> (/ (- Dnsh dn) 2.0) 3.0))
  (setq f5 (atof (rtos (/ (* (/ (- Dnsh dn) 2.0) 0.9659) 0.2588) 2 2))))
(if (and (> Ssh 20.0) (<= Ssh 30.0) (> (/ (- Dnsh dn) 2.0) 3.0))
  (command "_linetype" "_set" "ByLayer" ""
	   "_celweight" 030
	   "_line" (list (- 0 Vv Sap) (/ Dnsh 2.0) 0) (list (- 0 Vv Sap) (- 0 (/ Dnsh 2.0)) 0) ""
	   "_line" (list (- Vn h4 h) (/ Dn 2.0) 0) (list (- Vn h4 h) (- 0 (/ dn 2.0)) 0) ""
	   "_line" (list (- 0 Vv Sap) (/ Dnsh 2.0) 0) (list (- Vn h4 h f5) (/ Dnsh 2.0) 0) ""
	   "_line" (list (- 0 Vv Sap) (- 0 (/ Dnsh 2.0)) 0) (list (- Vn h4 h f5) (- 0 (/ Dnsh 2.0)) 0) ""
	   "_line" (list (- Vn h4 h f5) (/ Dnsh 2.0) 0) (list (- Vn h4 h) (/ dn 2.0) 0) ""
	   "_line" (list (- Vn h4 h f5) (- 0 (/ Dnsh 2.0)) 0) (list (- Vn h4 h) (- 0 (/ dn 2.0)) 0) ""
	   "_line" (list (- 0 Vv Sap) (- (/ Dnsh 2.0) Ssh) 0) (list (- Vn h4 h) (- (/ Dnsh 2.0) Ssh) 0) ""
	   "_line" (list (- 0 Vv Sap) (- 0 (- (/ Dnsh 2.0) Ssh)) 0) (list (- Vn h4 h) (- 0 (- (/ Dnsh 2.0) Ssh)) 0) ""
	   "_celweight" 009
	   "_bhatch" "_P" "ANSI31" "2" "0" (list (/ (- Vn h4) 2.0) (- (/ Dnsh 2.0) (/ Ssh 2.0)) 0) ""
	   "_bhatch" "_P" "ANSI31" "2" "0" (list (/ (- Vn h4) 2.0) (- 0 (- (/ Dnsh 2.0) (/ Ssh 2.0))) 0) ""
	   "_celweight" 030))
(if (and (> Ssh 30.0) (<= (/ (- Dnsh dn) 2.0) 4.0))
  (command "_linetype" "_set" "ByLayer" ""
	   "_celweight" 030
	   "_line" (list (- 0 Vv Sap) (/ Dnsh 2.0) 0) (list (- 0 Vv Sap) (- 0 (/ Dnsh 2.0)) 0) ""
	   "_line" (list (- Vn h4 h) (/ Dnsh 2.0) 0) (list (- Vn h4 h) (- 0 (/ Dnsh 2.0)) 0) ""
	   "_line" (list (- 0 Vv Sap) (/ Dnsh 2.0) 0) (list (- Vn h4 h) (/ Dnsh 2.0) 0) ""
	   "_line" (list (- 0 Vv Sap) (- 0 (/ Dnsh 2.0)) 0) (list (- Vn h4 h) (- 0 (/ Dnsh 2.0)) 0) ""
	   "_line" (list (- 0 Vv Sap) (- (/ Dnsh 2.0) Ssh) 0) (list (- Vn h4 h) (- (/ Dnsh 2.0) Ssh) 0) ""
	   "_line" (list (- 0 Vv Sap) (- 0 (- (/ Dnsh 2.0) Ssh)) 0) (list (- Vn h4 h) (- 0 (- (/ Dnsh 2.0) Ssh)) 0) ""
	   "_celweight" 009
	   "_bhatch" "_P" "ANSI31" "2" "0" (list (/ (- Vn h4) 2.0) (- (/ Dnsh 2.0) (/ Ssh 2.0)) 0) ""
	   "_bhatch" "_P" "ANSI31" "2" "0" (list (/ (- Vn h4) 2.0) (- 0 (- (/ Dnsh 2.0) (/ Ssh 2.0))) 0) ""
	   "_celweight" 030))
(if (and (> Ssh 30.0) (> (/ (- Dnsh dn) 2.0) 4.0))
  (setq f5 (atof (rtos (/ (* (/ (- Dnsh dn) 2.0) 0.9659) 0.2588) 2 2))))
(if (and (> Ssh 30.0) (> (/ (- Dnsh dn) 2.0) 4.0))
  (command "_linetype" "_set" "ByLayer" ""
	   "_celweight" 030
	   "_line" (list (- 0 Vv Sap) (/ Dnsh 2.0) 0) (list (- 0 Vv Sap) (- 0 (/ Dnsh 2.0)) 0) ""
	   "_line" (list (- Vn h4 h) (/ Dn 2.0) 0) (list (- Vn h4 h) (- 0 (/ dn 2.0)) 0) ""
	   "_line" (list (- 0 Vv Sap) (/ Dnsh 2.0) 0) (list (- Vn h4 h f5) (/ Dnsh 2.0) 0) ""
	   "_line" (list (- 0 Vv Sap) (- 0 (/ Dnsh 2.0)) 0) (list (- Vn h4 h f5) (- 0 (/ Dnsh 2.0)) 0) ""
	   "_line" (list (- Vn h4 h f5) (/ Dnsh 2.0) 0) (list (- Vn h4 h) (/ dn 2.0) 0) ""
	   "_line" (list (- Vn h4 h f5) (- 0 (/ Dnsh 2.0)) 0) (list (- Vn h4 h) (- 0 (/ dn 2.0)) 0) ""
	   "_line" (list (- 0 Vv Sap) (- (/ Dnsh 2.0) Ssh) 0) (list (- Vn h4 h) (- (/ Dnsh 2.0) Ssh) 0) ""
	   "_line" (list (- 0 Vv Sap) (- 0 (- (/ Dnsh 2.0) Ssh)) 0) (list (- Vn h4 h) (- 0 (- (/ Dnsh 2.0) Ssh)) 0) ""
	   "_celweight" 009
	   "_bhatch" "_P" "ANSI31" "2" "0" (list (/ (- Vn h4) 2.0) (- (/ Dnsh 2.0) (/ Ssh 2.0)) 0) ""
	   "_bhatch" "_P" "ANSI31" "2" "0" (list (/ (- Vn h4) 2.0) (- 0 (- (/ Dnsh 2.0) (/ Ssh 2.0))) 0) ""
	   "_celweight" 030))
;укрепляющее кольцо
(if (= Yk "yes") (command "_line" (list 0 (/ Dnk 2.0) 0) (list Bk (/ Dnk 2.0) 0) ""
			  "_line" (list 0 (- 0 (/ Dnk 2.0)) 0) (list Bk (- 0 (/ Dnk 2.0)) 0) ""
			  "_line" (list 0 (/ Dvk 2.0) 0) (list Bk (/ Dvk 2.0) 0) ""
			  "_line" (list 0 (- 0 (/ Dvk 2.0)) 0) (list Bk (- 0 (/ Dvk 2.0)) 0) ""
			  "_line" (list 0 (/ Dnsh 2.0) 0) (list 0 (/ Dnk 2.0) 0) ""
			  "_line" (list 0 (- 0 (/ Dnsh 2.0)) 0) (list 0 (- 0 (/ Dnk 2.0)) 0) ""
			  "_line" (list Bk (/ Dnsh 2.0) 0) (list Bk (/ Dnk 2.0) 0) ""
			  "_line" (list Bk (- 0 (/ Dnsh 2.0)) 0) (list Bk (- 0 (/ Dnk 2.0)) 0) ""
			  "_celweight" 009
			  "_bhatch" "_P" "ANSI31" "2" "90" (list (+ 0 (/ Bk 2.0)) (+ (/ Dnsh 2.0) (/ (- Dnk Dnsh) 4.0)) 0) ""
			  "_bhatch" "_P" "ANSI31" "2" "90" (list (+ 0 (/ Bk 2.0)) (- 0 (+ (/ Dnsh 2.0) (/ (- Dnk Dnsh) 4.0))) 0) ""
			  "_celweight" 030))
(if (= Isp 1) (command "_line" (list Vn (/ D2 2.0) 0) (list Vn (- 0 (/ D2 2.0)) 0) ""))
(if (= Isp 3) (command "_line" (list Vn (/ D2 2.0) 0) (list Vn (/ D4 2.0) 0) ""
		       "_line" (list Vn (- 0 (/ D2 2.0)) 0) (list Vn (- 0 (/ D4 2.0)) 0) ""))
(if (or (= Isp 5) (= Isp 9)) (command "_line" (list Vn (/ D2 2.0) 0) (list Vn (/ D4 2.0) 0) ""
				      "_line" (list Vn (- 0 (/ D2 2.0)) 0) (list Vn (- 0 (/ D4 2.0)) 0) ""
				      "_line" (list Vn (/ D3 2.0) 0) (list Vn (- 0 (/ D3 2.0)) 0) ""))
(if (= Isp 6) (command "_line" (list Vn (/ D2 2.0) 0) (list Vn (/ D7 2.0) 0) ""
		       "_line" (list Vn (- 0 (/ D2 2.0)) 0) (list Vn (- 0 (/ D7 2.0)) 0) ""))
(if (= Isp 7) (command "_line" (list Vn (/ D9 2.0) 0) (list Vn (+ (/ D8 2.0) (/ b2 2.0)) 0) ""
		       "_line" (list Vn (- (/ D8 2.0) (/ b2 2.0)) 0) (list Vn (- 0 (- (/ D8 2.0) (/ b2 2.0))) 0) ""
		       "_line" (list Vn (- 0 (+ (/ D8 2.0) (/ b2 2.0))) 0) (list Vn (- 0 (/ D9 2.0)) 0) ""))		       
(if (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9))
  (command "_line" (list Vn (/ D2 2.0) 0) (list (- Vn h) (+ (/ D2 2.0) h) 0) ""
	   "_line" (list Vn (- 0 (/ D2 2.0)) 0) (list (- Vn h) (- 0 (+ (/ D2 2.0) h)) 0) ""))
(if (= Isp 7) (command "_line" (list Vn (/ D9 2.0) 0) (list (- Vn h) (+ (/ D9 2.0) h) 0) ""
		       "_line" (list Vn (- 0 (/ D9 2.0)) 0) (list (- Vn h) (- 0 (+ (/ D9 2.0) h)) 0) ""))
(if (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 9))
  (command "_line" (list (- Vn h) (+ (/ D2 2.0) h) 0) (list (- Vn h) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
	   "_line" (list (- Vn h) (- 0 (+ (/ D2 2.0) h)) 0) (list (- Vn h) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""))
(if (= Isp 7) (command "_line" (list (- Vn h) (+ (/ D9 2.0) h) 0) (list (- Vn h) (- (/ D1 2.0) (/ Mb 2)) 0) ""
		       "_line" (list (- Vn h) (- 0 (+ (/ D9 2.0) h)) 0) (list (- Vn h) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""))
(command "_line" (list (- Vn h) (+ (/ D1 2.0) (/ Mb 2)) 0) (list (- Vn h) (/ D 2.0) 0) ""
	   "_line" (list (- Vn h) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (- Vn h) (- 0 (/ D 2.0)) 0) "")
(command "_line" (list (- Vn h) (/ D 2.0) 0) (list (- Vn h b) (/ D 2.0) 0) ""
	 "_line" (list (- Vn h) (- 0 (/ D 2.0)) 0) (list (- Vn h b) (- 0 (/ D 2.0)) 0) "")
(command "_celweight" 030
	 "_linetype" "_set" "ByLayer" ""
	 "_.-view" "_front")
(command "_line" (list (- Vn h) (+ (/ D1 2.0) (/ Dotv 2.0)) 0) (list (- Vn h b) (+ (/ D1 2.0) (/ Dotv 2.0)) 0) ""
	 "_line" (list (- Vn h) (- 0 (+ (/ D1 2.0) (/ Dotv 2.0))) 0) (list (- Vn h b) (- 0 (+ (/ D1 2.0) (/ Dotv 2.0))) 0) "")
(command "_line" (list (- Vn h) (- (/ D1 2.0) (/ Dotv 2.0)) 0) (list (- Vn h b) (- (/ D1 2.0) (/ Dotv 2.0)) 0) ""
	 "_line" (list (- Vn h) (- 0 (- (/ D1 2.0) (/ Dotv 2.0))) 0) (list (- Vn h b) (- 0 (- (/ D1 2.0) (/ Dotv 2.0))) 0) "")
(command "_line" (list (- Vn h b) (/ D 2.0) 0) (list (- Vn h b) (/ Dm 2.0) 0) ""
	 "_line" (list (- Vn h b) (- 0 (/ D 2.0)) 0) (list (- Vn h b) (- 0 (/ Dm 2.0)) 0) "")
(command "_line" (list (- Vn h b) (/ Dm 2.0) 0) (list (- Vn h b (* 2.5 (/ (- Dm Dn) 2.0))) (/ Dn 2.0) 0) ""
	 "_line" (list (- Vn h b) (- 0 (/ Dm 2.0)) 0) (list (- Vn h b (* 2.5 (/ (- Dm Dn) 2.0))) (- 0 (/ Dn 2.0)) 0) "")
(setq f (atof (rtos (/ (* 0.5 (- (/ Dn 2.0) (+ (/ dtr 2.0) 1))) 0.866) 2 2)))
(command "_line" (list (- Vn h b (* 2.5 (/ (- Dm Dn) 2.0))) (/ Dn 2.0) 0) (list (+ (- Vn h h4) f) (/ Dn 2.0) 0) ""
	 "_line" (list (- Vn h b (* 2.5 (/ (- Dm Dn) 2.0))) (- 0 (/ Dn 2.0)) 0) (list (+ (- Vn h h4) f) (- 0 (/ Dn 2.0)) 0) "")
(command "_line" (list (+ (- Vn h h4) f) (/ Dn 2.0) 0) (list (- Vn h h4) (+ (/ dtr 2.0) 1) 0) ""
	 "_line" (list (+ (- Vn h h4) f) (- 0 (/ Dn 2.0)) 0) (list (- Vn h h4) (- 0 (+ (/ dtr 2.0) 1)) 0) "")
(if (or (= Isp 1) (= Isp 7)) (command "_line" (list Vn (/ dtr 2.0) 0) (list (- Vn h h4) (/ dtr 2.0) 0) ""
		       "_line" (list Vn (- 0 (/ dtr 2.0)) 0) (list (- Vn h h4) (- 0 (/ dtr 2.0)) 0) ""))
(if (= Isp 3) (command "_line" (list (- Vn h2) (/ dtr 2.0) 0) (list (- Vn h h4) (/ dtr 2.0) 0) ""
		       "_line" (list (- Vn h2) (- 0 (/ dtr 2.0)) 0) (list (- Vn h h4) (- 0 (/ dtr 2.0)) 0) ""
		       "_line" (list Vn (/ D6 2.0) 0) (list (- Vn h2) (/ D6 2.0) 0) ""
		       "_line" (list Vn (- 0 (/ D6 2.0)) 0) (list (- Vn h2) (- 0 (/ D6 2.0)) 0) ""
		       "_line" (list (- Vn h2) (/ D6 2.0) 0) (list (- Vn h2) (- 0 (/ D6 2.0)) 0) ""))
(if (or (= Isp 5) (= Isp 9)) (command "_line" (list Vn (/ dtr 2.0) 0) (list (- Vn h h4) (/ dtr 2.0) 0) ""
				      "_line" (list Vn (- 0 (/ dtr 2.0)) 0) (list (- Vn h h4) (- 0 (/ dtr 2.0)) 0) ""
				      "_line" (list Vn (/ D6 2.0) 0) (list (- Vn h2) (/ D6 2.0) 0) ""
				      "_line" (list Vn (- 0 (/ D6 2.0)) 0) (list (- Vn h2) (- 0 (/ D6 2.0)) 0) ""
				      "_line" (list Vn (/ D5 2.0) 0) (list (- Vn h2) (/ D5 2.0) 0) ""
				      "_line" (list Vn (- 0 (/ D5 2.0)) 0) (list (- Vn h2) (- 0 (/ D5 2.0)) 0) ""
				      "_line" (list (- Vn h2) (/ D6 2.0) 0) (list (- Vn h2) (/ D5 2.0) 0) ""
				      "_line" (list (- Vn h2) (- 0 (/ D6 2.0)) 0) (list (- Vn h2) (- 0 (/ D5 2.0)) 0) ""))
(if (= Isp 6) (command "_line" (list Vn (/ D7 2.0) 0) (list (- Vn f1) (/ dtr 2.0) 0) ""
		       "_line" (list Vn (- 0 (/ D7 2.0)) 0) (list (- Vn f1) (- 0 (/ dtr 2.0)) 0) ""
		       "_line" (list (- Vn f1) (/ dtr 2.0) 0) (list (- Vn f1) (- 0 (/ dtr 2.0)) 0) ""
		       "_line" (list (- Vn f1) (/ dtr 2.0) 0) (list (- Vn h h4) (/ dtr 2.0) 0) ""
		       "_line" (list (- Vn f1) (- 0 (/ dtr 2.0)) 0) (list (- Vn h h4) (- 0 (/ dtr 2.0)) 0) ""))
(if (and (= Isp 7) (= h3 6.5)) (command "_line" (list Vn (+ (/ D8 2.0) (/ b2 2.0)) 0) (list (- Vn 4.7) (+ (/ D8 2.0) 2.6) 0) ""
					"_line" (list Vn (- (/ D8 2.0) (/ b2 2.0)) 0) (list (- Vn 4.7) (- (/ D8 2.0) 2.6) 0) ""
					"_arc" (list (- Vn 4.7) (- (/ D8 2.0) 2.6) 0) (list (- Vn h3) (/ D8 2.0) 0) (list (- Vn 4.7) (+ (/ D8 2.0) 2.6) 0)
					"_line" (list Vn (- 0 (+ (/ D8 2.0) (/ b2 2.0))) 0) (list (- Vn 4.7) (- 0 (+ (/ D8 2.0) 2.6)) 0) ""
					"_line" (list Vn (- 0 (- (/ D8 2.0) (/ b2 2.0))) 0) (list (- Vn 4.7) (- 0 (- (/ D8 2.0) 2.6)) 0) ""
					"_arc" (list (- Vn 4.7) (- 0 (- (/ D8 2.0) 2.6)) 0) (list (- Vn h3) (- 0 (/ D8 2.0)) 0) (list (- Vn 4.7) (- 0 (+ (/ D8 2.0) 2.6)) 0)))
(if (and (= Isp 7) (= h3 8)) (command "_line" (list Vn (+ (/ D8 2.0) (/ b2 2.0)) 0) (list (- Vn 5.7) (+ (/ D8 2.0) 3.6) 0) ""
				      "_line" (list Vn (- (/ D8 2.0) (/ b2 2.0)) 0) (list (- Vn 5.7) (- (/ D8 2.0) 3.6) 0) ""
				      "_arc" (list (- Vn 5.7) (- (/ D8 2.0) 3.6) 0) (list (- Vn h3) (/ D8 2.0) 0) (list (- Vn 5.7) (+ (/ D8 2.0) 3.6) 0)
				      "_line" (list Vn (- 0 (+ (/ D8 2.0) (/ b2 2.0))) 0) (list (- Vn 5.7) (- 0 (+ (/ D8 2.0) 3.6)) 0) ""
				      "_line" (list Vn (- 0 (- (/ D8 2.0) (/ b2 2.0))) 0) (list (- Vn 5.7) (- 0 (- (/ D8 2.0) 3.6)) 0) ""
				      "_arc" (list (- Vn 5.7) (- 0 (- (/ D8 2.0) 3.6)) 0) (list (- Vn h3) (- 0 (/ D8 2.0)) 0) (list (- Vn 5.7) (- 0 (+ (/ D8 2.0) 3.6)) 0)))
(if (and (= Isp 7) (= h3 10)) (command "_line" (list Vn (+ (/ D8 2.0) (/ b2 2.0)) 0) (list (- Vn 7.4) (+ (/ D8 2.0) 3.9) 0) ""
				       "_line" (list Vn (- (/ D8 2.0) (/ b2 2.0)) 0) (list (- Vn 7.4) (- (/ D8 2.0) 3.9) 0) ""
				       "_arc" (list (- Vn 7.4) (- (/ D8 2.0) 3.9) 0) (list (- Vn h3) (/ D8 2.0) 0) (list (- Vn 7.4) (+ (/ D8 2.0) 3.9) 0)
				       "_line" (list Vn (- 0 (+ (/ D8 2.0) (/ b2 2.0))) 0) (list (- Vn 7.4) (- 0 (+ (/ D8 2.0) 3.9)) 0) ""
				       "_line" (list Vn (- 0 (- (/ D8 2.0) (/ b2 2.0))) 0) (list (- Vn 7.4) (- 0 (- (/ D8 2.0) 3.9)) 0) ""
				       "_arc" (list (- Vn 7.4) (- 0 (- (/ D8 2.0) 3.9)) 0) (list (- Vn h3) (- 0 (/ D8 2.0)) 0) (list (- Vn 7.4) (- 0 (+ (/ D8 2.0) 3.9)) 0)))
(if (and (= Isp 7) (= h3 11)) (command "_line" (list Vn (+ (/ D8 2.0) (/ b2 2.0)) 0) (list (- Vn 7.5) (+ (/ D8 2.0) 5.3) 0) ""
				       "_line" (list Vn (- (/ D8 2.0) (/ b2 2.0)) 0) (list (- Vn 7.5) (- (/ D8 2.0) 5.3) 0) ""
				       "_arc" (list (- Vn 7.5) (- (/ D8 2.0) 5.3) 0) (list (- Vn h3) (/ D8 2.0) 0) (list (- Vn 7.5) (+ (/ D8 2.0) 5.3) 0)
				       "_line" (list Vn (- 0 (+ (/ D8 2.0) (/ b2 2.0))) 0) (list (- Vn 7.5) (- 0 (+ (/ D8 2.0) 5.3)) 0) ""
				       "_line" (list Vn (- 0 (- (/ D8 2.0) (/ b2 2.0))) 0) (list (- Vn 7.5) (- 0 (- (/ D8 2.0) 5.3)) 0) ""
				       "_arc" (list (- Vn 7.5) (- 0 (- (/ D8 2.0) 5.3)) 0) (list (- Vn h3) (- 0 (/ D8 2.0)) 0) (list (- Vn 7.5) (- 0 (+ (/ D8 2.0) 5.3)) 0)))
(if (and (= Isp 7) (= h3 14)) (command "_line" (list Vn (+ (/ D8 2.0) (/ b2 2.0)) 0) (list (- Vn 8.5) (+ (/ D8 2.0) 8.0) 0) ""
				       "_line" (list Vn (- (/ D8 2.0) (/ b2 2.0)) 0) (list (- Vn 8.5) (- (/ D8 2.0) 8.0) 0) ""
				       "_arc" (list (- Vn 8.5) (- (/ D8 2.0) 8.0) 0) (list (- Vn h3) (/ D8 2.0) 0) (list (- Vn 8.5) (+ (/ D8 2.0) 8.0) 0)
				       "_line" (list Vn (- 0 (+ (/ D8 2.0) (/ b2 2.0))) 0) (list (- Vn 8.5) (- 0 (+ (/ D8 2.0) 8.0)) 0) ""
				       "_line" (list Vn (- 0 (- (/ D8 2.0) (/ b2 2.0))) 0) (list (- Vn 8.5) (- 0 (- (/ D8 2.0) 8.0)) 0) ""
				       "_arc" (list (- Vn 8.5) (- 0 (- (/ D8 2.0) 8.0)) 0) (list (- Vn h3) (- 0 (/ D8 2.0)) 0) (list (- Vn 8.5) (- 0 (+ (/ D8 2.0) 8.0)) 0)))
;ответный фланец для 1 серии
(if (= Isp 1) (command "_line" (list Vn (/ D2 2.0) 0) (list (+ Vn 2.0) (/ D2 2.0) 0) ""
		       "_line" (list Vn (- 0 (/ D2 2.0)) 0) (list (+ Vn 2.0) (- 0 (/ D2 2.0)) 0) ""
		       "_line" (list Vn (/ dtr 2.0) 0) (list (+ Vn 2.0) (/ dtr 2.0) 0) ""
		       "_line" (list Vn (- 0 (/ dtr 2.0)) 0) (list (+ Vn 2.0) (- 0 (/ dtr 2.0)) 0) ""
		       "_line" (list (+ Vn 2.0) (/ D2 2.0) 0) (list (+ Vn 2.0) (- 0 (/ D2 2.0)) 0) ""
		       "_line" (list (+ Vn 2.0) (/ D2 2.0) 0) (list (+ Vn 2.0 h) (+ (/ D2 2.0) h) 0) ""
		       "_line" (list (+ Vn 2.0) (- 0 (/ D2 2.0)) 0) (list (+ Vn 2.0 h) (- 0 (+ (/ D2 2.0) h)) 0) ""
		       "_line" (list (+ Vn 2.0 h) (+ (/ D2 2.0) h) 0) (list (+ Vn 2.0 h) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (+ Vn 2.0 h) (- 0 (+ (/ D2 2.0) h)) 0) (list (+ Vn 2.0 h) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (+ Vn 2.0 h) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ Vn 2.0 h) (/ D 2.0) 0) ""
		       "_line" (list (+ Vn 2.0 h) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ Vn 2.0 h) (- 0 (/ D 2.0)) 0) ""
		       "_line" (list (+ Vn 2.0 h) (/ D 2.0) 0) (list (+ Vn 2.0 h b) (/ D 2.0) 0) ""
		       "_line" (list (+ Vn 2.0 h) (- 0 (/ D 2.0)) 0) (list (+ Vn 2.0 h b) (- 0 (/ D 2.0)) 0) ""
		       "_line" (list (+ Vn 2.0 h b) (/ D 2.0) 0) (list (+ Vn 2.0 h b) (/ Dm 2.0) 0) ""
		       "_line" (list (+ Vn 2.0 h b) (- 0 (/ D 2.0)) 0) (list (+ Vn 2.0 h b) (- 0 (/ Dm 2.0)) 0) ""
		       "_line" (list (+ Vn 2.0 h b) (/ Dm 2.0) 0) (list (+ (+ Vn 2.0 h b) (* (/ (- Dm Dn) 2.0) 2.5)) (/ Dn 2.0) 0) ""
		       "_line" (list (+ Vn 2.0 h b) (- 0 (/ Dm 2.0)) 0) (list (+ (+ Vn 2.0 h b) (* (/ (- Dm Dn) 2.0) 2.5)) (- 0 (/ Dn 2.0)) 0) ""
		       "_line" (list (+ (+ Vn 2.0 h b) (* (/ (- Dm Dn) 2.0) 2.5)) (/ Dn 2.0) 0) (list (- (+ Vn 2.0 h h4) f) (/ Dn 2.0) 0) ""
		       "_line" (list (+ (+ Vn 2.0 h b) (* (/ (- Dm Dn) 2.0) 2.5)) (- 0 (/ Dn 2.0)) 0) (list (- (+ Vn 2.0 h h4) f) (- 0 (/ Dn 2.0)) 0) ""
		       "_line" (list (- (+ Vn 2.0 h h4) f) (/ Dn 2.0) 0) (list (+ Vn 2.0 h h4) (+ (/ dtr 2.0) 1) 0) ""
		       "_line" (list (- (+ Vn 2.0 h h4) f) (- 0 (/ Dn 2.0)) 0) (list (+ Vn 2.0 h h4) (- 0 (+ (/ dtr 2.0) 1)) 0) ""
		       "_line" (list (+ Vn 2.0 h h4) (+ (/ dtr 2.0) 1) 0) (list (+ Vn 2.0 h h4) (- 0 (+ (/ dtr 2.0) 1)) 0) ""
		       "_line" (list (+ Vn 2.0) (/ dtr 2.0) 0) (list (+ Vn 2.0 h h4) (/ dtr 2.0) 0) ""
		       "_line" (list (+ Vn 2.0) (- 0 (/ dtr 2.0)) 0) (list (+ Vn 2.0 h h4) (- 0 (/ dtr 2.0)) 0) ""
		       "_line" (list (+ Vn 2.0 h) (+ (/ D1 2.0) (/ Dotv 2.0)) 0) (list (+ Vn 2.0 h b) (+ (/ D1 2.0) (/ Dotv 2.0)) 0) ""
		       "_line" (list (+ Vn 2.0 h) (- (/ D1 2.0) (/ Dotv 2.0)) 0) (list (+ Vn 2.0 h b) (- (/ D1 2.0) (/ Dotv 2.0)) 0) ""
		       "_line" (list (+ Vn 2.0 h) (- 0 (+ (/ D1 2.0) (/ Dotv 2.0))) 0) (list (+ Vn 2.0 h b) (- 0 (+ (/ D1 2.0) (/ Dotv 2.0))) 0) ""
		       "_line" (list (+ Vn 2.0 h) (- 0 (- (/ D1 2.0) (/ Dotv 2.0))) 0) (list (+ Vn 2.0 h b) (- 0 (- (/ D1 2.0) (/ Dotv 2.0))) 0) ""))
;штриховка
(if (= Isp 1) (command "_.-view" "_front"
		       "_celweight" 009
		       "_bhatch" "_P" "ANSI31" "2" "90" (list (- Vn (/ h4 2.0)) (+ (/ dtr 2.0) 2.0) 0) ""
		       "_bhatch" "_P" "ANSI31" "2" "90" (list (- Vn (/ h4 2.0)) (- 0 (+ (/ dtr 2.0) 2.0)) 0) ""
		       "_bhatch" "_P" "ANSI31" "2" "90" (list (- Vn (/ b 2.0)) (- (/ D 2.0) 2.0) 0) ""
		       "_bhatch" "_P" "ANSI31" "2" "90" (list (- Vn (/ b 2.0)) (- 0 (- (/ D 2.0) 2.0) 0)) ""
		       "_bhatch" "_P" "ANSI31" "2" "0" (list (+ Vn (/ h4 2.0)) (+ (/ dtr 2.0) 2.0) 0) ""
		       "_bhatch" "_P" "ANSI31" "2" "0" (list (+ Vn (/ h4 2.0)) (- 0 (+ (/ dtr 2.0) 2.0)) 0) ""
		       "_bhatch" "_P" "ANSI31" "2" "90" (list (+ Vn (/ b 2.0)) (- (/ D 2.0) 2.0) 0) ""
		       "_bhatch" "_P" "ANSI31" "2" "90" (list (+ Vn (/ b 2.0)) (- 0 (- (/ D 2.0) 2.0)) 0) ""
		       "_bhatch" "_P" "ANSI37" "0.4" "0" (list (+ Vn 1.0) (- (/ D2 2.0) 2.0) 0) ""
		       "_bhatch" "_P" "ANSI37" "0.4" "0" (list (+ Vn 1.0) (- 0 (- (/ D2 2.0) 2.0)) 0) ""
		       "_celweight" 030))
;шпилька и гайка
(if (= Mb 10) (setq Sg 17))
(if (= Mb 12) (setq Sg 19))
(if (= Mb 16) (setq Sg 24))
(if (= Mb 20) (setq Sg 30))
(if (= Mb 24) (setq Sg 36))
(if (= Mb 27) (setq Sg 41))
(if (= Mb 30) (setq Sg 46))
(if (= Mb 36) (setq Sg 55))
(if (= Mb 42) (setq Sg 65))
(if (= Mb 48) (setq Sg 75))
(if (= Mb 52) (setq Sg 80))
(if (= Mb 56) (setq Sg 85))
(if (= Mb 60) (setq Sg 90))
(if (= Mb 64) (setq Sg 95))
(if (= Mb 68) (setq Sg 100))
(if (= Mb 76) (setq Sg 110))
(if (= Mb 80) (setq Sg 115))
(if (or (= Isp 1) (= Isp 7)) (command "_celweight" 030
				      ;вершины гаек
				      "_line" (list (- Vn h b Mb) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b Mb) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) ""
				      "_line" (list (+ Vn 2.0 h b Mb) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ Vn 2.0 h b Mb) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) ""
				      "_line" (list (- Vn h b Mb) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b Mb) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) ""
				      "_line" (list (+ Vn 2.0 h b Mb) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ Vn 2.0 h b Mb) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) ""
				      ;ребра гаек
				      "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
				      "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
				      "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
				      "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
				      "_line" (list (+ Vn 2.0 h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) (list (+ Vn 2.0 h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
				      "_line" (list (+ Vn 2.0 h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) (list (+ Vn 2.0 h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
				      "_line" (list (+ Vn 2.0 h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) (list (+ Vn 2.0 h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
				      "_line" (list (+ Vn 2.0 h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) (list (+ Vn 2.0 h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
				      ;наружние фаски гаек
				      "_line" (list (- Vn h b Mb) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
				      "_line" (list (- Vn h b Mb) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
				      "_line" (list (- Vn h b) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
				      "_line" (list (- Vn h b) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""

				      "_line" (list (- Vn h b Mb) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
				      "_line" (list (- Vn h b Mb) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
				      "_line" (list (- Vn h b) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
				      "_line" (list (- Vn h b) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""

				      "_line" (list (+ Vn 2.0 h b) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ Vn 2.0 h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
				      "_line" (list (+ Vn 2.0 h b) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ Vn 2.0 h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
				      "_line" (list (+ Vn 2.0 h b Mb) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ Vn 2.0 h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
				      "_line" (list (+ Vn 2.0 h b Mb) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ Vn 2.0 h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""

				      "_line" (list (+ Vn 2.0 h b) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ Vn 2.0 h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
				      "_line" (list (+ Vn 2.0 h b) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ Vn 2.0 h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
				      "_line" (list (+ Vn 2.0 h b Mb) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ Vn 2.0 h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
				      "_line" (list (+ Vn 2.0 h b Mb) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ Vn 2.0 h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
                       ;внутренние ребра гаек
		       "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (+ Vn 2.0 h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ Vn 2.0 h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (+ Vn 2.0 h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ Vn 2.0 h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (+ Vn 2.0 h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ Vn 2.0 h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (+ Vn 2.0 h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ Vn 2.0 h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
                       ;внутренние фаски гаек
	               "_line" (list (- Vn h b Mb) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (- Vn h b Mb) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (- Vn h b) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (- Vn h b) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       
		       "_line" (list (- Vn h b Mb) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (- Vn h b Mb) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (- Vn h b) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (- Vn h b) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""

		       "_line" (list (+ Vn 2.0 h b) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ Vn 2.0 h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (+ Vn 2.0 h b) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ Vn 2.0 h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (+ Vn 2.0 h b Mb) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ Vn 2.0 h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (+ Vn 2.0 h b Mb) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ Vn 2.0 h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""

		       "_line" (list (+ Vn 2.0 h b) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ Vn 2.0 h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (+ Vn 2.0 h b) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ Vn 2.0 h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (+ Vn 2.0 h b Mb) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ Vn 2.0 h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (+ Vn 2.0 h b Mb) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ Vn 2.0 h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
                       ;дуги гаек
		       "_arc" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- Vn h b Mb) (/ D1 2.0) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0)
		       "_arc" (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- Vn h b) (/ D1 2.0) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0)
		       "_arc" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- Vn h b Mb) (- 0 (/ D1 2.0)) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0)
		       "_arc" (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- Vn h b) (- 0 (/ D1 2.0)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0)
		       "_arc" (list (+ Vn 2.0 h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ Vn 2.0 h b) (/ D1 2.0) 0) (list (+ Vn 2.0 h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0)
		       "_arc" (list (+ Vn 2.0 h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ Vn 2.0 h b Mb) (/ D1 2.0) 0) (list (+ Vn 2.0 h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0)
		       "_arc" (list (+ Vn 2.0 h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ Vn 2.0 h b) (- 0 (/ D1 2.0)) 0) (list (+ Vn 2.0 h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0)
		       "_arc" (list (+ Vn 2.0 h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ Vn 2.0 h b Mb) (- 0 (/ D1 2.0)) 0) (list (+ Vn 2.0 h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0)))
		       ;вылет шпильки
(if (or (= Isp 1) (= Isp 7)) (setq Lb (* (atof (rtos (/ (+ 8 Mb b h 2.0 h b Mb 8) 10) 2 0)) 10)))
(if (or (= Isp 1) (= Isp 7)) (command "_celweight" 009
		       "_linetype" "_set" "ACAD_ISO04W100" ""
		       "_line" (list (- (+ Vn 1.0) (/ Lb 2.0) 10) (/ D1 2.0) 0) (list (+ Vn 1.0 (/ Lb 2.0) 10) (/ D1 2.0) 0) ""
		       "_line" (list (- (+ Vn 1.0) (/ Lb 2.0) 10) (- 0 (/ D1 2.0)) 0) (list (+ Vn 1.0 (/ Lb 2.0) 10) (- 0 (/ D1 2.0)) 0) ""
		       "_celweight" 030
		       "_linetype" "_set" "ByLayer" ""
		       "_line" (list (- (+ Vn 1.0) (/ Lb 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- (+ Vn 1.0) (/ Lb 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (- (+ Vn 1.0) (/ Lb 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- (+ Vn 1.0) (/ Lb 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (+ (+ Vn 1.0) (/ Lb 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ (+ Vn 1.0) (/ Lb 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (+ (+ Vn 1.0) (/ Lb 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ (+ Vn 1.0) (/ Lb 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       ;фаска шпилек
		       "_line" (list (- (+ Vn 1.0) (/ Lb 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (- (+ Vn 1.0) (/ Lb 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (- (+ Vn 1.0) (/ Lb 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (- (+ Vn 1.0) (/ Lb 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (+ (+ Vn 1.0) (/ Lb 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (+ (+ Vn 1.0) (/ Lb 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (+ (+ Vn 1.0) (/ Lb 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (+ (+ Vn 1.0) (/ Lb 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       ;торчащая грань шпильки
		       "_line" (list (- (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (- Vn h b Mb) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (- (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (- Vn h b Mb) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (- (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (- Vn h b Mb) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (- (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (- Vn h b Mb) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (+ (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ Vn 2.0 h b Mb) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (+ (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ Vn 2.0 h b Mb) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (+ (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ Vn 2.0 h b Mb) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (+ (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ Vn 2.0 h b Mb) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       ;торчащая резьба шпильки
		       "_celweight" 009
		       "_line" (list (- (+ Vn 1.0) (/ Lb 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- Vn h b Mb) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (- (+ Vn 1.0) (/ Lb 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- Vn h b Mb) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (- (+ Vn 1.0) (/ Lb 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- Vn h b Mb) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (- (+ Vn 1.0) (/ Lb 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- Vn h b Mb) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (+ (+ Vn 1.0) (/ Lb 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ Vn 2.0 h b Mb) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (+ (+ Vn 1.0) (/ Lb 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ Vn 2.0 h b Mb) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (+ (+ Vn 1.0) (/ Lb 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ Vn 2.0 h b Mb) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (+ (+ Vn 1.0) (/ Lb 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ Vn 2.0 h b Mb) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       ;грань фаски шпилек
		       "_celweight" 030
		       "_line" (list (- (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (- (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (- (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (- (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (+ (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (+ (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (+ Vn 1.0) (- (/ Lb 2.0) 1.5)) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""))
(if (and (or (= Isp 1) (= Isp 7)) (= Bt 1)) (command "_line" (list (- Vn h b) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ Vn 2.0 h b) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- Vn h b) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ Vn 2.0 h b) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- Vn h b) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ Vn 2.0 h b) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (- Vn h b) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ Vn 2.0 h b) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      ;резьба
				      "_celweight" 009
				      "_line" (list (- Vn h b) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- Vn h b) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- Vn h b) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""
				      "_line" (list (- Vn h b) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""
				      "_line" (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ Vn 2.0 h b) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ Vn 2.0 h b) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ Vn 2.0 h b) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""
				      "_line" (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ Vn 2.0 h b) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""))
(if (and (or (= Isp 1) (= Isp 7)) (= Bt 2)) (command "_line" (list (- Vn h b) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- Vn h b) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ Vn 2.0 h b) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ Vn 2.0 h b) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- Vn h b) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (- Vn h b) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ Vn 2.0 h b) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ Vn 2.0 h b) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      ;внутренние фаски
				      "_line" (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (- (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (- (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (- 0 (- (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (- (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (- (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (- 0 (- (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) (list (- (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) (list (- (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) (list (- (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (- 0 (- (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) (list (- (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (- 0 (- (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) ""
				      ;доведение видимой части фланцев
				      "_line" (list (- Vn h) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (- Vn h) (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (- Vn h) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (- Vn h) (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ Vn 2.0 h) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ Vn 2.0 h) (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ Vn 2.0 h) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ Vn 2.0 h) (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (- Vn h) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (- Vn h) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0))) 0) ""
				      "_line" (list (- Vn h) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (- Vn h) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0))) 0) ""
				      "_line" (list (+ Vn 2.0 h) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ Vn 2.0 h) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0))) 0) ""
				      "_line" (list (+ Vn 2.0 h) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ Vn 2.0 h) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0))) 0) ""
				      ;резьба
				      "_celweight" 009
				      "_line" (list (- Vn h b) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- Vn h b) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- Vn h b) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""
				      "_line" (list (- Vn h b) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ (- (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""
				      "_line" (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ Vn 2.0 h b) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ Vn 2.0 h b) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ Vn 2.0 h b) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""
				      "_line" (list (- (+ (+ Vn 1.0) (/ Lb 2.0)) L0) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ Vn 2.0 h b) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""))
;ответный фланец для 3 серии
(if (= Isp 3) (command "_line" (list (- Vn h2) (/ dtr 2.0) 0) (list (+ (- Vn h2) 2.0) (/ dtr 2.0) 0) ""
		       "_line" (list (- Vn h2) (- 0 (/ dtr 2.0)) 0) (list (+ (- Vn h2) 2.0) (- 0 (/ dtr 2.0)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0) (/ D6 2.0) 0) (list (+ (- Vn h2) 2.0) (- 0 (/ D6 2.0)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0) (/ D4 2.0) 0) (list (+ (- Vn h2) 2.0 h1) (/ D4 2.0) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0) (- 0 (/ D4 2.0)) 0) (list (+ (- Vn h2) 2.0 h1) (- 0 (/ D4 2.0)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1) (/ D4 2.0) 0) (list (+ (- Vn h2) 2.0 h1) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1) (- 0 (/ D4 2.0)) 0) (list (+ (- Vn h2) 2.0 h1) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- Vn h2) 2.0 h1) (/ D 2.0) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- Vn h2) 2.0 h1) (- 0 (/ D 2.0)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1) (/ D 2.0) 0) (list (+ (- Vn h2) 2.0 h1 b) (/ D 2.0) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1) (- 0 (/ D 2.0)) 0) (list (+ (- Vn h2) 2.0 h1 b) (- 0 (/ D 2.0)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1 b) (/ D 2.0) 0) (list (+ (- Vn h2) 2.0 h1 b) (/ Dm 2.0) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1 b) (- 0 (/ D 2.0)) 0) (list (+ (- Vn h2) 2.0 h1 b) (- 0 (/ Dm 2.0)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1 b) (/ Dm 2.0) 0) (list (+ (+ (- Vn h2) 2.0 h1 b) (* (/ (- Dm Dn) 2.0) 2.5)) (/ Dn 2.0) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1 b) (- 0 (/ Dm 2.0)) 0) (list (+ (+ (- Vn h2) 2.0 h1 b) (* (/ (- Dm Dn) 2.0) 2.5)) (- 0 (/ Dn 2.0)) 0) ""
		       "_line" (list (+ (+ (- Vn h2) 2.0 h1 b) (* (/ (- Dm Dn) 2.0) 2.5)) (/ Dn 2.0) 0) (list (- (+ (- Vn h2) 2.0 h1 h4) f) (/ Dn 2.0) 0) ""
		       "_line" (list (+ (+ (- Vn h2) 2.0 h1 b) (* (/ (- Dm Dn) 2.0) 2.5)) (- 0 (/ Dn 2.0)) 0) (list (- (+ (- Vn h2) 2.0 h1 h4) f) (- 0 (/ Dn 2.0)) 0) ""
		       "_line" (list (- (+ (- Vn h2) 2.0 h1 h4) f) (/ Dn 2.0) 0) (list (+ (- Vn h2) 2.0 h1 h4) (+ (/ dtr 2.0) 1) 0) ""
		       "_line" (list (- (+ (- Vn h2) 2.0 h1 h4) f) (- 0 (/ Dn 2.0)) 0) (list (+ (- Vn h2) 2.0 h1 h4) (- 0 (+ (/ dtr 2.0) 1)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1 h4) (+ (/ dtr 2.0) 1) 0) (list (+ (- Vn h2) 2.0 h1 h4) (- 0 (+ (/ dtr 2.0) 1)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0) (/ dtr 2.0) 0) (list (+ (- Vn h2) 2.0 h1 h4) (/ dtr 2.0) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0) (- 0 (/ dtr 2.0)) 0) (list (+ (- Vn h2) 2.0 h1 h4) (- 0 (/ dtr 2.0)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1) (+ (/ D1 2.0) (/ Dotv 2.0)) 0) (list (+ (- Vn h2) 2.0 h1 b) (+ (/ D1 2.0) (/ Dotv 2.0)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1) (- (/ D1 2.0) (/ Dotv 2.0)) 0) (list (+ (- Vn h2) 2.0 h1 b) (- (/ D1 2.0) (/ Dotv 2.0)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1) (- 0 (+ (/ D1 2.0) (/ Dotv 2.0))) 0) (list (+ (- Vn h2) 2.0 h1 b) (- 0 (+ (/ D1 2.0) (/ Dotv 2.0))) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1) (- 0 (- (/ D1 2.0) (/ Dotv 2.0))) 0) (list (+ (- Vn h2) 2.0 h1 b) (- 0 (- (/ D1 2.0) (/ Dotv 2.0))) 0) ""))
(if (or (= Isp 3) (= Isp 5) (= Isp 9)) (command "_celweight" 030
				      ;вершины гаек
				      "_line" (list (- Vn h b Mb) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b Mb) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1 b Mb) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ (- Vn h2) 2.0 h1 b Mb) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) ""
				      "_line" (list (- Vn h b Mb) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b Mb) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1 b Mb) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ (- Vn h2) 2.0 h1 b Mb) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) ""
				      ;ребра гаек
				      "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
				      "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
				      "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
				      "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1 b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1 b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1 b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1 b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
				      ;наружние фаски гаек
				      "_line" (list (- Vn h b Mb) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
				      "_line" (list (- Vn h b Mb) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
				      "_line" (list (- Vn h b) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
				      "_line" (list (- Vn h b) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""

				      "_line" (list (- Vn h b Mb) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
				      "_line" (list (- Vn h b Mb) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
				      "_line" (list (- Vn h b) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
				      "_line" (list (- Vn h b) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""

				      "_line" (list (+ (- Vn h2) 2.0 h1 b) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1 b) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1 b Mb) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1 b Mb) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""

				      "_line" (list (+ (- Vn h2) 2.0 h1 b) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1 b) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1 b Mb) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1 b Mb) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
				      ;внутренние ребра гаек
				      "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
				      "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
				      "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
				      "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1 b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1 b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1 b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1 b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
				      ;внутренние фаски гаек
				      "_line" (list (- Vn h b Mb) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
				      "_line" (list (- Vn h b Mb) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
				      "_line" (list (- Vn h b) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
				      "_line" (list (- Vn h b) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""

				      "_line" (list (- Vn h b Mb) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
				      "_line" (list (- Vn h b Mb) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
				      "_line" (list (- Vn h b) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
				      "_line" (list (- Vn h b) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""

				      "_line" (list (+ (- Vn h2) 2.0 h1 b) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1 b) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1 b Mb) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1 b Mb) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""

				      "_line" (list (+ (- Vn h2) 2.0 h1 b) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1 b) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1 b Mb) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1 b Mb) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
				      ;дуги гаек
				      "_arc" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- Vn h b Mb) (/ D1 2.0) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0)
				      "_arc" (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- Vn h b) (/ D1 2.0) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0)
				      "_arc" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- Vn h b Mb) (- 0 (/ D1 2.0)) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0)
				      "_arc" (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- Vn h b) (- 0 (/ D1 2.0)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0)
				      "_arc" (list (+ (- Vn h2) 2.0 h1 b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ (- Vn h2) 2.0 h1 b) (/ D1 2.0) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0)
				      "_arc" (list (+ (- Vn h2) 2.0 h1 b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ (- Vn h2) 2.0 h1 b Mb) (/ D1 2.0) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0)
				      "_arc" (list (+ (- Vn h2) 2.0 h1 b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ (- Vn h2) 2.0 h1 b) (- 0 (/ D1 2.0)) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0)
				      "_arc" (list (+ (- Vn h2) 2.0 h1 b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ (- Vn h2) 2.0 h1 b Mb) (- 0 (/ D1 2.0)) 0) (list (+ (- Vn h2) 2.0 h1 b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0)))
				      ;вылет шпильки
(if (or (= Isp 3) (= Isp 5) (= Isp 9)) (setq Lb (* (atof (rtos (/ (+ 8 Mb b h h1 b Mb 8) 10) 2 0)) 10)))
(if (or (= Isp 3) (= Isp 5) (= Isp 9)) (command "_celweight" 009
		       "_linetype" "_set" "ACAD_ISO04W100" ""
		       "_line" (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0) 10) (/ D1 2.0) 0) (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0) 10) (/ D1 2.0) 0) ""
		       "_line" (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0) 10) (- 0 (/ D1 2.0)) 0) (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0) 10) (- 0 (/ D1 2.0)) 0) ""
		       "_celweight" 030
		       "_linetype" "_set" "ByLayer" ""
		       "_line" (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       ;фаска шпилек
		       "_line" (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       ;торчащая грань шпильки
		       "_line" (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (- Vn h b Mb) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (- Vn h b Mb) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (- Vn h b Mb) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (- Vn h b Mb) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- Vn h2) 2.0 h1 b Mb) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- Vn h2) 2.0 h1 b Mb) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- Vn h2) 2.0 h1 b Mb) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- Vn h2) 2.0 h1 b Mb) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       ;торчащая резьба шпильки
		       "_celweight" 009
		       "_line" (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- Vn h b Mb) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- Vn h b Mb) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- Vn h b Mb) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- Vn h b Mb) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ (- Vn h2) 2.0 h1 b Mb) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ (- Vn h2) 2.0 h1 b Mb) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ (- Vn h2) 2.0 h1 b Mb) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ (- Vn h2) 2.0 h1 b Mb) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       ;грань фаски шпилек
		       "_celweight" 030
		       "_line" (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Bt 1)) (command "_line" (list (- Vn h b) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- Vn h2) 2.0 h1 b) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- Vn h b) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- Vn h2) 2.0 h1 b) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- Vn h b) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- Vn h2) 2.0 h1 b) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (- Vn h b) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- Vn h2) 2.0 h1 b) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      ;резьба
				      "_celweight" 009
				      "_line" (list (- Vn h b) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- Vn h b) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- Vn h b) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""
				      "_line" (list (- Vn h b) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""
				      "_line" (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ (- Vn h2) 2.0 h1 b) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ (- Vn h2) 2.0 h1 b) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ (- Vn h2) 2.0 h1 b) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""
				      "_line" (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ (- Vn h2) 2.0 h1 b) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""))
(if (and (or (= Isp 3) (= Isp 5) (= Isp 9)) (= Bt 2)) (command "_line" (list (- Vn h b) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- Vn h b) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- Vn h2) 2.0 h1 b) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- Vn h2) 2.0 h1 b) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- Vn h b) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (- Vn h b) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- Vn h2) 2.0 h1 b) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- Vn h2) 2.0 h1 b) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      ;внутренние фаски
				      "_line" (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (- (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (- (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (- 0 (- (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (- (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (- (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (- 0 (- (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) (list (- (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) (list (- (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) (list (- (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (- 0 (- (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) (list (- (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (- 0 (- (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) ""
				      ;доведение видимой части фланцев
				      "_line" (list (- Vn h) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (- Vn h) (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (- Vn h) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (- Vn h) (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- Vn h2) 2.0 h1) (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- Vn h2) 2.0 h1) (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (- Vn h) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (- Vn h) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0))) 0) ""
				      "_line" (list (- Vn h) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (- Vn h) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0))) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- Vn h2) 2.0 h1) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0))) 0) ""
				      "_line" (list (+ (- Vn h2) 2.0 h1) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- Vn h2) 2.0 h1) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0))) 0) ""
				      ;резьба
				      "_celweight" 009
				       "_line" (list (- Vn h b) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- Vn h b) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- Vn h b) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""
				      "_line" (list (- Vn h b) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ (- (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""
				      "_line" (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ (- Vn h2) 2.0 h1 b) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ (- Vn h2) 2.0 h1 b) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ (- Vn h2) 2.0 h1 b) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""
				      "_line" (list (- (+ (+ (- Vn h2) (/ (+ 2.0 h1) 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ (- Vn h2) 2.0 h1 b) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""))
;ответный фланец для 5 серии
(if (or (= Isp 5) (= Isp 9)) (command "_line" (list (+ (- Vn h2) 2.0) (/ D6 2.0) 0) (list (+ (- Vn h2) 2.0) (/ D5 2.0) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0) (- 0 (/ D6 2.0)) 0) (list (+ (- Vn h2) 2.0) (- 0 (/ D5 2.0)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0) (/ D4 2.0) 0) (list (+ (- Vn h2) 2.0 h1) (/ D4 2.0) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0) (/ D3 2.0) 0) (list (+ (- Vn h2) 2.0 h1) (/ D3 2.0) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0) (- 0 (/ D4 2.0)) 0) (list (+ (- Vn h2) 2.0 h1) (- 0 (/ D4 2.0)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0) (- 0 (/ D3 2.0)) 0) (list (+ (- Vn h2) 2.0 h1) (- 0 (/ D3 2.0)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1) (/ D4 2.0) 0) (list (+ (- Vn h2) 2.0 h1) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1) (/ D3 2.0) 0) (list (+ (- Vn h2) 2.0 h1) (- 0 (/ D3 2.0)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1) (- 0 (/ D4 2.0)) 0) (list (+ (- Vn h2) 2.0 h1) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- Vn h2) 2.0 h1) (/ D 2.0) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- Vn h2) 2.0 h1) (- 0 (/ D 2.0)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1) (/ D 2.0) 0) (list (+ (- Vn h2) 2.0 h1 b) (/ D 2.0) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1) (- 0 (/ D 2.0)) 0) (list (+ (- Vn h2) 2.0 h1 b) (- 0 (/ D 2.0)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1 b) (/ D 2.0) 0) (list (+ (- Vn h2) 2.0 h1 b) (/ Dm 2.0) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1 b) (- 0 (/ D 2.0)) 0) (list (+ (- Vn h2) 2.0 h1 b) (- 0 (/ Dm 2.0)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1 b) (/ Dm 2.0) 0) (list (+ (+ (- Vn h2) 2.0 h1 b) (* (/ (- Dm Dn) 2.0) 2.5)) (/ Dn 2.0) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1 b) (- 0 (/ Dm 2.0)) 0) (list (+ (+ (- Vn h2) 2.0 h1 b) (* (/ (- Dm Dn) 2.0) 2.5)) (- 0 (/ Dn 2.0)) 0) ""
		       "_line" (list (+ (+ (- Vn h2) 2.0 h1 b) (* (/ (- Dm Dn) 2.0) 2.5)) (/ Dn 2.0) 0) (list (- (+ (- Vn h2) 2.0 h1 h4) f) (/ Dn 2.0) 0) ""
		       "_line" (list (+ (+ (- Vn h2) 2.0 h1 b) (* (/ (- Dm Dn) 2.0) 2.5)) (- 0 (/ Dn 2.0)) 0) (list (- (+ (- Vn h2) 2.0 h1 h4) f) (- 0 (/ Dn 2.0)) 0) ""
		       "_line" (list (- (+ (- Vn h2) 2.0 h1 h4) f) (/ Dn 2.0) 0) (list (+ (- Vn h2) 2.0 h1 h4) (+ (/ dtr 2.0) 1) 0) ""
		       "_line" (list (- (+ (- Vn h2) 2.0 h1 h4) f) (- 0 (/ Dn 2.0)) 0) (list (+ (- Vn h2) 2.0 h1 h4) (- 0 (+ (/ dtr 2.0) 1)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1 h4) (+ (/ dtr 2.0) 1) 0) (list (+ (- Vn h2) 2.0 h1 h4) (- 0 (+ (/ dtr 2.0) 1)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1) (/ dtr 2.0) 0) (list (+ (- Vn h2) 2.0 h1 h4) (/ dtr 2.0) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1) (- 0 (/ dtr 2.0)) 0) (list (+ (- Vn h2) 2.0 h1 h4) (- 0 (/ dtr 2.0)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1) (+ (/ D1 2.0) (/ Dotv 2.0)) 0) (list (+ (- Vn h2) 2.0 h1 b) (+ (/ D1 2.0) (/ Dotv 2.0)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1) (- (/ D1 2.0) (/ Dotv 2.0)) 0) (list (+ (- Vn h2) 2.0 h1 b) (- (/ D1 2.0) (/ Dotv 2.0)) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1) (- 0 (+ (/ D1 2.0) (/ Dotv 2.0))) 0) (list (+ (- Vn h2) 2.0 h1 b) (- 0 (+ (/ D1 2.0) (/ Dotv 2.0))) 0) ""
		       "_line" (list (+ (- Vn h2) 2.0 h1) (- 0 (- (/ D1 2.0) (/ Dotv 2.0))) 0) (list (+ (- Vn h2) 2.0 h1 b) (- 0 (- (/ D1 2.0) (/ Dotv 2.0))) 0) ""))
;штриховка
(if (or (= Isp 3) (= Isp 5) (= Isp 9)) (command "_.-view" "_front"
				      "_celweight" 009
				      "_bhatch" "_P" "ANSI31" "2" "90" (list (- Vn (/ h4 2.0)) (+ (/ dtr 2.0) 2.0) 0) ""
				      "_bhatch" "_P" "ANSI31" "2" "90" (list (- Vn (/ h4 2.0)) (- 0 (+ (/ dtr 2.0) 2.0)) 0) ""
				      "_bhatch" "_P" "ANSI31" "2" "90" (list (- Vn (/ b 2.0)) (- (/ D 2.0) 2.0) 0) ""
				      "_bhatch" "_P" "ANSI31" "2" "90" (list (- Vn (/ b 2.0)) (- 0 (- (/ D 2.0) 2.0) 0)) ""
				      "_bhatch" "_P" "ANSI31" "2" "0" (list (+ Vn (/ h4 2.0)) (+ (/ dtr 2.0) 2.0) 0) ""
				      "_bhatch" "_P" "ANSI31" "2" "0" (list (+ Vn (/ h4 2.0)) (- 0 (+ (/ dtr 2.0) 2.0)) 0) ""
				      "_bhatch" "_P" "ANSI31" "2" "90" (list (+ Vn (/ b 2.0)) (- (/ D 2.0) 2.0) 0) ""
				      "_bhatch" "_P" "ANSI31" "2" "90" (list (+ Vn (/ b 2.0)) (- 0 (- (/ D 2.0) 2.0)) 0) ""
				      "_bhatch" "_P" "ANSI37" "0.4" "0" (list (+ (- Vn h2) 1.0) (- (/ D6 2.0) 2.0) 0) ""
				      "_bhatch" "_P" "ANSI37" "0.4" "0" (list (+ (- Vn h2) 1.0) (- 0 (- (/ D6 2.0) 2.0)) 0) ""
				      "_celweight" 030))
;ответный фланец для 6 серии
(if (= Isp 6) (command "_line" (list Vn (/ D7 2.0) 0) (list (+ Vn (- Bl f1 f1)) (/ D7 2.0) 0) ""
		       "_line" (list Vn (- 0 (/ D7 2.0)) 0) (list (+ Vn (- Bl f1 f1)) (- 0 (/ D7 2.0)) 0) ""
		       "_line" (list (+ Vn (- Bl f1 f1)) (/ D7 2.0) 0) (list (+ Vn (- Bl f1)) (/ dtr 2.0) 0) ""
		       "_line" (list (+ Vn (- Bl f1 f1)) (- 0 (/ D7 2.0)) 0) (list (+ Vn (- Bl f1)) (- 0 (/ dtr 2.0)) 0) ""
		       "_line" (list (+ Vn (- Bl f1)) (/ dtr 2.0) 0) (list (+ Vn (- Bl f1)) (- 0 (/ dtr 2.0)) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl) (/ D2 2.0) 0) (list (+ (- Vn f1 f1) Bl) (/ D7 2.0) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl) (- 0 (/ D2 2.0)) 0) (list (+ (- Vn f1 f1) Bl) (- 0 (/ D7 2.0)) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl) (/ D2 2.0) 0) (list (+ (- Vn f1 f1) Bl h) (+ (/ D2 2.0) h) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl) (- 0 (/ D2 2.0)) 0) (list (+ (- Vn f1 f1) Bl h) (- 0 (+ (/ D2 2.0) h)) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h) (+ (/ D2 2.0) h) 0) (list (+ (- Vn f1 f1) Bl h) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h) (- 0 (+ (/ D2 2.0) h)) 0) (list (+ (- Vn f1 f1) Bl h) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- Vn f1 f1) Bl h) (/ D 2.0) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- Vn f1 f1) Bl h) (- 0 (/ D 2.0)) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h) (/ D 2.0) 0) (list (+ (- Vn f1 f1) Bl h b) (/ D 2.0) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h) (- 0 (/ D 2.0)) 0) (list (+ (- Vn f1 f1) Bl h b) (- 0 (/ D 2.0)) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b) (/ D 2.0) 0) (list (+ (- Vn f1 f1) Bl h b) (/ Dm 2.0) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b) (- 0 (/ D 2.0)) 0) (list (+ (- Vn f1 f1) Bl h b) (- 0 (/ Dm 2.0)) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b) (/ Dm 2.0) 0) (list (+ (+ (- Vn f1 f1) Bl h b) (* (/ (- Dm Dn) 2.0) 2.5)) (/ Dn 2.0) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b) (- 0 (/ Dm 2.0)) 0) (list (+ (+ (- Vn f1 f1) Bl h b) (* (/ (- Dm Dn) 2.0) 2.5)) (- 0 (/ Dn 2.0)) 0) ""
		       "_line" (list (+ (+ (- Vn f1 f1) Bl h b) (* (/ (- Dm Dn) 2.0) 2.5)) (/ Dn 2.0) 0) (list (- (+ (- Vn f1 f1) Bl h h4) f) (/ Dn 2.0) 0) ""
		       "_line" (list (+ (+ (- Vn f1 f1) Bl h b) (* (/ (- Dm Dn) 2.0) 2.5)) (- 0 (/ Dn 2.0)) 0) (list (- (+ (- Vn f1 f1) Bl h h4) f) (- 0 (/ Dn 2.0)) 0) ""
		       "_line" (list (- (+ (- Vn f1 f1) Bl h h4) f) (/ Dn 2.0) 0) (list (+ (- Vn f1 f1) Bl h h4) (+ (/ dtr 2.0) 1) 0) ""
		       "_line" (list (- (+ (- Vn f1 f1) Bl h h4) f) (- 0 (/ Dn 2.0)) 0) (list (+ (- Vn f1 f1) Bl h h4) (- 0 (+ (/ dtr 2.0) 1)) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h h4) (+ (/ dtr 2.0) 1) 0) (list (+ (- Vn f1 f1) Bl h h4) (- 0 (+ (/ dtr 2.0) 1)) 0) ""
		       "_line" (list (+ (- Vn f1) Bl) (/ dtr 2.0) 0) (list (+ (- Vn f1 f1) Bl h h4) (/ dtr 2.0) 0) ""
		       "_line" (list (+ (- Vn f1) Bl) (- 0 (/ dtr 2.0)) 0) (list (+ (- Vn f1 f1) Bl h h4) (- 0 (/ dtr 2.0)) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h) (+ (/ D1 2.0) (/ Dotv 2.0)) 0) (list (+ (+ (- Vn f1 f1) Bl h b)) (+ (/ D1 2.0) (/ Dotv 2.0)) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h) (- (/ D1 2.0) (/ Dotv 2.0)) 0) (list (+ (+ (- Vn f1 f1) Bl h b)) (- (/ D1 2.0) (/ Dotv 2.0)) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h) (- 0 (+ (/ D1 2.0) (/ Dotv 2.0))) 0) (list (+ (+ (- Vn f1 f1) Bl h b)) (- 0 (+ (/ D1 2.0) (/ Dotv 2.0))) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h) (- 0 (- (/ D1 2.0) (/ Dotv 2.0))) 0) (list (+ (+ (- Vn f1 f1) Bl h b)) (- 0 (- (/ D1 2.0) (/ Dotv 2.0))) 0) ""))
;штриховка
(if (= Isp 6) (command "_.-view" "_front"
		       "_celweight" 009
		       "_bhatch" "_P" "ANSI31" "2" "90" (list (- Vn (/ h4 2.0)) (+ (/ dtr 2.0) 2.0) 0) ""
		       "_bhatch" "_P" "ANSI31" "2" "90" (list (- Vn (/ h4 2.0)) (- 0 (+ (/ dtr 2.0) 2.0)) 0) ""
		       "_bhatch" "_P" "ANSI31" "2" "90" (list (- Vn (/ b 2.0)) (- (/ D 2.0) 2.0) 0) ""
		       "_bhatch" "_P" "ANSI31" "2" "90" (list (- Vn (/ b 2.0)) (- 0 (- (/ D 2.0) 2.0) 0)) ""
		       "_bhatch" "_P" "ANSI31" "2" "0" (list (+ Vn Bl) (+ (/ dtr 2.0) 2.0) 0) ""
		       "_bhatch" "_P" "ANSI31" "2" "0" (list (+ Vn Bl) (- 0 (+ (/ dtr 2.0) 2.0)) 0) ""
		       "_bhatch" "_P" "ANSI31" "2" "90" (list (+ Vn Bl) (- (/ D 2.0) 2.0) 0) ""
		       "_bhatch" "_P" "ANSI31" "2" "90" (list (+ Vn Bl) (- 0 (- (/ D 2.0) 2.0)) 0) ""
		       "_bhatch" "_P" "ANSI37" "0.4" "0" (list (+ Vn 1.0) 1.0 0) ""
		       "_bhatch" "_P" "ANSI37" "0.4" "0" (list (+ Vn 1.0) -1.0 0) ""
		       "_celweight" 030))
(if (= Isp 6) (command "_celweight" 030
		       ;вершины гаек
		       "_line" (list (- Vn h b Mb) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b Mb) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b Mb) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ (- Vn f1 f1) Bl h b Mb) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) ""
		       "_line" (list (- Vn h b Mb) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b Mb) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b Mb) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ (- Vn f1 f1) Bl h b Mb) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) ""
		       ;ребра гаек
		       "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
		       "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
		       "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
		       "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
		       ;наружние фаски гаек
		       "_line" (list (- Vn h b Mb) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
		       "_line" (list (- Vn h b Mb) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
		       "_line" (list (- Vn h b) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
		       "_line" (list (- Vn h b) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
		       
		       "_line" (list (- Vn h b Mb) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
		       "_line" (list (- Vn h b Mb) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
		       "_line" (list (- Vn h b) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
		       "_line" (list (- Vn h b) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""

		       "_line" (list (+ (- Vn f1 f1) Bl h b) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b Mb) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b Mb) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0)) 0) ""

		       "_line" (list (+ (- Vn f1 f1) Bl h b) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b Mb) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b Mb) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (* (- (/ Mb 2.0) 1.5) 2.0))) 0) ""
                       ;внутренние ребра гаек
		       "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
                       ;внутренние фаски гаек
	               "_line" (list (- Vn h b Mb) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (- Vn h b Mb) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (- Vn h b) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (- Vn h b) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       
		       "_line" (list (- Vn h b Mb) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (- Vn h b Mb) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (- Vn h b) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (- Vn h b) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""

		       "_line" (list (+ (- Vn f1 f1) Bl h b) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b Mb) (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b Mb) (- (/ D1 2.0) (* (/ Sg 2.0) 0.9)) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""

		       "_line" (list (+ (- Vn f1 f1) Bl h b) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b Mb) (- 0 (+ (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (+ (- Vn f1 f1) Bl h b Mb) (- 0 (- (/ D1 2.0) (* (/ Sg 2.0) 0.9))) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
                       ;дуги гаек
		       "_arc" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- Vn h b Mb) (/ D1 2.0) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0)
		       "_arc" (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- Vn h b) (/ D1 2.0) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0)
		       "_arc" (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- Vn h b Mb) (- 0 (/ D1 2.0)) 0) (list (- Vn h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0)
		       "_arc" (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- Vn h b) (- 0 (/ D1 2.0)) 0) (list (- Vn h b (/ (- Mb (* Mb 0.9)) 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0)
		       "_arc" (list (+ (- Vn f1 f1) Bl h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ (- Vn f1 f1) Bl h b) (/ D1 2.0) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0)
		       "_arc" (list (+ (- Vn f1 f1) Bl h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ (- Vn f1 f1) Bl h b Mb) (/ D1 2.0) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0)
		       "_arc" (list (+ (- Vn f1 f1) Bl h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ (- Vn f1 f1) Bl h b) (- 0 (/ D1 2.0)) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (- Mb (/ (- Mb (* Mb 0.9)) 2.0)))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0)
		       "_arc" (list (+ (- Vn f1 f1) Bl h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ (- Vn f1 f1) Bl h b Mb) (- 0 (/ D1 2.0)) 0) (list (+ (- Vn f1 f1) Bl h b (- Mb (/ (- Mb (* Mb 0.9)) 2.0))) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0)))
		       ;вылет шпильки
(if (= Isp 6) (setq Lb (* (atof (rtos (/ (+ 18 Mb b h (- Bl f1 f1) h b Mb 18) 10) 2 0)) 10)))
(if (= Isp 6) (command "_celweight" 009
		       "_linetype" "_set" "ACAD_ISO04W100" ""
		       "_line" (list (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0) 10) (/ D1 2.0) 0) (list (+ (- Vn f1) (/ Bl 2.0) (/ Lb 2.0) 10) (/ D1 2.0) 0) ""
		       "_line" (list (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0) 10) (- 0 (/ D1 2.0)) 0) (list (+ (- Vn f1) (/ Bl 2.0) (/ Lb 2.0) 10) (- 0 (/ D1 2.0)) 0) ""
		       "_celweight" 030
		       "_linetype" "_set" "ByLayer" ""
		       "_line" (list (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       ;фаска шпилек
		       "_line" (list (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       ;торчащая грань шпильки
		       "_line" (list (- (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (- Vn h b Mb) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (- (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (- Vn h b Mb) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (- (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (- Vn h b Mb) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (- (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (- Vn h b Mb) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (+ (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- Vn f1 f1) Bl h b Mb) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (+ (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- Vn f1 f1) Bl h b Mb) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (+ (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- Vn f1 f1) Bl h b Mb) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (+ (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- Vn f1 f1) Bl h b Mb) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       ;торчащая резьба шпильки
		       "_celweight" 009
		       "_line" (list (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- Vn h b Mb) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (- Vn h b Mb) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- Vn h b Mb) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (- Vn h b Mb) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ (- Vn f1 f1) Bl h b Mb) (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) (list (+ (- Vn f1 f1) Bl h b Mb) (- (/ D1 2.0) (- (/ Mb 2.0) 1.5)) 0) ""
		       "_line" (list (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ (- Vn f1 f1) Bl h b Mb) (- 0 (+ (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       "_line" (list (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) (list (+ (- Vn f1 f1) Bl h b Mb) (- 0 (- (/ D1 2.0) (- (/ Mb 2.0) 1.5))) 0) ""
		       ;грань фаски шпилек
		       "_celweight" 030
		       "_line" (list (- (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (- (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (- (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (- (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (+ (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (+ (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (+ (- Vn f1) (/ Bl 2.0)) (- (/ Lb 2.0) 1.5)) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""))
(if (and (= Isp 6) (= Bt 1)) (command "_line" (list (- Vn h b) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- Vn f1 f1) Bl h b) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- Vn h b) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- Vn f1 f1) Bl h b) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- Vn h b) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- Vn f1 f1) Bl h b) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (- Vn h b) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- Vn f1 f1) Bl h b) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      ;резьба
				      "_celweight" 009
				      "_line" (list (- Vn h b) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- Vn h b) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- Vn h b) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""
				      "_line" (list (- Vn h b) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""
				      "_line" (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ (- Vn f1 f1) Bl h b) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ (- Vn f1 f1) Bl h b) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ (- Vn f1 f1) Bl h b) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""
				      "_line" (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ (- Vn f1 f1) Bl h b) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""))
(if (and (= Isp 6) (= Bt 2)) (command "_line" (list (- Vn h b) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- Vn h b) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- Vn f1 f1) Bl h b) (+ (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- Vn f1 f1) Bl h b) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- Vn h b) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (- Vn h b) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- Vn f1 f1) Bl h b) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- Vn f1 f1) Bl h b) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      "_line" (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
				      "_line" (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
				      ;внутренние фаски
				      "_line" (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (- (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (- (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (- 0 (- (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (- (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (- (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (- 0 (- (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) (list (- (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) (list (- (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) (list (- (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (+ (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (- 0 (- (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) (list (- (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (/ (- Mb db2) 2.0)) (- (- 0 (- (/ D1 2.0) (/ Mb 2.0))) (/ (- Mb db2) 2.0)) 0) ""
				      ;доведение видимой части фланцев
				      "_line" (list (- Vn h) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (- Vn h) (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (- Vn h) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (- Vn h) (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (- Vn f1 f1) Bl h) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- Vn f1 f1) Bl h) (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (+ (- Vn f1 f1) Bl h) (- (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ (- Vn f1 f1) Bl h) (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0)) 0) ""
				      "_line" (list (- Vn h) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (- Vn h) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0))) 0) ""
				      "_line" (list (- Vn h) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (- Vn h) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0))) 0) ""
				      "_line" (list (+ (- Vn f1 f1) Bl h) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- Vn f1 f1) Bl h) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0))) 0) ""
				      "_line" (list (+ (- Vn f1 f1) Bl h) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ (- Vn f1 f1) Bl h) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) (/ (- Mb db2) 2.0))) 0) ""
				      ;резьба
				      "_celweight" 009
				      "_line" (list (- Vn h b) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- Vn h b) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- Vn h b) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""
				      "_line" (list (- Vn h b) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ (- (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""
				      "_line" (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ (- Vn f1 f1) Bl h b) (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) (list (+ (- Vn f1 f1) Bl h b) (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5) 0) ""
				      "_line" (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ (- Vn f1 f1) Bl h b) (- 0 (- (+ (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""
				      "_line" (list (- (+ (+ (- Vn f1) (/ Bl 2.0)) (/ Lb 2.0)) L0) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) (list (+ (- Vn f1 f1) Bl h b) (- 0 (+ (- (/ D1 2.0) (/ Mb 2.0)) 1.5)) 0) ""))
;ответный фланец для 7 серии
(if (= Isp 7) (command "_line" (list Vn (+ (/ D8 2.0) (/ b2 2.0)) 0) (list (+ Vn 2.0) (+ (/ D8 2.0) (/ b2 2.0)) 0) ""
		       "_line" (list Vn (- (/ D8 2.0) (/ b2 2.0)) 0) (list (+ Vn 2.0) (- (/ D8 2.0) (/ b2 2.0)) 0) ""
		       "_line" (list Vn (- 0 (+ (/ D8 2.0) (/ b2 2.0))) 0) (list (+ Vn 2.0) (- 0 (+ (/ D8 2.0) (/ b2 2.0))) 0) ""
		       "_line" (list Vn (- 0 (- (/ D8 2.0) (/ b2 2.0))) 0) (list (+ Vn 2.0) (- 0 (- (/ D8 2.0) (/ b2 2.0))) 0) ""
		       "_line" (list (+ Vn 2.0) (/ D9 2.0) 0) (list (+ Vn 2.0) (+ (/ D8 2.0) (/ b2 2.0)) 0) ""
		       "_line" (list (+ Vn 2.0) (- (/ D8 2.0) (/ b2 2.0)) 0) (list (+ Vn 2.0) (- 0 (- (/ D8 2.0) (/ b2 2.0))) 0) ""
		       "_line" (list (+ Vn 2.0) (- 0 (+ (/ D8 2.0) (/ b2 2.0))) 0) (list (+ Vn 2.0) (- 0 (/ D9 2.0)) 0) ""
		       "_line" (list (+ Vn 2.0) (/ D9 2.0) 0) (list (+ Vn 2.0 h) (+ (/ D9 2.0) h) 0) ""
		       "_line" (list (+ Vn 2.0) (- 0 (/ D9 2.0)) 0) (list (+ Vn 2.0 h) (- 0 (+ (/ D9 2.0) h)) 0) ""
		       "_line" (list (+ Vn 2.0 h) (+ (/ D9 2.0) h) 0) (list (+ Vn 2.0 h) (- (/ D1 2.0) (/ Mb 2.0)) 0) ""
		       "_line" (list (+ Vn 2.0 h) (- 0 (+ (/ D9 2.0) h)) 0) (list (+ Vn 2.0 h) (- 0 (- (/ D1 2.0) (/ Mb 2.0))) 0) ""
		       "_line" (list (+ Vn 2.0 h) (+ (/ D1 2.0) (/ Mb 2.0)) 0) (list (+ Vn 2.0 h) (/ D 2.0) 0) ""
		       "_line" (list (+ Vn 2.0 h) (- 0 (+ (/ D1 2.0) (/ Mb 2.0))) 0) (list (+ Vn 2.0 h) (- 0 (/ D 2.0)) 0) ""
		       "_line" (list (+ Vn 2.0 h) (/ D 2.0) 0) (list (+ Vn 2.0 h b) (/ D 2.0) 0) ""
		       "_line" (list (+ Vn 2.0 h) (- 0 (/ D 2.0)) 0) (list (+ Vn 2.0 h b) (- 0 (/ D 2.0)) 0) ""
		       "_line" (list (+ Vn 2.0 h b) (/ D 2.0) 0) (list (+ Vn 2.0 h b) (/ Dm 2.0) 0) ""
		       "_line" (list (+ Vn 2.0 h b) (- 0 (/ D 2.0)) 0) (list (+ Vn 2.0 h b) (- 0 (/ Dm 2.0)) 0) ""
		       "_line" (list (+ Vn 2.0 h b) (/ Dm 2.0) 0) (list (+ (+ Vn 2.0 h b) (* (/ (- Dm Dn) 2.0) 2.5)) (/ Dn 2.0) 0) ""
		       "_line" (list (+ Vn 2.0 h b) (- 0 (/ Dm 2.0)) 0) (list (+ (+ Vn 2.0 h b) (* (/ (- Dm Dn) 2.0) 2.5)) (- 0 (/ Dn 2.0)) 0) ""
		       "_line" (list (+ (+ Vn 2.0 h b) (* (/ (- Dm Dn) 2.0) 2.5)) (/ Dn 2.0) 0) (list (- (+ Vn 2.0 h h4) f) (/ Dn 2.0) 0) ""
		       "_line" (list (+ (+ Vn 2.0 h b) (* (/ (- Dm Dn) 2.0) 2.5)) (- 0 (/ Dn 2.0)) 0) (list (- (+ Vn 2.0 h h4) f) (- 0 (/ Dn 2.0)) 0) ""
		       "_line" (list (- (+ Vn 2.0 h h4) f) (/ Dn 2.0) 0) (list (+ Vn 2.0 h h4) (+ (/ dtr 2.0) 1) 0) ""
		       "_line" (list (- (+ Vn 2.0 h h4) f) (- 0 (/ Dn 2.0)) 0) (list (+ Vn 2.0 h h4) (- 0 (+ (/ dtr 2.0) 1)) 0) ""
		       "_line" (list (+ Vn 2.0 h h4) (+ (/ dtr 2.0) 1) 0) (list (+ Vn 2.0 h h4) (- 0 (+ (/ dtr 2.0) 1)) 0) ""
		       "_line" (list (+ Vn 2.0) (/ dtr 2.0) 0) (list (+ Vn 2.0 h h4) (/ dtr 2.0) 0) ""
		       "_line" (list (+ Vn 2.0) (- 0 (/ dtr 2.0)) 0) (list (+ Vn 2.0 h h4) (- 0 (/ dtr 2.0)) 0) ""
		       "_line" (list (+ Vn 2.0 h) (+ (/ D1 2.0) (/ Dotv 2.0)) 0) (list (+ Vn 2.0 h b) (+ (/ D1 2.0) (/ Dotv 2.0)) 0) ""
		       "_line" (list (+ Vn 2.0 h) (- (/ D1 2.0) (/ Dotv 2.0)) 0) (list (+ Vn 2.0 h b) (- (/ D1 2.0) (/ Dotv 2.0)) 0) ""
		       "_line" (list (+ Vn 2.0 h) (- 0 (+ (/ D1 2.0) (/ Dotv 2.0))) 0) (list (+ Vn 2.0 h b) (- 0 (+ (/ D1 2.0) (/ Dotv 2.0))) 0) ""
		       "_line" (list (+ Vn 2.0 h) (- 0 (- (/ D1 2.0) (/ Dotv 2.0))) 0) (list (+ Vn 2.0 h b) (- 0 (- (/ D1 2.0) (/ Dotv 2.0))) 0) ""))
(if (and (= Isp 7) (= h3 6.5)) (command "_line" (list (+ Vn 2.0) (+ (/ D8 2.0) (/ b2 2.0)) 0) (list (+ Vn 2.0 4.7) (+ (/ D8 2.0) 2.6) 0) ""
				      "_line" (list (+ Vn 2.0) (- (/ D8 2.0) (/ b2 2.0)) 0) (list (+ Vn 2.0 4.7) (- (/ D8 2.0) 2.6) 0) ""
				      "_arc" (list (+ Vn 2.0 4.7) (- (/ D8 2.0) 2.6) 0) (list (+ Vn 2.0 h3) (/ D8 2.0) 0) (list (+ Vn 2.0 4.7) (+ (/ D8 2.0) 2.6) 0)
				      "_line" (list (+ Vn 2.0) (- 0 (+ (/ D8 2.0) (/ b2 2.0))) 0) (list (+ Vn 2.0 4.7) (- 0 (+ (/ D8 2.0) 2.6)) 0) ""
				      "_line" (list (+ Vn 2.0) (- 0 (- (/ D8 2.0) (/ b2 2.0))) 0) (list (+ Vn 2.0 4.7) (- 0 (- (/ D8 2.0) 2.6)) 0) ""
				      "_arc" (list (+ Vn 2.0 4.7) (- 0 (- (/ D8 2.0) 2.6)) 0) (list (+ Vn 2.0 h3) (- 0 (/ D8 2.0)) 0) (list (+ Vn 2.0 4.7) (- 0 (+ (/ D8 2.0) 2.6)) 0)))
(if (and (= Isp 7) (= h3 8)) (command "_line" (list (+ Vn 2.0) (+ (/ D8 2.0) (/ b2 2.0)) 0) (list (+ Vn 2.0 5.7) (+ (/ D8 2.0) 3.6) 0) ""
				      "_line" (list (+ Vn 2.0) (- (/ D8 2.0) (/ b2 2.0)) 0) (list (+ Vn 2.0 5.7) (- (/ D8 2.0) 3.6) 0) ""
				      "_arc" (list (+ Vn 2.0 5.7) (- (/ D8 2.0) 3.6) 0) (list (+ Vn 2.0 h3) (/ D8 2.0) 0) (list (+ Vn 2.0 5.7) (+ (/ D8 2.0) 3.6) 0)
				      "_line" (list (+ Vn 2.0) (- 0 (+ (/ D8 2.0) (/ b2 2.0))) 0) (list (+ Vn 2.0 5.7) (- 0 (+ (/ D8 2.0) 3.6)) 0) ""
				      "_line" (list (+ Vn 2.0) (- 0 (- (/ D8 2.0) (/ b2 2.0))) 0) (list (+ Vn 2.0 5.7) (- 0 (- (/ D8 2.0) 3.6)) 0) ""
				      "_arc" (list (+ Vn 2.0 5.7) (- 0 (- (/ D8 2.0) 3.6)) 0) (list (+ Vn 2.0 h3) (- 0 (/ D8 2.0)) 0) (list (+ Vn 2.0 5.7) (- 0 (+ (/ D8 2.0) 3.6)) 0)))
(if (and (= Isp 7) (= h3 10)) (command "_line" (list (+ Vn 2.0) (+ (/ D8 2.0) (/ b2 2.0)) 0) (list (+ Vn 2.0 7.4) (+ (/ D8 2.0) 3.9) 0) ""
				      "_line" (list (+ Vn 2.0) (- (/ D8 2.0) (/ b2 2.0)) 0) (list (+ Vn 2.0 7.4) (- (/ D8 2.0) 3.9) 0) ""
				      "_arc" (list (+ Vn 2.0 7.4) (- (/ D8 2.0) 3.9) 0) (list (+ Vn 2.0 h3) (/ D8 2.0) 0) (list (+ Vn 2.0 7.4) (+ (/ D8 2.0) 3.9) 0)
				      "_line" (list (+ Vn 2.0) (- 0 (+ (/ D8 2.0) (/ b2 2.0))) 0) (list (+ Vn 2.0 7.4) (- 0 (+ (/ D8 2.0) 3.9)) 0) ""
				      "_line" (list (+ Vn 2.0) (- 0 (- (/ D8 2.0) (/ b2 2.0))) 0) (list (+ Vn 2.0 7.4) (- 0 (- (/ D8 2.0) 3.9)) 0) ""
				      "_arc" (list (+ Vn 2.0 7.4) (- 0 (- (/ D8 2.0) 3.9)) 0) (list (+ Vn 2.0 h3) (- 0 (/ D8 2.0)) 0) (list (+ Vn 2.0 7.4) (- 0 (+ (/ D8 2.0) 3.9)) 0)))
(if (and (= Isp 7) (= h3 11)) (command "_line" (list (+ Vn 2.0) (+ (/ D8 2.0) (/ b2 2.0)) 0) (list (+ Vn 2.0 7.5) (+ (/ D8 2.0) 5.3) 0) ""
				      "_line" (list (+ Vn 2.0) (- (/ D8 2.0) (/ b2 2.0)) 0) (list (+ Vn 2.0 7.5) (- (/ D8 2.0) 5.3) 0) ""
				      "_arc" (list (+ Vn 2.0 7.5) (- (/ D8 2.0) 5.3) 0) (list (+ Vn 2.0 h3) (/ D8 2.0) 0) (list (+ Vn 2.0 7.5) (+ (/ D8 2.0) 5.3) 0)
				      "_line" (list (+ Vn 2.0) (- 0 (+ (/ D8 2.0) (/ b2 2.0))) 0) (list (+ Vn 2.0 7.5) (- 0 (+ (/ D8 2.0) 5.3)) 0) ""
				      "_line" (list (+ Vn 2.0) (- 0 (- (/ D8 2.0) (/ b2 2.0))) 0) (list (+ Vn 2.0 7.5) (- 0 (- (/ D8 2.0) 5.3)) 0) ""
				      "_arc" (list (+ Vn 2.0 7.5) (- 0 (- (/ D8 2.0) 5.3)) 0) (list (+ Vn 2.0 h3) (- 0 (/ D8 2.0)) 0) (list (+ Vn 2.0 7.5) (- 0 (+ (/ D8 2.0) 5.3)) 0)))
(if (and (= Isp 7) (= h3 14)) (command "_line" (list (+ Vn 2.0) (+ (/ D8 2.0) (/ b2 2.0)) 0) (list (+ Vn 2.0 8.5) (+ (/ D8 2.0) 8.0) 0) ""
				      "_line" (list (+ Vn 2.0) (- (/ D8 2.0) (/ b2 2.0)) 0) (list (+ Vn 2.0 8.5) (- (/ D8 2.0) 8.0) 0) ""
				      "_arc" (list (+ Vn 2.0 8.5) (- (/ D8 2.0) 8.0) 0) (list (+ Vn 2.0 h3) (/ D8 2.0) 0) (list (+ Vn 2.0 8.5) (+ (/ D8 2.0) 8.0) 0)
				      "_line" (list (+ Vn 2.0) (- 0 (+ (/ D8 2.0) (/ b2 2.0))) 0) (list (+ Vn 2.0 8.5) (- 0 (+ (/ D8 2.0) 8.0)) 0) ""
				      "_line" (list (+ Vn 2.0) (- 0 (- (/ D8 2.0) (/ b2 2.0))) 0) (list (+ Vn 2.0 8.5) (- 0 (- (/ D8 2.0) 8.0)) 0) ""
				      "_arc" (list (+ Vn 2.0 8.5) (- 0 (- (/ D8 2.0) 8.0)) 0) (list (+ Vn 2.0 h3) (- 0 (/ D8 2.0)) 0) (list (+ Vn 2.0 8.5) (- 0 (+ (/ D8 2.0) 8.0)) 0)))


;штриховка
(if (= Isp 7) (command "_.-view" "_front"
		       "_celweight" 009
		       "_bhatch" "_P" "ANSI31" "2" "90" (list (- Vn (/ h4 2.0)) (+ (/ dtr 2.0) 2.0) 0) ""
		       "_bhatch" "_P" "ANSI31" "2" "90" (list (- Vn (/ h4 2.0)) (- 0 (+ (/ dtr 2.0) 2.0)) 0) ""
		       "_bhatch" "_P" "ANSI31" "2" "90" (list (- Vn (/ b 2.0)) (- (/ D 2.0) 2.0) 0) ""
		       "_bhatch" "_P" "ANSI31" "2" "90" (list (- Vn (/ b 2.0)) (- 0 (- (/ D 2.0) 2.0) 0)) ""
		       "_bhatch" "_P" "ANSI31" "2" "0" (list (+ Vn (/ h4 2.0)) (+ (/ dtr 2.0) 2.0) 0) ""
		       "_bhatch" "_P" "ANSI31" "2" "0" (list (+ Vn (/ h4 2.0)) (- 0 (+ (/ dtr 2.0) 2.0)) 0) ""
		       "_bhatch" "_P" "ANSI31" "2" "90" (list (+ Vn (/ b 2.0)) (- (/ D 2.0) 2.0) 0) ""
		       "_bhatch" "_P" "ANSI31" "2" "90" (list (+ Vn (/ b 2.0)) (- 0 (- (/ D 2.0) 2.0)) 0) ""
		       "_bhatch" "_P" "ANSI37" "0.4" "0" (list (+ Vn 1.0) (/ D8 2.0) 0) ""
		       "_bhatch" "_P" "ANSI37" "0.4" "0" (list (+ Vn 1.0) (- 0 (/ D8 2.0)) 0) ""
		       "_celweight" 030))
(setq Sap nil Dnsh nil Ssh nil Vn nil Vv nil Isp nil Dy nil Py nil Ryad nil Bt nil Yk nil Dnk nil Dvk nil Bk nil Bl nil L0 nil db2 nil f nil f1 nil f5 nil Sg nil Lb nil)
(setq D nil D1 nil D2 nil D3 nil D4 nil D5 nil D6 nil D7 nil D8 nil D9 nil Dotv nil n nil h nil h1 nil h2 nil h3 nil Mb nil dtr nil b nil h4 nil Dm nil Dn nil b2 nil r nil)
   );end defun
Просмотров: 3397
 
Непрочитано 19.05.2016, 14:16
#2
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 36,742


Если коротко:
1. Переменные глобальные
2. Отсутствует обработчик ошибок
3. Миллион if-ов можно (и нужно) заменить либо cond, либо списком
4. Отсутствует контроль вводимых данных. Если я в ответ на "Толщина стенки аппарата" введу "ёокылымыны!"? Код это дело проглотит. А если на "Наружный диаметр" я укажу -16,65454654654654 (именно так, с запятой)?
5. Грабли радостно разбросаны повсюду где можно.

----- добавлено через ~2 мин. -----
7. Я бы запросы перевел в диалог
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 19.05.2016, 14:20
#3
baksconstructor


 
Регистрация: 05.11.2014
Сообщений: 929


protorgovec
ГОСТ 12815-80 - не действующий

Заменен на ГОСТ 33259-2015 Фланцы арматуры, соединительных частей и трубопроводов на номинальное давление до PN 250. Конструкция, размеры и общие технические требования
baksconstructor вне форума  
 
Автор темы   Непрочитано 19.05.2016, 14:25
#4
protorgovec

газо- нефтепереработка
 
Регистрация: 22.07.2015
Уфа
Сообщений: 98


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
Если коротко:
1. Переменные глобальные
2. Отсутствует обработчик ошибок
3. Миллион if-ов можно (и нужно) заменить либо cond, либо списком
4. Отсутствует контроль вводимых данных. Если я в ответ на "Толщина стенки аппарата" введу "ёокылымыны!"? Код это дело проглотит. А если на "Наружный диаметр" я укажу -16,65454654654654 (именно так, с запятой)?
5. Грабли радостно разбросаны повсюду где можно.

----- добавлено через ~2 мин. -----
7. Я бы запросы перевел в диалог
Ну, запросы в диалог, для меня словосочетание темное. Замена if тоже пока для меня неизвестна. Но думаю ни кто и не поправит слишком много времени на это скорее всего надо.
Я уж написал как могу пока на начальных этапах познания.

----- добавлено через ~3 мин. -----
Цитата:
Сообщение от baksconstructor Посмотреть сообщение
Заменен на ГОСТ 33259-2015 Фланцы арматуры, соединительных частей и трубопроводов на номинальное давление до PN 250. Конструкция, размеры и общие технические требования
Я в курсе еще год назад должны были заменить, но продлили до 1 апреля 2016 года. Полистав данный ГОСТ убедился что изменений немного. Правда типы совсем поиному назвали. Но думаю данный гост еще долго будут использовать все равно в проектах придется прописывать 33 гост с разрешением замены, где сейчас все найдут фланцы по новому госту? И куда девать фланцы по старому, а их тьма еще
protorgovec вне форума  
 
Непрочитано 19.05.2016, 14:32
#5
baksconstructor


 
Регистрация: 05.11.2014
Сообщений: 929


Offtop:
Цитата:
Сообщение от protorgovec Посмотреть сообщение
И куда девать фланцы по старому, а их тьма еще
В Саратов, там в каждом гараже цех для ...
baksconstructor вне форума  
 
Автор темы   Непрочитано 19.05.2016, 14:33
#6
protorgovec

газо- нефтепереработка
 
Регистрация: 22.07.2015
Уфа
Сообщений: 98


Цитата:
Сообщение от baksconstructor Посмотреть сообщение
В Саратов, там в каждом гараже цех для ...
Не спасибо, я у вас уже был есть на что посмотреть. Но поставка только от проверенных изготовителей

----- добавлено через ~2 мин. -----
Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
Если коротко:
Если коротко а не подскажешь мне по моей последней теме в программировании? Там более нуторная программа, буду признателен!
protorgovec вне форума  
 
Непрочитано 19.05.2016, 14:41
#7
baksconstructor


 
Регистрация: 05.11.2014
Сообщений: 929


Цитата:
Сообщение от protorgovec Посмотреть сообщение
Если коротко а не подскажешь мне по моей последней теме в программировании?
Не, я в лиспе не силён...
А фланцы берем из Компаса.
baksconstructor вне форума  
 
Автор темы   Непрочитано 19.05.2016, 14:57
#8
protorgovec

газо- нефтепереработка
 
Регистрация: 22.07.2015
Уфа
Сообщений: 98


Цитата:
Сообщение от baksconstructor Посмотреть сообщение
Не, я в лиспе не силён...
А фланцы берем из Компаса.
да я сам с лиспом пока не дружу так, можно сказать на уровне детсада
сейчас вот пытаюсь программно рисовать опорные элементы для однопоточных тарелок, модель рисует, а вот чертежи какая то жесть мурыжу уже недели 2, продвигаюсь в день по копейке
protorgovec вне форума  
 
Непрочитано 19.05.2016, 18:40
#9
СРО РОКОКО

... устойчив, трещиностоек, никогда не ухожу с опоры в пролёт
 
Регистрация: 01.06.2014
в Вашингтонах не бывал, в Чикаги не собираюсь
Сообщений: 384


Почему виснет комп при открытии именно этой темы?
__________________
Строительный Развод Организованный:
Распилим-Откатим-Кинем-Отмажем-Конкретно Опустим
СРО РОКОКО вне форума  
 
Непрочитано 19.05.2016, 18:46
1 | #10
Admin
Administrator


 
Регистрация: 21.08.2003
Ульяновск
Сообщений: 3,934


Цитата:
Сообщение от СРО РОКОКО Посмотреть сообщение
Почему виснет комп при открытии именно этой темы?
Offtop: Исправлено, уже не виснет
Admin вне форума  
 
Автор темы   Непрочитано 20.05.2016, 13:27
#11
protorgovec

газо- нефтепереработка
 
Регистрация: 22.07.2015
Уфа
Сообщений: 98


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
3. Миллион if-ов можно (и нужно) заменить либо cond, либо списком
Ты имеешь в виду на что то такое? Вместо
Код:
[Выделить все]
 (if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 10) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 75.0 D1 50.0 Dotv 11.0 n 4.0 h 2.0 Mb 10.0 dtr 8.0 b 8.0 h4 23.0 Dm 22.0 Dn 15.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 15) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 80.0 D1 55.0 Dotv 11.0 n 4.0 h 2.0 Mb 10.0 dtr 12.0 b 8.0 h4 26.0 Dm 28.0 Dn 19.0))
(if (and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 20) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 90.0 D1 65.0 Dotv 11.0 n 4.0 h 2.0 Mb 10.0 dtr 18.0 b 8.0 h4 28.0 Dm 36.0 Dn 26.0))
прописать
Код:
[Выделить все]
 (cond
(and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 10) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 75.0 D1 50.0 Dotv 11.0 n 4.0 h 2.0 Mb 10.0 dtr 8.0 b 8.0 h4 23.0 Dm 22.0 Dn 15.0)
(and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 15) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 80.0 D1 55.0 Dotv 11.0 n 4.0 h 2.0 Mb 10.0 dtr 12.0 b 8.0 h4 26.0 Dm 28.0 Dn 19.0)
(and (or (= Isp 1) (= Isp 3) (= Isp 5) (= Isp 6) (= Isp 7) (= Isp 9)) (= Dy 20) (or (= Py 0.1) (= Py 0.25)) (or (= Ryad 1) (= Ryad 2))) (setq D 90.0 D1 65.0 Dotv 11.0 n 4.0 h 2.0 Mb 10.0 dtr 18.0 b 8.0 h4 28.0 Dm 36.0 Dn 26.0))
protorgovec вне форума  
 
Непрочитано 20.05.2016, 14:03
#12
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 36,742


Я имею в виду, что данные такого объема желательно хранить во внешнем файле. См., например, программу "Прокат"
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 20.05.2016, 14:37
#13
protorgovec

газо- нефтепереработка
 
Регистрация: 22.07.2015
Уфа
Сообщений: 98


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
Я имею в виду, что данные такого объема желательно хранить во внешнем файле. См., например, программу "Прокат"
Ну, может быть потом сделаю данные отдельным файлом я же пока школьник в этом, да и время особо на это нету, продолжаю как только время появляется. Спасибо за совет!
protorgovec вне форума  
 
Непрочитано 29.05.2016, 17:09
#14
Нефтепроводчик


 
Регистрация: 17.03.2009
Сообщений: 89


Не с первой попытки, но мне удалось с помощью этой программы построить штуцер. Вот что получилось, см. вложение.
Что порадовало: Программа сработала, это само по себе хорошо. Программа сработала почти полностью, что тоже хорошо. Почему почти? - штриховка оказалась не полной, по одной зоне на каждом фланце оказались незаштрихованы. Возможно, я что-то ввел не так. Самое наличие штриховки радует, хотя, предположу, что в большинстве случаев, где бы я применял программу, штриховка будет не нужна. Имхо, лучше без сечения, сечение несложно будет сделать самому. какое-то задвоение линий по шпилькам, вероятно, я ввел некорректную длину резьбовых участков.
Что не хватает: Очень не хватает подсказок и ограничения вариантов выбора, например, DN и PN могут быть только из ряда определенных значений, пользователь не должен иметь возможности ввести другие не из ряда. А лучше вообще не вводить, а ткнуть мышкой из списка. Некоторые вводимые данные не понятны, например, что такое ширина линзы? Некоторые параметры, на мой взгляд, избыточны, например, зачем толщина стенки аппарата, если стенку аппарата программа не рисует? Насколько необходимо вводить длины резьбовых участков шпилек, есть, на мой взгляд, программа их должна определить самостоятельно исходя из длины скрепляемых деталей? Зачем вводить диаметр шпилек, разве программа не должна их определять самостоятельно? Как программа дружит с точкой и запятой, например, когда вводишь 1,6 и 1.6 как условное давление фланца. У меня несколько раз не получилось закончить программу и обнаружил, что объектная привязка оказалась отключена. Нехорошо, системные переменные нужно возвращать взад, даже если программа завершена неправильно или отменена. Нужен обработчик ошибок.
Оптимальным было бы создать диалоговое окно, в котором ввести все эти значения. Притом какие-то выбрать из ниспадающего списка (DN, PN, ряд и пр.), какие-то ввести вручную, но не давать закрыть окно, пока данные не будут введены правильно (проверки, является ли введенное значение числом, положительное ли значение, не меньше/больше минимального/максимального значение и пр.). В окне поместить картинку штуцера с размерами и обозначениями для наглядности.
Огромный массив данных через if выглядит громоздко. Лучше отдельный файл, в нем и набивать данные проще и работать. А сама программа сильно сократится - останется по сути тело программы и диалоги.
7 лет назад делал навороченный динамический блок фланца. Без крепежа, но для упрощенного изображения для монтажных чертежей трубопроводов и оборудования было достаточно. Пользуюсь до сих пор: http://dwg.ru/dnl/5584
Считаю, что можно сделать с помощью дин блоков, то лучше их вместо программы. Просто не каждая "блондинка" сможет запустить лисп - в отличие от дин. блока.
А вообщем реализация не плохая. Сам когда-то начинал делать такое, только в 3D. Написал лисп, который стоил 3D тело (фланцы, шпильки), их размещал в пространстве, потом по кнопке выполнял команду флаттен и получал из 3D тела 2D изображение. Преимущество - возможность генерации разных проекций. Правда дальше простейшей реализации не продолжил, нужно лисп было до ума доводить...

----- добавлено через ~3 ч. -----
Структура программы 3D фланцевого соединения предполагалась следующая:
1. Диалог ввода исходных данных. В качестве исходных данных вводятся:
- DN, PN, тип уплотнительной поверхности фланцевого соединения;
- построение 3D тела или 2D фигуры;
- в случае 2D нужно указать проекцию: фронтальная, профильная, под углом (в этом случае указать угол поворота).
Вызову диалога предшествует чтение значений по умолчанию. Вводимые значения проверяются на корректность.
2. Чтение базы данных. Программа определяет в зависимости от введенных данных геометрические размеры (все диаметры фланцев, типоразмер шпилек, количество гаек и пр.).
3. Отрисовка каждого элемента. Создаются 2D контуры. Вращением, выдавливанием, вырезанием создаются 3D тела.
4. Копирование и расположение элементов между собой. На выходе должен получиться набор 3D тел, представляющих собой фланцевое соединение.
5. Поворот (при необходимости) и применение команды flatten в случае, если требуется 2D изображение.
6. Создание блока из результата последней подпрограммы.
7. Блок "вешается" курсор. Конец программы. Остается только указать точку его вставки.
В случае повторного ввода команды в диалоговом окне должны быть данные предыдущего ввода.
Вложения
Тип файла: dwg
DWG 2010
Drawing1.dwg (67.4 Кб, 32 просмотров)

Последний раз редактировалось Нефтепроводчик, 29.05.2016 в 20:34.
Нефтепроводчик вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > Построение фланцевого соединения со штуцером. Фланцы ГОСТ 12815-80.

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Оформление чертежей КМ по новому ГОСТ 21.502-2007 Анкона Прочее. Архитектура и строительство 477 05.10.2019 13:01
Как сосчитать сумму цифр из отдельных мтекстов (и лисп для подсчета спецификаций) Red Nova LISP 647 20.05.2019 14:18
Стандарты оформления чертежей (бумага) Sleekka AutoCAD 23 01.12.2011 14:00
Есть ненужные документы. Посмотрите, кому что нужно Дмитрий832 Поиск литературы, чертежей, моделей и прочих материалов 73 18.12.2010 22:55
Нумерация гостов (строительных) Дмитррр Поиск литературы, чертежей, моделей и прочих материалов 3 11.03.2009 22:08