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

星城飘泊

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


谢谢！！！

meflying

什么东西没学过？


如果是设计没学过，那肯定要学了才行，


如果是编程没学过，那也要学，，，你这一个“怎么”，就是好几本厚厚的书啊。。。

星城飘泊

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


望多多帮忙！！！！！

meflying

怎么帮你？帮你写一个？这儿的人估计都对设计过程忘得差不多了。。。


如果是你自己写，那就有具体问题时再提出来，这样说多多帮忙让人无从下手。。。

citykunan

这有一个齿轮的程序，不知对你有没有用？ ;gear.lsp (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 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唤起命令: ")

星城飘泊

谢谢！！！我试一下！！！！

ljcgq

程序不错!

星城飘泊

不错啊！！！谢谢！不过这样我还不能交差！


还要写一个****.dcl程序和****.lsp程序！

zcjhy

我手头刚好有一个 有DCL和LSP 而且能出三维图形

jason_1982

热心人多啊