[编程交流] 提示圆圈的lsp帮助

(defun  c:test (/ cir ent z )
 (while (setq cir (ssget ":E:L" '((0 . "CIRCLE"))))
   (setq cur (* (cdr (assoc 40  (setq ent (entget (ssname cir 0))))) 2) )
   (redraw (ssname cir 0) 3)
   (setq
     z (cond
         ((getreal
            (strcat
              "\nEnter diameter[Enter to accept: <"
              (rtos (setq z cur) 2 2)
              ">: "
              )
            )
          )
         (z)
         )
     )
   (entmod
     (subst
       (cons 40 (/ z 2.0))
       (assoc 40 ent)
       ent
       )
     )
   )
 (princ)
 )

(defun C:TEST11 ()
 (defun *error* (msg) (setq *error* nil) (princ))
 (setq cirdia (entsel "\nPick circle to change..."))
 (setq entdia (entget (car cirdia)))
 (setq diarad (cdr (assoc 40 entdia)))
 (setq diame (* diarad 2))
 (setq dia (getreal (strcat "\nEnter new diameter [current <"(rtos diame) ">]:")))
 (prompt "\nSelect circle to change...")
 (setq A (ssget (list (cons '0 "circle")(cons '40 diarad))))
 (setq B (sslength A))
 (setq X 0)
 (repeat B
   (setq NAME (ssname A X))
   (setq PARAM (entget NAME))
   (setq CHECK (cdr (assoc 0 PARAM)))
   (if (/= CHECK "CIRCLE")
     (progn (ssdel NAME A)
   (setq X (1- X)))
   ) ;_ end of if
   (setq X (1+ X))
 ) ;_ end of repeat
 (setq B (sslength A))
 (setq RAD (/ DIA 2))
 (setq NEWRAD (cons '40 RAD))
 (setq X 0)
 (repeat B
   (setq NAME (ssname A X))
   (setq PARAM (entget NAME))
   (setq PARAM (subst NEWRAD (assoc 40 PARAM) PARAM))
   (entmod PARAM)
   (setq X (1+ X))
 ) ;_ end of repeat
 (prompt (strcat "Selected object - Qty:"(rtos b) ""))
 (princ)
)