这个程序该怎么编

小虫peter

各位大虾齿轮的程序该从哪里下手，是先画圆然后在一步一步切吗

chaomoshou

你不会用阵列吗？？

小虫peter

不会，我刚学，在CAD上我会画，但到编程就不知道该怎么来写了

BDYCAD

一個齒輪程序, 呵呵.



(defun C:test (/ NUMT DIAP PRSA PNTS  pitd outd basr orad z x paodd incr p pitr pang p2 y2 x2 y5
               p2 a1 a2 pz1 pz2 s le test p e1 e2 e j x1 y1 x3 y3 p3 pnts hyp ans
               p11 ang angi p12 beta ang2 p15 adj1 adj2 p17 p16  sa2)
  (setq numt (getint "\n正齒輪齒數:<24> "))
  (if (= numt nil)(setq numt 24))
  (setq diap (getreal "\n節距:<4> "))
  (if (= diap nil) (setq diap 4.0))
  (setq prsa (getreal "\n壓力角:<14.5> "))
  (if (= prsa nil)  (setq prsa 14.5))
  (setq pnts (getint "\n圓弧精確度:<10> "))
  (if (= pnts nil)  (setq pnts 10))
  (setq prsa (/ (* prsa pi) 180.))
  (setq pitd (/ numt diap))
  (setq outd (/ (+ numt 2) diap))
  (setq basr (/ (* pitd (cos prsa)) 2.0))
  (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))
  (setq pang (/ 360. (* Numt 4.0)))
  (setq pang (/ (* pang pi) 180.))
  (graphscr)
  (setq p2 (getpoint "\n齒輪的中心點: "))
  (setq y2 (cadr p2))
  (setq x2 (car p2))
  (setq y5 (+ y2 basr))
  (setq p5 (list x2 y5))
  (command "circle" p2 pitr)
  (setq a1 (- (/ pi 2.0) 0.1))
  (setq a2 (+ (/ pi 2.0) 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))))))
  (command "")
  (initget "Y y N n")
  (setq ans (getkword "\n要繼續完成繪製嗎?:<Y> "))
  (if (/= ans "N")
    (progn
      (command "zoom" "c" p2 7)
      (setq p11 (osnap pint "inter"))
      (setq ang (angle p2 p11))
      (setq angi (- ang pang))
      (setq p12 (polar p2 angi 1.0))
      (command "mirror" p5 "" p2 p12 "")
      (setq beta (angle p2 p3))
      (setq ang2 (- (* angi 2.0) beta))
      (setq p15 (polar p2 ang2 orad))
      (command "arc" p15 "c" p2 p3)
      (setq adj1 (- angi (/ pi 2.0)))
      (setq adj2 (- (/ pi 2.0) (* pang 4.0)))
      (setq p17 (polar p2 (+ angi adj1) basr))
      (setq p16 (polar p2 adj2 basr))
      (while (setq le (entnext le))(ssadd le s))
      (command "array" s "" "p" p2 numt "" "")))
  (Prompt "\n完成!")
  (command "arc" p16 "c" p2 p17)   
  (setq sa2 (entlast))
  (command "array" sa2 "" "p" p2 numt "" "")
  (PRINC)
)
(princ "在命令行輸入GEAR執行畫齒輪功能.")

spring

我覺得一般般(雖然我不會寫),還有最後一句 (princ "在命令行輸入GEAR執行畫齒輪功能.")

BDYCAD

TO spring
     你的是什麼軟件畫的齒輪呀？　不會是Ｍａｓｔｅｒ　ＣＡＭ吧．　呵呵：Ｄ

hoprich123