关于齿轮的问题

爱咋咋地 · 发表于 2007-3-29 20:26

这是我下载的齿轮程序，加载到ＣＡＤ里不知道怎么使用，请教各位了：

(defun C:GEAR()
  (setvar "cmdecho" 0)
  (graphscr)
  (SETQ SCALE (GETVAR "LTSCALE"))
  (SETQ COLOR (GETVAR "CECOLOR"))
  (COMMAND "COLOR" 4)
  (INITGET 1 "D d DP dp M m")
  (setq unit (getkword "\nSI UNIT (DP) OR METRIC UNIT (M)?"))
  (INITGET 1 "G g R r")
  (SETQ TYPE (GETKWORD "\nPLS INPUT DRAFT GEAR <G> OR RACK <R>?"))

  (IF (or (= UNIT "D") (= unit "DP"))
(PROGN
   (setq diap (getreal "diametral pitch:<12>"))
   (SETVAR "LTSCALE" 1.0)
   (if (= diap nil)
      (setq diap 12.0)
   )
)
  )

  (IF (= UNIT "M")
(PROGN
   (SETQ MODULE (GETREAL "MODULE:<2.5>"))
   (SETVAR "LTSCALE" 25.4)
   (IF (= MODULE NIL)
      (SETQ MODULE 2.5)
      )

zjzllll · 发表于 2007-3-29 20:33

另存为lsp格式的文件用cad加载后在命令行输入GEAR看看吧

爱咋咋地 · 发表于 2007-3-30 12:02

楼上的真是强人,问题解决了,但是新问题又出来了:输入GEAR之后出现si unit (dp) or metric unit (m)? 我输入DP但是不懂啥意思.

然后出现pls input draft gear <g> or rack <r>?我输入G,当然我也不懂啥意思.

然后出现diametral pitch:<12>?我输入100,也不懂.

然后出现number of teeth:<24>齿数24这个我懂

然后出现 ressure angle:<20.0> 压力角我也懂

然后出现number of points on curve:<10>我输入1这个我不懂

然后出现center of gear:这是选择齿轮的中心,但是我在屏幕上点了一个点,然后告诉我是无效的点.
这个过程中我不懂的地方你还能帮助我解决吗?
谢谢!

xuehong51 · 发表于 2007-3-30 13:09

第一个好像是问你公英制，你选的是英制。
后面的就不知道了，但有关的参数应该有直齿（斜齿）、模数（径节）等

爱咋咋地 · 发表于 2007-3-31 11:42

需要高手回答啊,急切盼望中

houpeixuan · 发表于 2007-3-31 11:50

这里有这么多的高手，多介绍点工作经验

爱咋咋地 · 发表于 2007-3-31 21:16

受大家爱戴的,我那素未谋面的太老师,那里去了?

liuhongyin · 发表于 2007-3-31 22:51

English,不懂.抱歉

爱咋咋地 · 发表于 2007-4-1 08:53

受大家爱戴的,我那素未谋面的太老师,那里去了?

smwsmwsmw · 发表于 2007-4-1 11:00

哇,这个怎么用呀!哈哈

爱咋咋地 · 发表于 2007-4-1 20:29

受大家爱戴的,我那素未谋面的太老师,那里去了

		自动登录	找回密码
密码			立即注册

[求助] 关于齿轮的问题

我猜

不错