(command "_.Layer" "_Make" "main_lines" "_Color" "250" "" "LType" "Continuous" "" "")
(command "_erase" "All" "")
(command "_.Layer" "_Make" "dimens" "_Color" "64" "" "LType" "Continuous" "" "")
(command "_erase" "All" "")
;(command "ïðèâÿçêà" "îòêë")  (command "_Layer" "set" laynme "")
(command "_.Layer" "_Make" "main_lines" "_Color" "250" "" "LType" "Continuous" "" "")
(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Ââåäèòå vi (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) 3))
(setq phatch2  (polar pc3 0 3))



                    ; Îòðèñîâêà ëèíèé
(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" "_a" "" "_p" "_ansi31" "0.5" "30" phatch1 "" "")
(command "_bhatch" "_a" "" "_p" "_ansi31" "0.5" "30" phatch2 "" "")

;;;(command "_bhatch" "Ñ" "ANSI31" "0.5" "30" phatch1 "" "")
;;;(command "_bhatch" "Ñ" "ANSI31" "0.5" "30" phatch2 "" "")
(command "_.Layer" "_Make" "dimens" "_Color" "64" "" "LType" "Continuous" "" "")

(command "dimlinear" p1 p2 (polar p1 (/ Pi 2) 5 ) )
(command "dimlinear" p10 p5 (polar p10 (* 3 (/ Pi 2)) 15 ) )
(command "dimlinear" p9 p12 (polar p9 0 -5 ) )
(command "dimlinear" p1 p8 (polar p1 0 -10 ) )
(command "dimlinear" p16 p15 (polar p16 0 -5 ) )

(command "_.Layer" "_Make" "point_names" "_Color" "17" "" "LType" "Continuous" "" "")
(command "_text" p1 "2" "0" "p1" "")
(command "_text" p2 "2" "0" "p2" "")
(command "_text" p3 "2" "0" "p3" "")
(command "_text" p4 "2" "0" "p4" "")
(command "_text" p5 "2" "0" "p5" "")
(command "_text" p6 "2" "0" "p6" "")
(command "_text" p7 "2" "0" "p7" "")
(command "_text" p8 "2" "0" "p8" "")
(command "_text" p9 "2" "0" "p9" "")
(command "_text" p10 "2" "0" "p10" "")
(command "_text" p11 "2" "0" "p11" "")
(command "_text" p12 "2" "0" "p12" "")
(command "_text" p13 "2" "0" "p13" "")
(command "_text" p14 "2" "0" "p14" "")
(command "_text" p15 "2" "0" "p15" "")
(command "_text" p16 "2" "0" "p16" "")

(command "_text" pc1 "2" "0" "pc1" "")
(command "_text" pc2 "2" "0" "pc2" "")
(command "_text" pc3 "2" "0" "pc3" "")
(command "_text" pc4 "2" "0" "pc4" "")

;(command "_linetype" "Load" "ACAD_ISO10W100" "")
(command "_.Layer" "_Make" "axiss1" "_Color" "250" "" "LType" "ACAD_ISO10W100" "" "")

; X axis
(setq cax1 (polar p1 (* 3 (/ Pi 2)) (/ vi 2)))
(setq cax2 (polar cax1 0 dl))
(setq cax1r (polar cax1 0 -30))
(setq cax2r (polar cax2 0 30))
(command "_line" cax1r cax2r "")
; Y axis
(setq cay1 (polar p1 0 (/ dl 2)))
(setq cay2 (polar cay1 (* 3 (/ Pi 2)) vi))
(setq cay1r (polar cay1 (/ Pi 2) 30))
(setq cay2r (polar cay2 (/ Pi 2) -30))
(command "_line" cay1r cay2r "")