[求助]修改程序

726613

 

将下面程序改成：查找指定圆数量并修改圆直径功能的程序

 

 

 

 

 

 

 

 

 

以下程序功能是：计算圆数量

(defun c:db (/ st a1 a2 a3 a4 a5  )
  (setq st (car (entsel)))
  (if (/= st nil)
    (progn (setq a1 (entget st)
   a2 (cdr (assoc 40 a1))
                 a3 (cdr (assoc 8 a1))
                 a4 (ssget "x" (list (cons 8 a3)(cons 40 a2)))
          a5 (sslength a4)
   a2 (* a2 2)
   a2 (rtos a2)  
   a5 (itoa a5)
   )
   (princ (strcat "\n*** 直径:" a2  "  总数:" a5 " ***"))
  )
    )
  (princ)
  )

 

ZZXXQQ

要怎么修改？

726613

要实现：查找指定圆数量并修改圆直径功能

ZZXXQQ

是一个一个圆提示进行修改吗，还是所有圆都改成一个直径？