(defun c:A ( / P0 P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 P13)
  
  (setq P0 '(3 0 0) P1 '(30 0 0) P2 '(30 15 0) P3 '(45 15 0) P4 '(45 40 0) P5 '(43 42 0) P6 '(43 40 0) P7 '(28 42 0) P8 '(26.8 43.2 0) P9 '(26.8 95 0) P10 '(28 96.2 0) P11 '(68 96.2 0) P12 '(68 110 0) P13 '(100 110 0))


  (command "linie" P0 P1 "")
  (command "")
  (command "linie" P3 P4 "") 
  (command "")
  (command "linie" P9 P10 P11 P12 P13 "")
  (command "")
  (command "linie" P5 P7 "")
  (command "")
  (command "linie" P7 P8 P9 "")
  (command "")
  (command "_arc" P4 "_c" P6 P5 "")
  (command "")
  (command "_arc" P1 "_c" P2 P3 "")
  (command "")
  (command "_arc" '(0 -3 0) "_c" '(0 0 0) P0)
  (command "")

  

  (princ)
)