三维渐开线齿轮的画法详解

zhangweihau2046

三维渐开线齿轮的画法详解
渐开线齿轮是我们常见的齿轮，在很多CAD工程装配图中我们都需要这类型齿轮。
方法一是利用程序，方法二较复杂，但是程序无法实现。
这里只是我自己的见解，有不妥之处请大家指教。 方法一：利用LISP程序
我在网上查找了一下，这是其中的一个程序：
(defun grinfo ()
  (setq c (getpoint "\\n 齿轮中心: "))
  (setq pc (getpoint "\\n 节距圆: "))
  (setq teeth (getint "\\n 齿数: "))
  (while (< teeth 14)
    (setq teeth (getint "\\n 必须至少14个齿: "))
  )
  (while (> teeth 50)
    (setq teeth (getint "\\n 必须不超过50个齿: "))
  )
  ;; (while(< teeth 14)(setq teeth(getint "\\n 必须至少14个齿: ")))
  ;;(while(> teeth 50)(setq teeth(getint "\\n 必须不超过50个齿: ")))
)
(defun calgear ()
  (setq d (* 2 (distance c pc)))
  (setq pc (polar c 0 (/ d 2)))
  (setq ang3 2.79248)
  (setq ang5 (/ 360.000000 teeth))
  (setq wang -0.785385)
  (setq wang 20.785385)
  (setq dp (/ teeth d))
  (setq ht (/ 0.32 dp))
  (setq adm (/ 1.0 dp))
  (setq y (* (/ 2.257 dp) 1.0642))
)
(defun drawgear ()
  (command "PLINE"
    (setq p (polar pc 0 adm))
    "a"
    "ce"
    c
    "l"
    ht
    "l"
    (setq p (polar (getvar "lastpoint") ang3 y))
    "a"
    "ce"
    c
    "l"
    ht
    ""
  )
  (SETQ TOP (GETvar "LASTPOINT"))
  (command "MIRROR"
    "L"
    ""
    (setq p (polar pc 0 adm))
    c
    "n"
  )
  (command "ARRAY"
    "w"
    (POLAR TOP 4.712389 (* Y 1.5))
    (polar TOP 0 Y)
    ""
    "c"
    c
    ang5
    "-360"
    "Y"
  )
)
(defun C:GEAR ()
  (grinfo)
  (setq stdots (getvar "blipmode"))
  (setq stech (getvar "cmdecho"))
  (setvar "blipmode" 0)
  (setvar "cmdecho" 0)
  (calgear)
  (drawgear)
  (setvar "blipmode" stdots)
  (setvar "cmdecho" stech)
)
(prompt "\\n键入Gear换起命令: ")
说明：
1.在加载程序后，换起命令是：Gear。
2.我们需要设定“齿轮中心”、“节距圆”、“齿数”，有了这些参数我们就能很快捷的画出渐开线齿轮了。
3.我们所画的齿轮齿数是在14～50之间。

lymx

这段程序是《VB.NET二次开发cad》教程中的，我把它转到VBA中了。
用法：加载swcl.dvb，执行宏swcl

[ 本帖最后由 lymx 于 2006-12-1 22:18 编辑 ]

ZYQD06

lymx 超级版主:
我正在学习VBA 能不能把你的密码给我?谢谢哦.. QQ:41647600

ZYQD06

感谢二楼大哥!眼泪花花的...

新手

不错了啊!我要学学啊!

aghewchen

成功，谢谢。很方便的～

yindaozhi20

谢谢！下载了急用啊！！