爱咋咋地 发表于 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

受大家爱戴的,我那素未谋面的太老师,那里去了
页: [1]
查看完整版本: 关于齿轮的问题