(defun c:acr_ciz()
  (setq radius 150)
  (setq p1 (getpoint "\nBaslangic noktasini sec:")
p2 (getpoint "\nikinci noktayi sec:")
p3 (getpoint "\nucuncu noktayi sec:"))
  (command "line" p1 p2 p3"")
  (setq ang_1 (angle p1 p2)
ang_2 (angle p2 p3))
  (setq ptn1 (polar p1 (+ ang_1 (/ pi 2)) radius)
ptn2 (polar p2 (+ ang_1 (/ pi 2)) radius)
ptn3 (polar p2 (+ ang_2 (/ pi 2)) radius)
ptn4 (polar p3 (+ ang_2 (/ pi 2)) radius))
  (if (= nil (inters ptn1 ptn2 ptn3 ptn4))
    (progn
      (setq ptn1 (polar p1 (- ang_1 (/ pi 2)) radius)
    ptn2 (polar p2 (- ang_1 (/ pi 2)) radius)
    ptn3 (polar p2 (- ang_2 (/ pi 2)) radius)
    ptn4 (polar p3 (- ang_2 (/ pi 2)) radius))))
  (setq ptnx (inters ptn1 ptn2 ptn3 ptn4))
  (setq arc_tan_point_1 (polar ptnx (angle ptn1 p1) radius)
arc_tan_point_2 (polar ptnx (angle ptn4 p3) radius))
  (setq arc_ang_1 (angle ptnx arc_tan_point_1)
arc_ang_2 (angle ptnx arc_tan_point_2))
  (if (< arc_ang_1 arc_ang_2)
    (progn
      (setq arc_str_ang arc_ang_1)
      (setq arc_fns_ang arc_ang_2))
    (progn
      (setq arc_str_ang arc_ang_2)
      (setq arc_fns_ang arc_ang_1)))
  (if (> (- arc_fns_ang arc_str_ang)pi)
    (progn
      (setq arc_str_ang_x arc_str_ang)
      (setq arc_str_ang arc_fns_ang)
      (setq arc_fns_ang arc_str_ang_x)))
   (entmake
    (list
      (cons 0 "ARC")
      (cons 8 "deneme")
      (cons 10 ptnx)
      (cons 40 radius)
      (cons 50 arc_str_ang)
      (cons 51 arc_fns_ang)
    )
  ))