齿轮设计程序,高手帮我排几处错吧

lyh9988

;gear.lip (defun grifo()
(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 ang32.79248)
(setq ang5(/360.000000 teeth))
(setq wang -0.785385)
(setq wang 20.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 anm))
"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换起命令: ") 这程序我是从书本上搬过来的.,可是调试时候还是有错,说语法错误,我百思不得其解!!! 有劳你们了!!

ljpnb

错误实在太多了，楼主仔细检查一遍再说啊，错误不下于20处。。。。。

meflying

主要是空格问题,请楼主仔细检查一下,,,应该没有20处,有些空格省略并不会造成错误

ljpnb

嘿嘿，说得多了一些，暂时先指出这么多吧

2. (defun grifo ()                                                                       ;_1前后不对应,应该是grinfo
3.    (setq c (getpoint "\n 齿轮中心: "))
4.    (setq pc (getpoint "\n 节距圆: "))
5.    (setq teeth (getint "\n 齿数: "))
6.    (while (<teeth 14)                                                                     ;_2符号与变量要分开
7.        (setq teeth (getint "\n 必须至少14个齿: "))
8.    )
9.    (while (>teeth 50)                                                                       ;_3符号与变量要分开
10.        (setq teeth (getint "\n 必须不超过50个齿: "))
11.    )
12.    (while (<teeth 14)
13.        (setq teeth (getint "\n 必须至少14个齿: "))
14.    )                                                                                                             ;_4这句不明白是什么意思,上面不是有这一句了嘛
15.    (while (>teeth 50)
16.        (setq teeth (getint "\n 必须不超过50个齿: "))
17.    )                                                                                               ;_5这句也一样,多余的吧
18. )(defun calgear ()
19.    (setq d (* 2 (distance c pc)))
20.    (setq pc (polar c 0 (/ d 2)))
21.    (setq ang3 2.79248)                                                               ;_6变量与值要分开
22.    (setq ang5 (/ 360.000000 teeth))                             ;_7符号与变量要分开
23.    (setq wang -0.785385)
24.    (setq wang 20.785385)                                                   ;_8这句不明白是什么意思
25.    (setq dp (/ teeth d))                                                             ;_9符号与变量要分开
26.    (setq ht (/ 0.32 dp))
27.    (setq adm (/ 1.0 dp))
28.    (setq y (* (/ 2.257 dp) 1.0642))
29. )(defun drawgear  ()
30.    (command "PLINE"
31.        (setq p (polar pc 0 anm))                                     ;_10变量写错了,应该是adm吧
32.        "a"
33.        "ce"
34.        c
35.        "l"
36.        ht
37.        "l"
38.        (setq p (polar (getvar "lastpoint") ang3 y))
39.        "a"
40.        "ce"
41.        c
42.        "l"
43.        ht
44.        ""   )
45.    (SETQ TOP (GETvar "LASTPOINT"))
46.    (command "MIRROR"
47.        "L"
48.        ""
49.        (setq p (polar pc 0 adm))
50.        c
51.        "n"
52.    )
53.    (command "ARRAY"
54.        "w"
55.        (POLAR TOP 4.712389 (* Y 1.5))
56.        (polar TOP 0 Y)
57.        ""
58.        "c"
59.        c
60.        ang5
61.        "-360"
62.        "Y"
63.    )
64. )
65. (defun C:GEAR ()
66.    (grinfo)
67.    (setq stdots (getvar "blipmode"))
68.    (setq stech (getvar "cmdecho"))
69.    (setvar "blipmode" 0)
70.    (setvar "cmdecho" 0)
71.    (calgear)
72.    (drawgear)
73.    (setvar "blipmode" stdots)
74.    (setvar "cmdecho" stech)
75. )
76. (prompt "\n键入Gear换起命令: ")

(defun grifo ()                                                                       ;_1前后不对应,应该是grinfo    (setq c (getpoint "\n 齿轮中心: "))    (setq pc (getpoint "\n 节距圆: "))    (setq teeth (getint "\n 齿数: "))    (while (<teeth 14)                                                                     ;_2符号与变量要分开        (setq teeth (getint "\n 必须至少14个齿: "))    )    (while (>teeth 50)                                                                       ;_3符号与变量要分开        (setq teeth (getint "\n 必须不超过50个齿: "))    )    (while (<teeth 14)        (setq teeth (getint "\n 必须至少14个齿: "))    )                                                                                                             ;_4这句不明白是什么意思,上面不是有这一句了嘛    (while (>teeth 50)        (setq teeth (getint "\n 必须不超过50个齿: "))    )                                                                                               ;_5这句也一样,多余的吧 )(defun calgear ()    (setq d (* 2 (distance c pc)))    (setq pc (polar c 0 (/ d 2)))    (setq ang3 2.79248)                                                               ;_6变量与值要分开    (setq ang5 (/ 360.000000 teeth))                             ;_7符号与变量要分开    (setq wang -0.785385)    (setq wang 20.785385)                                                   ;_8这句不明白是什么意思    (setq dp (/ teeth d))                                                             ;_9符号与变量要分开    (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 anm))                                     ;_10变量写错了,应该是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换起命令: ")

lyh9988

多谢各位,小弟在感激的同时又希望大家能继续帮我排忧解难....

lyh9988

这个是我修改过的程序,大家看看还有什么不是对之处,至于那边的重复语句我也不太清楚,书上就是这样的!!
刚刚调试过，还是有语法错误,这程序对我太重要了 ,希望各路高手继续帮小弟一把!! ;gear.lip (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 ang 32.79248)
(setq ang 5(/ 360.000000 teeth))
(setq wang -0.785385)
(setq wang 20.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") ang 3 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
ang 5
"-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换起命令: ")

ljpnb

修改过了,还有一个BUG,就是图形有重迭部份

2.           ;gear.lip(defun grinfo ()
3.    (setq c (getpoint "\n 齿轮中心: "))
4.    (setq pc (getpoint "\n 节距圆: "))
5.    (setq teeth (getint "\n 齿数: "))
6.    (while (< teeth 14)
7.        (setq teeth (getint "\n 必须至少14个齿: "))
8.    )
9.    (while (> teeth 50)
10.        (setq teeth (getint "\n 必须不超过50个齿: "))
11.    )
12.    ;; (while(< teeth 14)(setq teeth(getint "\n 必须至少14个齿: ")))
13.    ;;(while(> teeth 50)(setq teeth(getint "\n 必须不超过50个齿: ")))
14. )(defun calgear ()
15.    (setq d (* 2 (distance c pc)))
16.    (setq pc (polar c 0 (/ d 2)))
17.    (setq ang3 2.79248)
18.    (setq ang5 (/ 360.000000 teeth))
19.    (setq wang -0.785385)
20.    (setq wang 20.785385)
21.    (setq dp (/ teeth d))
22.    (setq ht (/ 0.32 dp))
23.    (setq adm (/ 1.0 dp))
24.    (setq y (* (/ 2.257 dp) 1.0642))
25. )(defun drawgear  ()
26.    (command "PLINE"
27.        (setq p (polar pc 0 adm))
28.        "a"
29.        "ce"
30.        c
31.        "l"
32.        ht
33.        "l"
34.        (setq p (polar (getvar "lastpoint") ang3 y))
35.        "a"
36.        "ce"
37.        c
38.        "l"
39.        ht
40.        ""   )
41.    (SETQ TOP (GETvar "LASTPOINT"))
42.    (command "MIRROR"
43.        "L"
44.        ""
45.        (setq p (polar pc 0 adm))
46.        c
47.        "n"
48.    )
49.    (command "ARRAY"
50.        "w"
51.        (POLAR TOP 4.712389 (* Y 1.5))
52.        (polar TOP 0 Y)
53.        ""
54.        "c"
55.        c
56.        ang5
57.        "-360"
58.        "Y"
59.    )
60. )
61. (defun C:GEAR ()
62.    (grinfo)
63.    (setq stdots (getvar "blipmode"))
64.    (setq stech (getvar "cmdecho"))
65.    (setvar "blipmode" 0)
66.    (setvar "cmdecho" 0)
67.    (calgear)
68.    (drawgear)
69.    (setvar "blipmode" stdots)
70.    (setvar "cmdecho" stech)
71. )
72. (prompt "\n键入Gear换起命令: ")

          ;gear.lip(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 wang 20.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换起命令: ")

lyh9988

问题在哪呢?请楼上帮我继续修改!!同时希望各路LISP高手踊跃前来指正.

lyh9988

我加载完后要怎样运行才会有齿轮出来呢


CAD命令行会提示键入GEAR换起命令,下一步该输什么啊,请高手不吝指点!!!大家见笑了，我还是一个初学者,往后还得各路高手多多关照!!

ljpnb

最基础的问题.........