(defun c:tt (/ ss ssl n m sp ep e e1 sp1 ep1 el el1)
  (if (setq ss (ssget '((0 . "line"))))
    (progn
      (setq ssl	(sslength ss)
	    n	-1
      )
      (while (< n (1- ssl))
	(setq e	 (ssname ss (setq n (1+ n)))
	      el (entget e)
	      sp (cdr (assoc 10 el))
	      ep (cdr (assoc 11 el))
	      m	 n
	)
	(while (< m (1- ssl))
	  (setq	e1  (ssname ss (setq m (1+ m)))
		el1 (entget e1)
		sp1 (cdr (assoc 10 el1))
		ep1 (cdr (assoc 11 el1))
	  )
	  (if (inters sp ep sp1 ep1)
	    (vl-cmdf ".fillet"  e e1)
            ;;(vl-cmdf ".chamfer" e e1)
	  )
	)
      )
    )
  )
  (princ)
)