[求助]求救求救！！cad开发变速箱中的齿轮该怎么编？？？

星城飘泊 · 发表于 2004-3-2 09:56:00

如题！请各位帮一下忙，没学过也要我们搞设计。
谢谢！！！

meflying · 发表于 2004-3-2 10:41:00

什么东西没学过？
如果是设计没学过，那肯定要学了才行，
如果是编程没学过，那也要学，，，你这一个“怎么”，就是好几本厚厚的书啊。。。

星城飘泊 · 发表于 2004-3-2 11:30:00

当然是编程没学过！就是看这本书也看得头痛！
望多多帮忙！！！！！

meflying · 发表于 2004-3-2 11:32:00

怎么帮你？帮你写一个？这儿的人估计都对设计过程忘得差不多了。。。
如果是你自己写，那就有具体问题时再提出来，这样说多多帮忙让人无从下手。。。

citykunan · 发表于 2004-3-2 13:20:00

这有一个齿轮的程序，不知对你有没有用？
;gear.lsp
(defun grinfo ()
   (setq c (getpoint "\n齿轮中心： "))
   (setq pc (getpoint "\n节距圆： "))
   (setq teeth (getint "\n齿数： "))
   (while ( teeth 50) (setq teeth (getint "\n必须不超过50个齿： ")))
   (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 wang2 0.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唤起命令: ")