我是新手，求助入门

jie10121

我在书上找到另一种写法。我也不是很懂。



（defun C:Star()


                 (initget 1)


         (setq Center(getpoint"星的中心:"))


         (initget(+ 1 2 4))


                (setq OutRad (getdist"外圆半径："Center))


         (initget(+1 2 4))


         (setq InRad (getdist"内圆半径："Center))


         (initget(+1 2 4))


         (setq Points(getint"角点数:"))


        )


(setq Incr (/(* 2 pi) Points))


(setq Incr2 (/Incr2))


(command "LINE")


(setq Count 0)


(while (<Count Points)


                         (command (polar Center (* Count Incr ) OutRad))


                         (if (=Count 0)


                                                                 (command "width" "0" "0"))


                         (command (polar Center (+(* Count Incr）Incr2) inRad))


                         (setq Count (1+count ))


)


(command "close")


(princ)


)


修改稿

jie10121

(if (=Count 0)
                                                                 (command "width" "0" "0"))是什么意思啊？特别是"width" "0" "0"是什么参数呢？

jie10121

我还有一个问题，关于六楼的图。圆环里面套小圆，那些小圆是不能相交的，怎么样才能确保小圆不相交，用什么条件呢？真正的轴承是怎样的呢？


救命啊，各位大哥。！！！