xstlf 发表于 2004-12-15 19:19:00

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

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

xstlf 发表于 2004-12-16 07:57:00

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

had 发表于 2005-1-16 18:01:00

请帮忙把这个程序改成可以加到R14里去好吗？谢谢
页: [1]
查看完整版本: QQ名叫*痞子的进来，你要的我已发上来了。