关于齿轮的问题

爱咋咋地

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


(defun C:GEAR()
  (setvar "cmdecho" 0)
% d% c" K7 J. M+ q  I. {2 ~  (graphscr)
  (SETQ SCALE (GETVAR "LTSCALE"))
. C3 i; D/ v; `; F- |$ T  (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)?"))
1 q6 k4 F( |# o' C& y  (INITGET 1 "G g R r")
: }# O  D, u3 D: x, F) [' I  (SETQ TYPE (GETKWORD "\nPLS INPUT DRAFT GEAR <G> OR RACK <R>?"))
  
  (IF (or (= UNIT "D") (= unit "DP"))
) y9 m: u: d8 R5 w; L/ X9 O2 n    (PROGN
3 l8 a. Z1 R& B3 ~9 `- N  Q6 f      (setq diap (getreal "diametral pitch:<12>"))
) o- o! \( D: c, P% b8 r' a      (SETVAR "LTSCALE" 1.0)
      (if (= diap nil)
        (setq diap 12.0)
      )
3 L* L& D$ n" O, q, |    )
0 Y) U2 G( f8 Z( L3 P  )
  
  (IF (= UNIT "M")
    (PROGN
" J2 S! s" N: T! ^; W0 }- H0 r      (SETQ MODULE (GETREAL "MODULE:<2.5>"))
      (SETVAR "LTSCALE" 25.4)
      (IF (= MODULE NIL)
        (SETQ MODULE 2.5)
2 c% ^3 {1 }% M4 L4 ^: {+ c7 K" S* ?        )

zjzllll

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

爱咋咋地

楼上的真是强人,问题解决了,但是新问题又出来了:输入GEAR之后出现si unit (dp) or metric unit (m)?  我输入DP但是不懂啥意思.
% W3 l, W& ^& x# ~- H, H( K
# [; G9 h4 R0 y4 V7 X然后出现pls input draft gear <g> or rack <r>?我输入G,当然我也不懂啥意思.

然后出现diametral pitch:<12>?我输入100,也不懂.
$ g4 m5 O. ]3 Z+ w6 y3 t; Y- v
" f. ]$ _( G6 k0 m9 x0 k! `! v- u, p然后出现number of teeth:<24>齿数24这个我懂

9 D1 P4 j: R5 H$ Z: h然后出现 ressure angle:<20.0> 压力角我也懂
6 E( I& G( ^) ?3 w' S9 B
然后出现number of points on curve:<10>我输入1这个我不懂
) e7 v: N3 A" f! y, Q; b
然后出现center of gear:这是选择齿轮的中心,但是我在屏幕上点了一个点,然后告诉我是无效的点.
. J  R6 y* @3 G0 y& o' n这个过程中我不懂的地方你还能帮助我解决吗?
; T( e3 E# ?+ T; ^8 \     谢谢!

xuehong51

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

爱咋咋地

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

houpeixuan

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

爱咋咋地

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

liuhongyin

English,不懂.抱歉

爱咋咋地

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

smwsmwsmw

哇,这个怎么用呀!哈哈

爱咋咋地

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