;;;Modify the radius of a selection set of circles. (uses UREAL)
;;;The only input required is the desired radius and selection.
;;;There is no need to worry about not selecting non-circle entities
;;;because they will be automatically filtered out of the
;;;selection set.
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 6-7-94
;;;>		   EDITED: 05-06-2001
;;;
(DEFUN C:CIRAD ( / tset tsln cntr tent edtw)
(if ureal nil (load "ureal" "\nFile UREAL.LSP not found! "))
(setq new_radius (ureal 1 "" "New Circle Radius" (if new_radius new_radius)))
(if dimscl nil (load"dimscl"))
(dimscl)
(prompt "\nSelect Circles: ")
(setq tset (ssget '((0 . "CIRCLE"))))
(if tset
  (progn
    (setq tsln (sslength tset))
    (setq cntr 0)
  )
)
(while
  (if (and (< cntr tsln) tset)
    (setq tent (entget (ssname tset cntr)))
  );if
  (progn
    (setq edtw (entget (cdar tent)))
    (if (eq(cdr(assoc 0 edtw))"CIRCLE")
      (progn
        (setq edtw
          (subst (cons 40 new_radius)
                 (assoc 40 edtw)
                 edtw
          )
        )
        (entmod edtw)
      )
    )
    (setq cntr (1+ cntr))
  )
)
);DEFUN