[编程申请]：申请编制一个能绘制渐开线齿形的程序

fansigen

本人在工作中经常碰到需要绘制渐开线齿形，但是没有找到相应的软件，所以只好手工计算后再逐点描上，很累很烦。现申请编制一个这方面的软件。万分感谢！

lsjjm

转自：《Visual LISP for AutoCAD2000程序设计--从学会到用好》
GEAR-C  .LSP  ³ÝÂÖ•³ÉÒÇ
; [ak=0-0.6r R=Rb/Cos(Ak) A=tgAk-Ak]
(Defun C:Gear-C (/ z r0 rd n ak da)
       (SetIErr)
       (PrinC "\n³ÌÐò»¯µÄ³ÝÂÖ•³ÉÒÇ... m=10, ÖÐÐÄλÓÚ 0,0...")
       (SetQ m 10)
       (SetQ z (GetInt "\nÑ¡Ôñ³ÝÊý(3-35): ")
             r0 (* 0.5 m z)
             rb (* r0 (Cos 0.34906585))
       )
       (InitGet 7 " ")
       (SetQ n (GetInt "\n&sup3;&Yacute;&Agrave;&ordf;&Eacute;ú&sup3;&Eacute;&Otilde;&Ucirc;&Iuml;&szlig;&Ecirc;&yacute;<200>: "))
       (If (= "" n) (SetQ n 200))
       (SetQ ak 0 da (/ Pi n))
       (VL-CmdF "erase" "all" "")
       (VL-CmdF "zoom" "c" (List (+ 0 (* 0.5 z m)) 0) (* 3 m)
                "color" 1
                "circle" '(0 0) r0
                "color" 2
                "circle" '(0 0) (+ r0 m)
                "color" 3
                "circle" '(0 0) (- r0 (* 1.25 m))
                "color" 196
                "circle" '(0 0) rb
       )
       (Repeat n
               (SetQ ak (+ ak da)
                     p1 (Polar '(0 0) (- (/ (Sin ak) (Cos ak)) ak)
                                (/ r0 (Cos ak))
                        )
               )
               (If (Or (<= ak (* 0.35 Pi)) (>= ak (* 0.65 Pi)))
                   (VL-CmdF "insert" "bgl" p1 1 1
                                     (AngToS (/ (Sin ak) (Cos ak)))
                            "point"  p1
                   )
               )
       )
       (ReErr) (PrinC)
)

xujun007

能用vba编一个么
谢谢