[求助]：练习一个框选圆改成相同半径的圆的lsp出错了但是不知道错在哪里？

露水2

;改成相同的圆
(defun c:test ()
    (setq new_rad (getreal "\n输入新的半径:"))
    (prompt "\<<框选要更新的栽>>")
    (setq ss (ssget))
    (setq n 0 k 0)
   (repeat (sslength ss))
        (setq en (ssname ss n))
        (setq endata(entget en))
        (setq entype (cdr (assoc 0 en_data)))
     (if (= entype "CIRCLE")
         (sub_upd_rad)
     )
            (setq n (+ 1 n))

   )
(princ (strcat "\n共有<"(itoa n) ">个圆被更新成半径=" (rtos new_rad)))
(princ)

)
(defun sub_upd_rad()
  (setq 40_list (assoc 40 en_data))
  (setq new_40_list(cons 40 new_rad))
  (setq endata (subst new_40_list 40_list endata))
  (entmod endata)
  (setq K (+ 1 k))
  
)
(princ)

yshf

;改成相同的圆
(defun c:cc ()
   (setq new_rad (getreal "\n输入新的半径:"))
   (prompt "\<<框选要更新的栽>>")
   (if (and (setq pt1 (getpoint "\n左上角:"))
            (setq pt2 (getcorner pt1 "\n右下角:"))
            (setq ss  (ssget "w" pt1 pt2 '((0 . "CIRCLE"))))
       )
       (progn
          (setq n (sslength ss) k 0)
          (repeat n
             (sub_upd_rad (entget (ssname ss k)) new_rad)
             (setq k (1+ k))
          )
         (princ (strcat "\n共有<" (itoa n) ">个圆被更新成半径=" (rtos new_rad)))
       )
   )
   (princ)               
)
;函数宜用参数来传递变量的值，不要用全局变量
(defun sub_upd_rad(en_data new_rad)
   (setq en_data (subst (cons 40 new_rad) (assoc 40 en_data) en_data))
   (entmod en_data)
)

露水2

谢谢已经搞定了