(defun c:qqq ()
  (setq sec (entsel "\nDikdörtgen seç"))
  (setq nokta_sayisi (cdr (assoc 90 (entget (car sec)))))
  (setq data (entget (car sec)))
  (setq yeni_list '())
  (repeat nokta_sayisi
    (setq list_1 (assoc 10 data))
    (setq yeni_list (cons (cdr list_1) yeni_list))
    (setq data (cdr (member list_1 data)))
  )

  (setq mesafe (distance (nth 0 yeni_list) (nth 2 yeni_list)))
  (setq lamba1
(polar (nth 0 yeni_list)
(angle (nth 0 yeni_list) (nth 2 yeni_list))
(/ mesafe 2)
)
  )

  (setq lamba2
(polar lamba1
(angtof "180")
(/ (distance (nth 2 yeni_list) (nth 3 yeni_list)) 4)
)
  )
  (setq lamba3
(polar lamba1
(angtof "0")
(/ (distance (nth 2 yeni_list) (nth 3 yeni_list)) 4)
)
  )

  (setq lamba4
(polar lamba1
(angtof "90")
(/ (distance (nth 1 yeni_list) (nth 2 yeni_list)) 4)
)
  )
  (setq lamba5
(polar lamba1
(angtof "270")
(/ (distance (nth 1 yeni_list) (nth 2 yeni_list)) 4)
)
  )


  (setq say (getint "\n Lamba Sayısını Giriniz:"))
  (if (= 1 say)
    (command "._circle" lamba1 10)
  )
  (if (= 2 say)
    (setq secim
   (getint
     "\n Yatay Yerleşim İçin 1 Dikey Yerleşim İçin 2 yi Seçin:"
   )
    )
  )
  (if (= 1 secim)
    ((command "._circle" lamba2 10)
      (command "._circle" lamba3 10)
    )
  )
  (if (= 2 secim)
    ((command "._circle" lamba4 10)
      (command "._circle" lamba5 10)
    )
  )
  (if (= 3 say)
    (setq dikyat
   (getint
     "\n Yatay Yerleşim İçin 1 Dikey Yerleşim İçin 2 yi Seçin:"
   )
    )
  )
  (if (= 1 dikyat)
    ((command "._circle" lamba1 10)
      (command "._circle" lamba2 10)
      (command "._circle" lamba3 10)
    )
  )
  (if (= 2 dikyat)
    ((command "._circle" lamba1 10)
      (command "._circle" lamba4 10)
      (command "._circle" lamba5 10)
    )
  )

  (if (= 4 say)
    ((command "._circle" lamba5 10)
      (command "._circle" lamba2 10)
      (command "._circle" lamba3 10)
      (command "._circle" lamba4 10)
    )
  )

  (if (= 5 say)
    ((command "._circle" lamba1 10)
      (command "._circle" lamba2 10)
      (command "._circle" lamba3 10)
      (command "._circle" lamba4 10)
      (command "._circle" lamba5 10)
    )
  )
  (if (< 5 say)
    (alert "\n 5 den Büyük Rakam Girmeyiniz")
  )

  (princ)
)