(command "стереть" "Все" "")
(command "привязка" "откл")
                    ;(command "_line" '(300 300) '(700 300) '(700 700) "")
(setq
  p1 (GetPoint " Введите начальные координаты ")
  x  (nth 0 p1)
  y  (nth 1 p1)
)
(setq dl (GetReal "\nВведите dl (70): "))
(if (= dl nil)
  (progn (setq dl 70))
)
(setq sh (GetReal "\nВведите sh (35): "))
(if (= sh nil)
  (progn (setq sh 35))
)
(setq vi (GetReal "\nВведите sh (34): "))
(if (= vi nil)
  (progn (setq vi 34))
)
(setq shkv1 (GetReal "\nВведите shkv1 (16): "))
(if (= shkv1 nil)
  (progn (setq shkv1 16))
)
(setq shkv2 (GetReal "\nВведите shkv2 (24): "))
(if (= shkv2 nil)
  (progn (setq shkv2 24))
)
(setq dlvn (GetReal "\nВведите dlvn (56): "))
(if (= dlvn nil)
  (progn (setq dlvn 56))
)
                    ; Вычисление точек
; Главный вид
(setq p2 (polar p1 0 dl))
(setq p3 (polar p2 (* 3 (/ Pi 2)) (/ (- vi shkv1) 2)))
(setq p4 (polar p3 Pi (/ (- dl dlvn) 2)))
(setq p5 (polar p4 (* 3 (/ Pi 2)) shkv1))
(setq p6 (polar p5 0 (/ (- dl dlvn) 2) ))
(setq p7 (polar p6 (* 3 (/ Pi 2)) (/ (- vi shkv1) 2)))
(setq p8 (polar p7 Pi dl))
(setq p9 (polar p8 (/ Pi 2) (/ (- vi shkv1) 2) ))
(setq p10 (polar p9 0 (/ (- dl dlvn) 2) ))
(setq p11 (polar p10 (/ Pi 2) shkv1 ))
(setq p12 (polar p11 Pi (/ (- dl dlvn) 2)) )

(setq pcx (polar p1 0 (- (/ dl 2) (/ shkv2 2)) ))
(setq pc1  (polar pcx (* 3 (/ Pi 2)) (- (/ vi 2) (/ shkv2 2)) ))
(setq pc2  (polar pc1 0 shkv2 ))
(setq pc3  (polar pc2 (* 3 (/ Pi 2)) shkv2 ))
(setq pc4  (polar pc3 Pi shkv2 ))


(setq p13  (polar p12 0 (- (/ dl 2) (/ shkv2 2)) ))
(setq p14  (polar p13 (* 3 (/ Pi 2)) shkv1 ))
(setq p15  (polar p3 (- 0 Pi) (- (/ dl 2) (/ shkv2 2)) ))
(setq p16  (polar p15 (* 3 (/ Pi 2)) shkv1 ))

(setq phatch1  (polar pc2 (/ Pi 4) 1))
(setq phatch2  (polar pc3 0 1))



                    ; Отрисовка линий
(command "_line" p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p1"")

(command "_line" p11 p13 "")
(command "_line" p10 p14"")
(command "_line" p4 p15 "")
(command "_line" p5 p16"")

(command "_line" pc1 pc2 pc3 pc4 pc1 "")


(command "_bhatch" "С" "ANSI31" "0.5" "30" phatch1 "" "")
(command "_bhatch" "С" "ANSI31" "0.5" "30" phatch2 "" "")
;(command "_line" pc1 phatch "")
;(command "_line" pc2 phatch "")
;(command "_line" pc3 phatch "")
;(command "_line" pc4 phatch "")