关于齿轮的问题

爱咋咋地

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


(defun C:GEAR()
  (setvar "cmdecho" 0)
  (graphscr)
  (SETQ SCALE (GETVAR "LTSCALE"))
  (SETQ COLOR (GETVAR "CECOLOR"))
8 m/ D0 L1 G/ i4 x3 E  (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>?"))
  
( K. P( P8 Y2 m7 D  (IF (or (= UNIT "D") (= unit "DP"))
6 f' b5 g7 O! e9 o. h    (PROGN
, T- V) ^# e/ ^  z1 z) R) |      (setq diap (getreal "diametral pitch:<12>"))
      (SETVAR "LTSCALE" 1.0)
      (if (= diap nil)
        (setq diap 12.0)
# Z- H; W9 S: P- o+ X      )
    )
  )
5 E3 R1 q( I) j  
  (IF (= UNIT "M")
. s( M: Q5 ^. O: s4 c    (PROGN
( J( @7 X, d; q( K; q& x/ j      (SETQ MODULE (GETREAL "MODULE:<2.5>"))
0 B. W+ Y; V  i      (SETVAR "LTSCALE" 25.4)
      (IF (= MODULE NIL)
        (SETQ MODULE 2.5)
, j; D6 f9 W0 @; N. C; e& j0 H8 j1 J        )

zjzllll

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

爱咋咋地

楼上的真是强人,问题解决了,但是新问题又出来了:输入GEAR之后出现si unit (dp) or metric unit (m)?  我输入DP但是不懂啥意思.
& @2 B6 M$ q6 d0 q
3 Z6 ?9 c0 g+ ^9 z/ S+ ?然后出现pls input draft gear <g> or rack <r>?我输入G,当然我也不懂啥意思.
3 v3 v/ i" k* f
: H7 a  D4 J! n6 Y+ n2 |- D然后出现diametral pitch:<12>?我输入100,也不懂.
% ~8 @2 W1 m" L5 y
' u( \* Y, a7 G0 w7 ^, @然后出现number of teeth:<24>齿数24这个我懂
  o: p" m4 }' q2 t3 B) \
然后出现 ressure angle:<20.0> 压力角我也懂
# H% R* F. c: Z7 V
% }) ]3 ^& w, h) {) l$ b  x8 }然后出现number of points on curve:<10>我输入1这个我不懂

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

xuehong51

第一个好像是问你公英制，你选的是英制。
3 B$ R3 ^1 O; A. Q, n. }后面的就不知道了，但有关的参数应该有直齿（斜齿）、模数（径节）等

爱咋咋地

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

houpeixuan

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

爱咋咋地

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

liuhongyin

English,不懂.抱歉

爱咋咋地

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

smwsmwsmw

哇,这个怎么用呀!哈哈

爱咋咋地

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