三維漸開線齒輪的畫法詳解
漸開線齒輪是我們常見的齒輪，在很多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齒以上的漸開線齒輪）
