lsp 사이트에서 구했습니다만, 일부 수정하고 싶습니다.

오랜만에 글올립니다.
한 사이트에서 얻은 리습인데, 의도와 조금 달라서 수정하고 싶은데 리습에는 무지한지라 통 모르겠습니다.
고수님들의 조언 부탁드립니다.

동일 파이를 선택후에 선택하는 리습인데 현재 전체에서 선택되게 되어 있습니다.
원하는 범위만 선택해서 선택될수 있게끔 수정하고 싶은데요~~~~ 조언 부탁드립니다.

리습은 하기입니다.

(defun c:SR2  (/ cEnt ssgrip)
  (setq tol 0.05)  ; <<– Tolerance
  (if (setq cEnt (car (entsel “nSelect Circle: “)))
    (progn
      (setq rad (cdr (assoc 40 (entget cEnt))))
      (sssetfirst nil
        (ssget “_X”
               (list ‘(0 . “CIRCLE”)
                     ‘(-4 . “>=”)
                     (cons 40 (- rad tol))
                     ‘(-4 . “<=”)
                     (cons 40 (+ rad tol)))))
      (alert (strcat “Radius = ” (rtos rad 2 2))))
    (princ “n<!> Nothing Selected <!>”))
  (princ))