求救

131459233 · 发表于 2004-5-8 17:34:00

已知两皮带节圆直径和皮带的长度，有没有具体公式求两皮轮的中心距。

koalabear · 发表于 2004-5-8 21:35:00

很多东西都忘记了，什么是节圆？假若知道两个圆的直径很容易算的！

雪山飞狐_lzh · 发表于 2004-5-8 22:31:00

发个图上来直观一些

131459233 · 发表于 2004-5-9 08:40:00

BDYCAD · 发表于 2004-5-9 09:29:00

將就用用這個吧, 剛寫的. (defun c:test (/ d1 d2 d1c d2c d1r d2r a sl l1 l2 l)
(setq d1 (entsel "\n請選擇 d :"))
(setq d2 (entsel "\n請選擇 D :"))
(setq d1c (cdr (assoc 10 (entget (car d1)))))
(setq d2c (cdr (assoc 10 (entget (car d2)))))
(setq d1r (cdr (assoc 40 (entget (car d1)))))
(setq d2r (cdr (assoc 40 (entget (car d2)))))
(setq a (distance d1c d2c))
(vl-cmdf "line" "_tan" (polar d1c (/ pi 2.0) d1r) "_tan"(polar d2c (/ pi 2.0) d2r)"")
(setq sl(entlast))
(setq l1 (cdr (assoc 10 (entget sl))))
(setq l2 (cdr (assoc 11 (entget sl))))
(entdel sl)
(setq l (distance l1 l2))
(princ (strcat "\n中心距離"(rtos a)"mm,切線長為"(rtos l)"mm."))
(princ))

账号		自动登录	找回密码
密码			注册

求救

本帖子中包含更多资源