半径代码怎么改为直径，求教

shoran2

如下这段代码，是群里批量修改半径的代码。请教各位，我想改成直径输入 和 修改，该怎样修改呢，请指教。谢谢


(defun c:chr (/ oldr newr s1 sl i ent entdxf)
  (setq oldr (getreal "请输入圆半径:"))
  (setq newr (getreal "请输入新半径:"))
  (prompt "请选择圆:")
  (setq        s1 (ssget (list        (cons 0 "CIRCLE")
                        (cons -4 "=")
                        (cons 40 oldr)
                  )
           )
  )
  (if (not s1)
    (progn (alert "无实体被选择,程序退出!") (exit))
    (progn (setq sl (sslength s1))
           (setq i 0)
           (while (< i sl)
             (setq ent (ssname s1 i))
             (setq entdxf (entget ent))
             (setq entdxf (subst (cons 40 newr) (assoc 40 entdxf) entdxf))
             (entmod entdxf)
             (setq i (1+ i))
           )
          
    )
  )
  (princ)
)
(princ "版本1.2 请键入chr运行命令,该命令用于成批改变圆的半径.")