大家好我想问问渐开线齿轮是怎么画的?

三维渐开线齿轮的画法详解
渐开线齿轮是我们常见的齿轮，在很多CAD工程装配图中我们都需要这类型齿轮。
方法一是利用程序，方法二较复杂，但是程序无法实现。
这里只是我自己的见解，有不妥之处请大家指教。

方法一：利用LISP程序
我在网上查找了一下，这是其中的一个程序：
(defungrinfo()
(setqc(getpoint"\\n齿轮中心:"))
(setqpc(getpoint"\\n节距圆:"))
(setqteeth(getint"\\n齿数:"))
(while( (setqteeth(getint"\\n必须至少14个齿:"))
)
(while(>teeth50)
(setqteeth(getint"\\n必须不超过50个齿:"))
)
;;(while( ;;(while(>teeth50)(setqteeth(getint"\\n必须不超过50个齿:")))
)
(defuncalgear()
(setqd(*2(distancecpc)))
(setqpc(polarc0(/d2)))
(setqang32.79248)
(setqang5(/360.000000teeth))
(setqwang-0.785385)
(setqwang20.785385)
(setqdp(/teethd))
(setqht(/0.32dp))
(setqadm(/1.0dp))
(setqy(*(/2.257dp)1.0642))
)
(defundrawgear()
(command"PLINE"
(setqp(polarpc0ad