急求cad畫直齒輪的方法�。。。〈髠b們幫幫忙！

加色魔 · 發表于 2011-7-14 14:00:11

不知道在cad中如何畫標準的直齒輪，誰能幫忙說下具體操作步驟，最好是以木一個實例來說明，共同學習大家！�。�

dxskywalker · 發表于 2011-7-14 14:15:35

二維的話只要畫齒頂圓da，節圓d0，并列出相關的參數如模數，齒數等，還有就是精度。

hcj907 · 發表于 2011-7-14 14:23:41

用CAXA轉換~

加色魔 · 發表于 2011-7-14 14:29:22

但是我們能不能把齒輪的整體齒形畫出來吶，我說的重點也在于此��！謝謝

還做讀書狼 · 發表于 2011-9-12 22:10:07

加色魔發表于 2011-7-14 14:29
! n3 K( O( [, b* w1 B但是我們能不能把齒輪的整體齒形畫出來吶，我說的重點也在于此！！謝謝

你這個意思是什么意思？整體齒形是什么東西？是漸開線嗎？一般還真不畫出漸開線。只畫出齒頂圓齒根圓分度線就ok

狙魔人 · 發表于 2012-4-29 21:01:27

還做讀書狼發表于 2011-9-12 22:10 * W/ U+ k% h# u. E7 y: c; n
你這個意思是什么意思？整體齒形是什么東西？是漸開線嗎？一般還真不畫出漸開線。只畫出齒頂圓齒根圓分度 ...

(defun C:gear ()
  (setq numt nil
         diap nil
         prsa nil
         pnts nil
         test nil
         pwd nil
  )

  (setq numt (getint "Number of teeth:<24>"))
  (if (= numt nil)
(setq numt 24)
  )
  (setq diap (getreal "Modulus of gear:<0.5> "))
  (if (= diap nil)
(setq diap (/ 1 0.5))
(setq diap (/ 1 diap))
  )
  (setq prsa (getreal "Pressure angle:<20.0> "))
  (if (= prsa nil)
(setq prsa 20.0)
  )
  (setq pnts (getint "number of points on curve:<40> "))
  (if (= pnts nil)
(setq pnts 40)
  )
;  (setq pwd (getreal "Please input password:"))
;    (if (/= pwd 8833)
;       (setq numt 0)
;  )
;    (if (= pwd nil)
;       (setq numt 0)
;  )
;
  (command "osnap" "non")
  (setvar "cmdecho" 0)
  (setq oldvar (getvar "pickbox"))
  (setvar "pickbox" 0)
  (setvar "aperture" 1)
  (command "osmode" "0" )
;
  (setq prsa (/ (* prsa pi) 180.0))
  (setq pitd (/ numt diap))
  (setq outd (/ (+ numt 2) diap))
  (setq basr (/ (* pitd (cos prsa)) 2))
  (setq orad (/ outd 2.0))
  (setq z (- (expt orad 2.0) (expt basr 2.0)))
  (setq x (sqrt z))
  (setq paodd (atan (/ x basr)))
  (setq incr (/ paodd pnts))
  (setq p 0.0)
  (setq pitr (/ pitd 2.0))
  (setq pang (/ 360. (* numt 4.0)))
  (setq pang (/ (* pang pi) 180.0))
  (graphscr)
  (setq p2 (getpoint "center of gear:"))
  (setq y2 (cadr p2))
  (setq x2 (car p2))
  (setq r0 (/ (/ (- numt 2.5) diap) 2))
  (setq r1 (/ 0.2 diap))
  (setq h (sqrt (- (* (+ r1 r0) (+ r1 r0)) (* r1 r1))))
  (setq ang0 (/ (* pi 2) numt))
  (setq y5 (+ y2 basr))
  (setq p5 (list x2 y5))
  (setq y55 (+ y2 r0))
  (setq p55 (list x2 y55))
  (setq p88 (list (+ x2 2) (+ y5 2)))
  (setq a3 (/ (* pi 5) 4))
  (setq a4 (/ pi 4))
  (setq pz3 (polar p2 a3 (* orad 1.5)))
  (setq pz4 (polar p2 a4 (* orad 1.5)))
  (command "zoom" "w" pz3 pz4)
;
  (setq clay (getvar "CLAYER"))
  (setq sblip (getvar "BLIPMODE"))
  (setq ts (tblsearch "LAYER" "CEN"))
(if (null ts)
   (progn
   (prompt "\nCreating new layer - CEN. ")
   (setvar "BLIPMODE" 0)
   (command "LAYER" "M" "CEN" "LT" "CENTER" "CEN" "C" "RED" "CEN" "")
   )
   (progn
   (if (> (cdr (assoc 70 ts)) 0) (command "LAYER" "T" "CEN" "ON" "CEN" "U" "CEN" ""))
   (command "LAYER" "S" "cen" "")
   )
)
  (command "circle"  p2 pitr)
  (setvar "BLIPMODE" sblip)
  (command "LAYER" "S" clay "")
;
  (setq a1 (- (/ pi 2 ) 0.1))
  (setq a2 (+ (/ pi 2) 0.1))
  (setq pz1 (polar p2 a1 basr))
  (setq pz2 (polar p2 a2 orad))
  (command "zoom" "w" pz1 pz2)
  (setq s (ssadd))
  (setq le (entlast))
  (setq test 0)
  (command "pline" p5)
  (setq p (+ incr p ))
  (while (> pnts 0)
(setq e1 (sin p))
(setq e2 (cos p))
(setq e (/ e1 e2))
(setq j (- e p))
(setq x1 (* (/ (sin j) (cos p)) basr))
(setq y1 (* (/ (cos j) (cos p)) basr))
(setq x3 (+ x2 x1))
(setq y3 (+ y2 y1))
(setq p3 (list x3 y3))
(command p3)
(setq p (+ incr p))
(setq pnts  (- pnts 1))
(if (/= test 1)
(progn
(setq hyp (sqrt (+ (expt x1 2) (expt y1 2))))
   (if (> hyp pitr)
   (progn
      (setq pint p3)
      (setq test 1)
      )
   )
   );endif
);endif
)
(command "")
(setq L2 (ssget "L"))
(initget "Y y N n")
(setq ans (getkword "\n Finish the gear ?:<Y> "))
(if (/= ans "N")
   (progn
      (command "zoom" "w" pz1 pz2)
      (setq p11 (osnap pint "inter"))
      (setq ang (angle p2 p11))
      (setq angi (- ang pang))
      (setq p12 (polar p2 angi 1.0))
;
  (if (< (* 0.94 numt (/ 1 diap)) (* h 2.0005))
   (progn
         (if (< numt 42)
         (progn
            (setq p56 (list x2 (+ y2 r0)))
            (command "line" p56 p5 "")
            (setq L33 (entlast))
            (command "zoom" "w" p77 p88)
            (command "mirror" L2 L33 "" p2 p12 "")
            (setq adj1 (- angi (/ pi 2)))
            (setq adj2 (- (/ pi 2)(* pang 4)))
            (setq p17 (polar p2 (+ angi adj1) r0))
            (setq p16 (polar p2 adj2 r0))
            (command "arc" p16 "c" p2 p17)
            ) ;end progn
         (progn
            (command "zoom" "w" p77 p88)
            (command "mirror" L2 "" p2 p12 "")
            (setq pL1 (entlast))
            (setq adj1 (- angi (/ pi 2)))
            (setq adj2 (- (/ pi 2)(* pang 4)))
            (setq p17 (polar p2 (+ angi adj1) r0))
            (setq p16 (polar p2  adj2 r0))
         (if (> numt 101)
            (command "arc" p17 "c" p2 p16)
            (command "arc" p16 "c" p2 p17))
            (setq arc4 (entlast))
            (setq p171 (polar p17 0.7854 (/ 0.4 diap)))
            (setq p172 (polar p17 3.9 (/ 0.4 diap)))
         (if (> numt 101)
            (setq p18 (polar p2 (+ angi adj1 ang0) r0))
            (setq p18 (polar p2 (+ adj2 ang0) r0)))
            (setq p181 (polar p18 2.3 (/ 0.4 diap)))
            (setq p182 (polar p18 5.5 (/ 0.4 diap)))
            (command "zoom" "w" p171 p172)
         (if (> numt 101)
            (command "extend" pL1 "" p16 "")
            (command "extend" pL1 "" p17 ""))
            (setq ang0 (/ (* ang0 180) pi))
            (command "rotate" arc4 "" p2 ang0)
            (command "zoom" "w" p181 p182)
            (command "extend" L2 "" p18 "")
            (command "zoom" "w" pz1 pz2)
            (command "trim" arc4 "" p5 "")
            (command "erase" pl1 "")
            (command "mirror" L2 "" p2 p12 "")
         ) ;end progn
         ) ;end if
      ) ;end progn
   (progn
      (setq ang12 (- (/ pi 2) (angle p2 p12)))
      (setq ang57 (atan (/ r1 h)))
      (setq ang58 (- ang0 (* ang12 2) (* ang57 2)))
      (setq ang577 (+ (/ pi 2) ang57))
      (setq ang588 (+ ang577 ang58))
      (setq p57 (polar p2 ang577 (+ r1 r0)))
      (setq p577 (polar p2 ang577 r0))
      (setq p588 (polar p2 ang588 r0))
      (setq p56 (list x2 (+ y2 h)))
      (command "arc" p577 "c" p57 p56)
      (setq arc1 (entlast))
      (command "arc" p577 "c" p2 p588)
      (setq arc2 (entlast))
      (command "line" p56 p5 "")
      (setq L33 (entlast))
      (command "zoom" "w" p77 p88)
      (command "mirror" arc1 arc2 L2 L33 ""  p2  p12 "")
      (command "erase" arc2 "")
   ) ;end progn
) ;end if
;
      (setq beta (angle p2 p3))
      (setq ang2 (- (* angi 2) beta))
      (setq p15 (polar p2 ang2 orad))
      (command "arc" p15 "c" p2 p3)
      (while (setq le (entnext le))
      (ssadd le s)
   )
   (command "array" s "" "p" p2 numt "" "")
   (setq q1 (nth 0 p2))
   (setq q2 (nth 1 p2))
   (setq q5 (+ q1 pitr 2))
   (setq q6 (- q2 pitr 2))
   (setq q3 (- q1 pitr 2))
   (setq q4 (+ q2 pitr 2))
   (setq q1 (list q5 q6))
   (setq q2 (list q3 q4))
   (command "zoom" "w" q1 q2)
   )
   )
(setvar "pickbox" 5)
(setvar "aperture" 5)
(setvar "osmode" 37)

(princ "Finish gear ")
(princ numt)
(princ "T")
(princ)
)

上帝1314 · 發表于 2013-4-28 21:33:45

都沒有講清楚啊想學習都沒機會！

不停追逐的菜鳥 · 發表于 2013-5-18 23:36:50

同求，聽說是有外掛，但是不知道怎么用

殤卜起 · 發表于 2013-8-29 08:12:38

6樓的辦法很好

求學之路艱難 · 發表于 2013-10-30 16:12:14

用機械板CAD

		自動登錄	找回密碼
密碼			注冊會員

国产日韩欧美久久久精品图片|国产综合有码无码中文字幕|国产一区二区综合视频|国产亚洲精品电影网站在线观看|国产精品一区在线

急求cad畫直齒輪的方法�。。。〈髠b們幫幫忙！

急求cad畫直齒輪的方法�。。。〈髠b們幫幫忙！