哪位高手帮我编个lisp程序。谢谢

shark_cn

我用的是14。
现在想这样，假设原来有个圆，选中这个圆，可以输入一个距离，然后就会以这个圆的圆心为圆心，以这个圆的半径加上刚输入的距离为半径作出一个新圆。
不知我说明白没有，就是想在原来圆的基础上得到另一个同心圆。
我没学过lisp所以只能求各位大虾帮忙了。
如果哪位能帮我请把文件发到shark_cn@hotmail.com上。当然贴到这上也可以。
谢谢了先。

alin

wzh

(defun c:Samecircle()
   (setq Ent (car (entsel "选择圆：")))
   (setq Dis (getdist "距离："))
   (setq Pcl (cdr (assoc 10 (entget Ent))))
   (vl-cmdf "circle" Pcl Dis)
)