(defun c:FixCircle (/ r ss)
  (princ "\n选择要取整的圆：")
  (setq ss (ssget '((0 . "circle"))))
  (foreach cir (fsxm-ss->enlist ss)
    (setq r (fsxm-getendxf cir 40))
    (setq r (/ (fsxm-round (* 2 r) 1) 2.0))
    (fsxm-setendxf cir 40 r)
  )
  (princ)
)