三维渐开线齿轮的画法详解
渐开线齿轮是我们常见的齿轮，在很多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(polarpc0adm))
"a"
"ce"
c
"l"
ht
"l"
(setqp(polar(getvar"lastpoint")ang3y))
"a"
"ce"
c
"l"
ht
""
)
(SETQTOP(GETvar"LASTPOINT"))
(command"MIRROR"
"L"
""
(setqp(polarpc0adm))
c
"n"
)
(command"ARRAY"
"w"
(POLARTOP4.712389(*Y1.5))
(polarTOP0Y)
""
"c"
c
ang5
"-360"
"Y"
)
)
(defunC:GEAR()
(grinfo)
(setqstdots(getvar"blipmode"))
(setqstech(getvar"cmdecho"))
(setvar"blipmode"0)
(setvar"cmdecho"0)
(calgear)
(drawgear)
(setvar"blipmode"stdots)
(setvar"cmdecho"stech)
)
(prompt"\\n键入Gear换起命令:")
说明：
1.在加载程序后，换起命令是：Gear。
2.我们需要设定“齿轮中心”、“节距圆”、“齿数”，有了这些参数我们就能很快捷的画出渐开线齿轮了。
3.我们所画的齿轮齿数是在14～50之间。
方法二：利用CAD自带命令编辑。（50齿以上的渐开线齿轮）
。。。。。。。。。。
