渐开线齿轮的画法，齿轮齿条设计

三维渐开线齿轮的画法详解

渐开线齿轮是我们常见的齿轮，在很多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齿以上的渐开线齿轮）

。。。。。。。。。。