齿轮渐开线

onej

不知道如何作成这样的齿轮渐开线。

bitterwood

真是不好意思。虽然我是才菜鸟。但是我居然找到过这样的源程序。。


给你哈。一样是落难人啊


       

bitterwood

楼主看看能不能用

onej

谢谢楼上，可不是渐开线，炸开后：
LINE Layer: "0"
Space: Model space
Handle = 55
from point, X= -46.1195 Y= 154.0658 Z= 0.0000
to point, X= 15.0095 Y= 176.3182 Z= 0.0000
Length = 65.0532, Angle in XY Plane = 20
Delta X = 61.1290, Delta Y = 22.2524, Delta Z = 0.0000

meflying

炸开?难道CAD还有"渐开线"这种类型的对象吗?


一般一些函数曲线都是使用LINE,PLINE或SPLINE来代替近似表达的

hhc

传一个计算及画齿轮的程序，命令为：gear

onej

meflying，我的意思是要使用精确线，而他的是直线代替， 楼上的打包了，但还是谢谢你！

meflying

看来我5楼的话算白说了...


首先,计算机处理的都是离散的东西,就不存在精确,只有精度...


另外,你说用直线代替不行,那要用什么线呢?用"渐开线"吗?可我5楼就已经说了,CAD现在还没有"渐开线"这种对象,如果不同替代品,我想,用LISP是没办法了...

ttang

这个是偶好多年前编的，现在翻出来大家研究研究 可能不同版本的ACAD有点问题，当时好像是R12 (defun c:gear()
(setvar "cmdecho" 0)
(setvar "pickbox" 3)
(setq olderr *error* *error* at_err)
(princ "注意：齿轮绘制程序将删除可见图层上所有图形，如需终止请按“Esc”或“Ctrl+C”键。\n")
(initget 7)
(setq m (getreal "模数m: "))
(initget 7)
(setq z (getint "齿数z: "))
(setq a (getreal "压力角A(20°): "))
(if (= a nil) (setq a 20))
(setq x (getreal "变位系数X(0): "))
(if (= x nil) (setq x 0))
(setq k0 (getint "每齿面线条数(5): "))
(if (= k0 nil) (setq k0 5))
(setq bs (getstring "标准齿B/短齿S(B): "))
(if (= bs "") (setq bs "B"))
(setq oi (getstring "外齿轮O/内齿轮I(O): "))
(if (= oi "") (setq oi "O"))

(if (= (strcase bs) "S") (setq ha 0.8 hf 1.1)
(setq ha 1 hf 1.25))
(if (and (< m 1) (= hf 1.25)) (setq hf 1.35))

(setq a (* a (/ pi 180)))
(setq r (/ (* m z) 2))
(setq rb (* r (cos a)))
(setq r0 (+ r (* m x)))

(if (= (strcase oi) "I") (progn
(setq hfa hf)
(setq hf ha)
(setq ha hfa)
))

(setq rf (- r0 (* hf m)))
(setq ra (+ r0 (* ha m)))

(command "erase" "all" "")
(command "osnap" "none")
(command "circle" '(0 0) rf "circle" '(0 0) ra)
(command "zoom" "e")

(setq pp1 (list rb '0))
(setq kk 0 kk1 0)
(while (< (distance '(0 0) pp1) ra)
(setq kk (+ kk 0.01))
(setq pp (polar '(0 0) kk rb))
(setq pp1 (polar pp (- kk (/ pi 2)) (* kk rb)))
(if (< (distance '(0 0) pp1) rf) (setq kk1 kk))
)

(setq p1 (list rb '0))
(command "pline" '(0 0) p1)

(setq k 0)
(while (< (distance '(0 0) p1) ra)
(setq k (+ k (/ (- kk kk1) k0)))
(setq p (polar '(0 0) k rb))
(setq p1 (polar p (- k (/ pi 2)) (* k rb)))
(command p1)
(if (< (distance '(0 0) p1) r) (setq p2 p1 k2 k))
)

(command "")
(setvar "pickbox" 0)
(command "trim" (list '0 ra) (list '0 rf) "" '(0 0) p1 "")
(command "explode" "l")

(while (< (distance '(0 0) p2) r)
(setq k2 (+ k2 0.0001))
(setq p (polar '(0 0) k2 rb))
(setq p2 (polar p (- k2 (/ pi 2)) (* k2 rb)))
)

(setvar "pickbox" 1)
(setq a1 (angle '(0 0) p2))
(setq a2 (+ (/ pi 2 z) (/ (* 2 x (sin a)) z (cos a))))
(setq a3 (+ a1 a2))
(command "rotate" "all" "" '(0 0) (strcat "-" (angtos a3 1 4)))
(command "mirror" "w" '(0 0) '(9999 -9999) "" '(0 0) '(1 0) "")
(command "trim" "all" "" (list '0 ra) "")
(command "zoom" "e")
(command "array" "w" '(0 9999) '(9999 -9999) "" "p" '(0 0) (itoa z) "" "")
(command "zoom" "e")

(setq b 0)
(while (< b z)
(setq p3 (polar '(0 0) (/ (* 2 b pi) z) rf))
(command "trim" "w" '(-9999 9999) '(9999 -9999) "" p3 "")
(setq b (+ b 1))
)

(setvar "pickbox" 3)
(setq *error* olderr)
(terpri)
(prompt "OK!")
(princ)
)

zhanghj123

请教如何使用?