(defun c:my_letter(/ p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 vLine hLine1 hLine2 arc1 arc2 h a)
  (setq p1 (getpoint "\nУкажите начальную точку: "))
  (setq h (getint "\nУкажите размер буквы: "))
  (setq a (getangle "\nУкажите угол наклона буквы: "))
  (setq p2 (polar p1 (+ (/ pi 2) a) h))
  (setq p7 (polar p1 (+ a (- 0 (/ pi 3))) (/ h 30)))
  (setq p3 (polar p1 (+ a (- 0 (/ pi 6))) (/ h 8)))
  (setq p4 (polar p3 (+ a pi) (/ h 7)))
  (setq p6 (polar p2 (+ a (/ pi 3)) (/ h 30)))
  (setq p8 (polar p2 (+ a (/ pi 6)) (/ h 8)))
  (setq p5 (polar p8 (+ a pi) (/ h 7)))
  (setq p9 (polar p8 a (* 2 (/ h 5))))
  (setq p10 (polar p9 a (/ h 3.5)))
  (setq p11 (polar p9 (+ a (- 0 (/ pi 6))) (/ h 30)))
  (setq p12 (polar p9 (+ a (- 0 (/ pi 3))) (/ h 12)))
  (setq p13 (polar p1 (+ a (/ pi 2)) (/ h 2)))
  (setq p16 (polar p13 (+ a (/ pi 8.4)) (/ h 7)))
  (setq p15 (polar p16 (+ a (/ pi 4.3)) (/ h 1.6)))
  (setq p14 (polar p15 (+ a (/ pi 3.8)) (/ h 40)))
  (setq p17 (polar p3 a (* 2 (/ h 5))))
  (setq p18 (polar p17 a (/ h 2.5)))
  (setq p19 (polar p17 (+ a (/ pi 6)) (/ h 30)))
  (setq p20 (polar p17 (+ a (/ pi 3)) (/ h 12)))
  (setq p21 (polar p16 (+ a (- 0 (/ pi 4.3))) (/ h 1.25)))
  (setq p22 (polar p21 (+ a (- 0 (/ pi 5))) (/ h 20)))
  (setq osm (getvar "osmode"))
  (setvar "osmode" 0)
  (command "_line" p1 p2 "")
  (setq vLine (entlast))
  (command "_arc" p1 p7 p3 "")
  (setq arc1 (entlast))
  (command "_line" p3 p4 "")
  (setq hLine1 (entlast))
  (command "_arc" p2 p6 p8 "")
  (setq arc2 (entlast))
  (command "_line" p8 p5 "")
  (setq hLine2 (entlast))
  (command "_mirror" vLine arc1 hLine1 arc2 hLine2 "" p4 p5 "")
  (command "_line" p9 p10 "")
  (command "_arc" p9 p11 p12 "")
  (command "_line" p12 p13 "")
  (command "_arc" p10 p14 p15 "")
  (command "_line" p15 p16 "")
  (command "_line" p17 p18 "")
  (command "_arc" p17 p19 p20 "")
  (command "_line" p20 p13 "")
  (command "_line" p16 p21 "")
  (command "_arc" p21 p22 p18)
  (setvar "osmode" osm)
  )