CAD中用LSP绘制标准齿轮,希望对大家有帮助

(defun C:ZL ()
   (command "viewres" "" 20000)
   (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 "" "")
       (command "zoom" "e")
     )
   )
   (Prompt "\n完成!")
   (princ)
   (command "arc" p16 "c" p2 p17)     
   (setq sa2 (entlast))
   (command "array" sa2 "" "p" p2 numt "" "")
  
)

怎么这么多这个;)
  
有人调试过了吗?成功的话加一分!

试了一下!还可以!只不过齿轮线是直线组成的多义线,在实际中可能不行!

多谢版主加分,我会加倍努力,只要有好东东就给大家分享
::y::y

如果能用圆弧来拟合那就好多了！