漸開(kāi)線的公式是
5 E) ?* N* d: y7 gx=r(cos(theta)+theta*sin(theta))
0 j1 n. g4 }/ D8 N6 ^' B2 k+ s) ^& t4 Wy=r(sin(theta)-theta*sin(theta))
9 O4 \$ Q4 M1 C2 F+ x& q! `( Gr - 基圓半徑
theta - 成形角,弧度值
在不同theta時(shí)算出x和y即可。
8 |& }: M3 K9 q* C0 `我用Autolisp做了個(gè)程序,希望對(duì)大家有用。歡迎大家討論。這里用的極坐標(biāo)。
4 J) \% f4 @8 i7 w) ?5 Q0 G9 ^;*************************************************************************************
;This program is to draw a involute in AutoCAD, anyone can use it freely without permission.
;Take the risk youself, suggest you to open a new drawing and run this program first, then
;copy it to your drawing.
;Chen Xiangsong
;
;Distance Offset: means when you draw a curve rather than a standard involute.
; it starts to draw the curve not from the base circle.
; it is curtate or prolate involute. it is useful as you draw gear root.
; standard involute, enter 0
;
;Radius of Base Circle: You have to know the meaning, or the program is useless to you
;
;Angle to go: means the length of involute you want. in degrees. it is not pressure
; angle, it is the pressure angle add involute Phi.
;
;Accurancy: the density of points you want on the curve, the smaller the more accurate.
; but will slow down your pc's speed. I normally enter 0.01
;
;Center of Curve: LEASE PICK A POINT ON THE SCREEN RANDOMLY, IT IS VERY IMPORTANT.
; DON'T PICK A SPECIAL POINT. That's the disadvantage of my program.
(defun c:involute ()
(command "_undo" "be")
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq q 0)
(setq f 0)
(setq h (getreal "\nDistance Offset:"))
(setq r (getreal "\nRadius of Base Circle:"))
(setq t (getreal "\nAngle to go:"))
(setq n (getreal "\nAccurancy:"))
(setq cent (getpoint "\nCenter of Curve:"))
(if (= h 0) (command "pline" (list (+ 0 (car cent)) (cadr cent))
(list (+ (/ r 2) (car cent)) (cadr cent)) ""
)
(command "pline" (setq trimpoint (list (+ h r (car cent)) ((if (> h 0) - +) (cadr cent) (/ r 1))))
(list (+ h r (car cent)) ((if (> h 0) - +) (cadr cent) (/ r 2))) ""
)
)
(while (< f (* t (/ pi 180)))
(setq a (atan (* r f) (+ r h)))
(setq ri (/ (+ r h) (cos a)))
(setq q (- f a))
(setq pt0 (polar cent q ri))
(command "pline" "" pt0 "")
(setq f (+ f n))
)
(command "pedit" (entlast) "j" "all" "" "f" "")
(command "circle" cent r)
(setq bs (entlast))
(command "line" cent (list (+ 1 r h (car cent)) (cadr cent)) "")
(setq lt (entlast))
(if (= h 0) (command "trim" bs "" cent "")
(command "trim" lt "" trimpoint "")
)
(command "erase" lt "")
(setvar "osmode" os)
(command "_undo" "e")
(princ)
)
原帖由 zhiqiu 發(fā)表" U& v1 n# {6 W3 F$ p 應(yīng)該是y=r(sin(theta)-theta*cos(theta)),請(qǐng)問(wèn)基圓是不是齒輪的基圓(就是齒輪分度圓半徑與cosα的乘積,α是齒輪壓力角,標(biāo)準(zhǔn)為20度)?坐標(biāo)原點(diǎn)在哪?
呵呵!看的仔細(xì)!強(qiáng)!雖然三年以前學(xué)過(guò),也編過(guò)幾個(gè)復(fù)雜的。但現(xiàn)在還是看不懂了。沒(méi)精力去搞這個(gè)。感覺(jué)auto cad 在這方面不是很強(qiáng)。學(xué)習(xí)探討一下倒是不錯(cuò)。在實(shí)際應(yīng)用上還是建議使用專業(yè)的三維制圖軟件。
原帖由 帶魚(yú) 發(fā)表- I3 ]! Z, w0 v9 Q5 Y5 b- w 又問(wèn):樓主,是否能找到《工具技術(shù)》1998年05期刊“修緣插齒刀齒形技術(shù)方法”急用!謝謝
和你說(shuō)的不是完全一樣,但是《工具技術(shù)》1998年05期的文章也只有這篇了。
請(qǐng)問(wèn)基圓以下是什么曲線?
歡迎光臨 機(jī)械社區(qū) (http://www.xa-space.com/) | Powered by Discuz! X3.5 |