哪位高手帮我编个lisp程序。谢谢
我用的是14。现在想这样，假设原来有个圆，选中这个圆，可以输入一个距离，然后就会以这个圆的圆心为圆心，以这个圆的半径加上刚输入的距离为半径作出一个新圆。
不知我说明白没有，就是想在原来圆的基础上得到另一个同心圆。
我没学过lisp所以只能求各位大虾帮忙了。
如果哪位能帮我请把文件发到shark_cn@hotmail.com上。当然贴到这上也可以。
谢谢了先。
Use "Offset" easier.
很简单
(defun c:Samecircle()(setq Ent (car (entsel "选择圆：")))
(setq Dis (getdist "距离："))
(setq Pcl (cdr (assoc 10 (entget Ent))))
(vl-cmdf "circle" Pcl Dis)
)
页:
[1]