;************************************************************************************
;13/01/2011 qatar / doha / ekın proje / miyatu
;miyatu@msn.        com
;calistirma kodu "dd" dir
;secimler herzaman icten disa dogru olmalidir
;birbiri ile kesisebilen, iki grup cizgiyi, birbiri ile radiuslu yada radiussuz olarak birlestirir
;ıstenilen radius olcusu girisi yapilabilir
;radius yaricapi sabit tutulabilir, istenirse ofset miktari eklenerek kullanilabilir.        .        .       
;*****************************************************************************************
(defun c:dd ()
  (if (= rad nil)(progn(setq rad 0)))
  (if (= style nil)(progn(setq style 0)))
  (initget "radius")
  (setq p1 (getpoint "\nılk koseyi seciniz / radius:"))
  (if (= p1 "radius")
    (progn
      (initget "sabit artis")
      (setq rad1 (getreal (strcat "\nradiusu giriniz / sabit / artis:<"(rtos rad)">")))
      (cond
((= rad1 nil)
(setq rad1 rad))
((= rad1 "sabit")
(setq rad1 rad)
(setq style 0))
((= rad1 "artis")
(setq style 1)
(setq rad1 (getreal (strcat "\nradiusu giriniz:<"(rtos rad)">")))
(if (= rad1 nil)
   (progn
     (setq rad1 rad)))))
    (setq rad rad1)
    (setq p1 (getpoint "\nılk koseyi seciniz:"))))
    (setq p2 (getcorner p1 "\nkarsi koseyi seciniz:")
p1x (car p1)
p1y (cadr p1)
p1z (caddr p1)
p2x (car p2)
p2y (cadr p2)
p3 (list p1x p2y p1z)
p4 (list p2x p1y p1z)
secim (ssget "_c" p1 p2 )
x_listesi (list ())
y_listesi (list ())
next (- (sslength secim) 1))
  (while (/= next -1)
    (setq ps (cdr (assoc 10 (entget (ssname secim next))))
  pf (cdr (assoc 11 (entget (ssname secim next)))))
    (if (/= (inters p1 p3 ps pf) nil)
      (progn
(setq y_listesi (append y_listesi (list (cadr (inters p1 p3 ps pf)))))))
    (if (/= (inters p1 p4 ps pf) nil)
      (progn
(setq x_listesi (append x_listesi (list (car (inters p1 p4 ps pf)))))))
    (setq next (- next 1)))
  (setq sirali_y (vl-sort (cdr y_listesi) '<)
sirali_x (vl-sort (cdr x_listesi) '<)
xk (abs (distance p1 (list (nth 0 sirali_x) p1y p1z)))
xb (abs (distance p1 (list (nth (- (length sirali_x) 1) sirali_x) p1y p1z)))
yk (abs (distance p1 (list p1x (nth 0 sirali_y) p1z )))
yb (abs (distance p1 (list p1x (nth (- (length sirali_y) 1) sirali_y)p1z))))
  (if (< xk xb)
    (progn
      (setq sirali_x (vl-sort sirali_x '<)))
    (progn
      (setq sirali_x (vl-sort sirali_x '>))))
  (if (< yk yb)
    (progn
      (setq sirali_y (vl-sort sirali_y '<)))
    (progn
      (setq sirali_y (vl-sort sirali_y '>))))
  (setq next (- (sslength secim) 1))
  (setq rad2 rad)
  (while (/= next -1)
    (setq px (list (nth 0 sirali_x) p1y p1z)
  sirali_x (cdr sirali_x)
  py (list p1x (nth 0 sirali_y) p1z)
  sirali_y (cdr sirali_y)
  l1 (ssget px)
  l2 (ssget py)
  next (- next 1))
    (setq old_rad (getvar "filletrad")
  old_osn (getvar "osmode"))
    (setvar "filletrad" rad2)
    (setvar "osmode" 0)
    (command "fillet" l1 l2 "")
    (if (= style 1)
      (progn
(setq px1 (list (nth 0 sirali_x) p1y p1z)
      ofset (abs(distance px px1))
      rad2 (+ rad2 ofset))))
    (setvar "filletrad" old_rad)
    (setvar "osmode" old_osn)))