CADlisp问题 新人学习帮忙解答下!!

jayjiangyulx

CADlisp 图中有几个圆形 我想在原来的圆的坐标上画出同样大小的圆 再把以前的圆删除掉
我是菜鸟只能写出这么多还不知道是否正确 努力学习中!!!

(defun C:1q ( / n n1 ss kk &kw &k1 k1 k2)
(setvar "cmdecho" 0) ;;关闭变量
(setq n 0 ss '()) ;;取得一个空表
(setq n1 40 kk '()) ;;取得一个空表
(setq &kw (ssget '((0 . "CIRCLE"))));选择圆
(if (/= &kw nil);;如果有选择了圆
(progn
(setq &k1 (entget (ssname &kw n))
k1 (cdr (assoc 10 &k1)) ;;取得圆心坐标
k2 (cdr (assoc 40 &k1)) ;;取得圆半径
kk (cons %k2 kk) ;;圆半径加入选择集
ss (cons %k1 ss) ;;圆心坐标加入选择集
n (+ n 1)
n1 (+ n1 1)
)

(command "circle" ss kk"")

)
(prin1);;结束
))