[求助]如何选择所有与已知圆的同心圆？

YDPLDL

 大家好！近期想编个画凸米的小程序，画的时候没什么问题，能按标准画出想要的凸米，但客户所给的电子档的凸米表示是用几个同心圆，画完之后需要把它们通通删除，但在建选同心圆的选集时出现了问题，已知其中一个圆的圆心为P0，我建的选集为：

    (SETQ name (SSNAME s1 n));s1为先前选择的圆
    (SETQ ent (ENTGET name))
    (SETQ p0 (CDR (ASSOC 10 ent))) ;圆心
    ;(princ p0)
    ;(setq s2 (ssget "x" '((-4 . "<AND") (0 . "CIRCLE") '(list 10  p0) (-4 . "AND>"))))
    ;(entdel s2)

这个选集有问题,请知道的人回复一个,好吗?多谢!

ZZXXQQ

(SETQ S2 (SSGET "X" (LIST '(0 . "CIRCLE") (CONS 10 P0))))

YDPLDL

多谢ZZXXQQ，这个问题解决了，不过用（entdel s2)不行，我只好用ERASE了。再次感谢！