QQ名叫*痞子的进来，你要的我已发上来了。

xstlf

(defun C:cl1 ()
(setvar "osmode" 0)
(setq o1 (getpoint "\n输入插入点："))
(setq p1 (polar o1 (* pi 1.25) 5))
(setq p2 (polar o1 pi 5))
(setq p3 (polar o1 (* pi 1.5) 5))
(setq p4 (polar o1 (* pi 0.75) 5))
(setq p5 (polar o1 (* pi 1.75) 5))
(setq p6 (polar o1 (* pi 0.5) 5))
(setq p7 (polar o1 (* pi 0) 5))
(setq p8 (polar o1 (* pi 0.25) 5))
(command "circle" o1 5 "")
(command "_solid" p1 p2 p3 p4 p5 p6 p7 p8 "")
(princ)
)

xstlf

其实你可以把donutid的值设成0然后donutod的值设成5就行了，然后再用，donut 命令直接可以画出来了。就是这样的话，只是一个实体，外面一圈没有圆了。不知能不能达到你的要求。

had

请帮忙把这个程序改成可以加到R14里去好吗？谢谢