AutoCAD LISP修改已存在圆半径

AutoCAD LISP修改已存在圆半径，代码如下

(defun c:chgrad()
  (setvar "cmdecho" 0)
  (setq en (entsel "选取已知圆："))
  (setq en_data (entget (car en)))
  (setq old_rad_list (assoc 40 en_data))
  (setq old_rr (cdr rad_list))
  (princ "\n旧半径=") (princ old_rr)
  (setq cenpt (cdr (assoc 10 en_data)))
  (setq new_rr (getdist cenpt "New Radius:"))
  (setq new_rad_list (cons 40 new_rr))
  (setq en_data (subst new_rad_list old_rad_list en_data))
  (entmod en_data)
  (prin1)
  )

代码完。