[求助]编程又出现问题，zzqqxx飞哥等大侠帮忙啊

bitterwood

dt2 (getdist "\n请输入齿轮左旁台的直径<50>:") 这里输入回车以后就出错了。为什么啊？
dt2 (if dt2 dt2 50)
bt2 (- aa (+ a23 a1 bt11 a2)) (defun c:gear1(/ m z ang1 d da db s1 s2 s3)
(setq aa (getreal "\n请输入总长<82>:")
aa (if aa aa 82)
a23 (getreal "\n请输入齿轮2，3的距离<35>:")
a23 (if a23 a23 35)
m (getreal "\n请输入齿轮模数<2.5>：")
m (if m m 2.5)
z (getint "\n请输入齿轮齿数<18>：")
z (if z z 18)
ang1 (getangle "\n请输入齿轮左偏角<10>：")
ang1 (if ang1 ang1 (/ pi 18))
a1 (getdist "\n请输入齿轮宽<13>：")
a1 (if a1 a1 13)
dn1 (getdist "\n请输入内径<20>:")
dn1 (if dn1 dn1 20)
dt1 (getdist "\n请输入齿轮旁台的直径<38>:")
dt1 (if dt1 dt1 38)
bt1 (getdist "\n请输入齿轮旁台的宽<7>:")
bt1 (if bt1 bt1 7)
d (* m z)
da (* m (+ z 2))
db (* m (- z 2.5))
p0 (getpoint "\n请输入起点：")
)
(setq p1 (polar p0 (/ pi 2) (/ dn1 2))
p2 (polar p0 (/ pi 2) (/ db 2))
p3 (polar p2 0 a1)
p4 (polar p0 0 a1)
p5 (polar p4 (/ pi 2) (/ da 2))
p6 (polar p2 (- (/ pi 2) ang1) (/ (* m 2.25) (cos ang1)))
p7 (polar p4 (/ pi 2) (/ dt1 2))
p8 (polar p7 0 bt1)
p9 (polar p4 0 bt1)
p10 (polar p9 (/ pi 2) (/ dn1 2))
)
(setvar "osmode" 0)
(command "pline" p0 p1 p2 p6 p5 p3 p7 p8"")
(setq s1 (entlast))
(command "line" p2 p3 "")
(setq s2 (entlast))
(command "line" p1 p10 "")
(setq s3 (entlast))
(COMMAND "MIRROR" s1 s2 s3 "" P0 P9 "N")
(princ)
)
(defun c:gear2(/ m z ang1 ang2 a dn dt1 bt1 d da db s1 s2 s3)
(setq m (getreal "\n请输入齿轮模数<2.5>：")
m (if m m 2.5)
z (getint "\n请输入齿轮齿数<36>：")
z (if z z 36)
ang1 (getangle "\n请输入齿轮左偏角<10>：")
ang1 (if ang1 ang1 (/ pi 18))
ang2 (getangle "\n请输入齿轮右偏角<10>：")
ang2 (if ang2 ang2 (/ pi 18))
a2 (getdist "\n请输入齿轮宽<12>：")
a2(if a2 a2 12)
dn2 (getdist "\n请输入内径<20>:")
dn2 (if dn2 dn2 20)
dt2 (getdist "\n请输入齿轮左旁台的直径<50>:")
dt2 (if dt2 dt2 50)
bt2 (- aa (+ a23 a1 bt11 a2))
dt3 (getdist "\n请输入齿轮右旁台的直径<60>:")
dt3 (if dt3 dt3 60)
d (* m z)
da (* m (+ z 2))
db (* m (- z 2.5))
o0 (getpoint "\n请输入起点<p9>：")
o0 (if o0 o0 p9)
)
(setq o1(polar o0 (/ pi 2) (/ dt2 2))
o2(polar o0 0 bt2)
o3(polar o2 0 bt2)
o4(polar o2 (/ pi 2) (/ db 2))
o5(polar o4 (- (/ pi 2) ang1) (/ (* m 2.25) (cos ang1)))
o6(polar o4 0 a2)
o7(polar o6 (+(/ pi 2) ang1) (/ (* m 2.25) (cos ang1)))
o8(polar o2 0 a2)
o9(polar o8 (/ pi 2) (/ dt3 2))
o10(polar p10 0 (+ bt2 a2))
)
(setvar "osmode" 0)
(command "pline" p8 o1 o3 o4 o5 o7 o6 o9"")
(setq s1 (entlast))
(command "line" p10 o10 "")
(setq s2 (entlast))
(command "line" o4 o6 "")
(setq s3 (entlast))
(COMMAND "MIRROR" s1 s2 s3 "" P9 o8 "N")
(princ)
)
(defun c:gear3(/ m z ang2 a dn dt1 bt1 d da db s1 s2 s3)
(setq m (getreal "\n请输入齿轮模数<2.5>：")
m (if m m 2.5)
z (getint "\n请输入齿轮齿数<27>：")
z (if z z 27)
ang2 (getangle "\n请输入齿轮右偏角<10>：")
ang2 (if ang1 ang1 (/ pi 18))
a3 (getdist "\n请输入齿轮宽<13>：")
a3 (if a a 13)
dn3 (getdist "\n请输入内径<20>:")
dn3 (if dn3 dn3 20)
dt3 (getdist "\n请输入齿轮旁台3的直径<60>:")
dt3 (if dt3 dt3 60)
bt3 (/ (- a23 (+ a3 bt4)) 2)
dt4 (getdist "\n请输入齿轮旁台4的直径<45>:")
dt4 (if dt4 dt5 45)
bt4 (getdist "\n请输入齿轮旁台4的宽<12>:")
bt4 (if bt5 bt5 12)
dt5 (getdist "\n请输入齿轮旁台5的直径<60>:")
dt5 (if dt5 dt5 60)
bt5 (/ (- a12 (+ a bt4)) 2)
dn4 (getdist "\n请输入齿轮下孔的直径<48>:")
dn4 (if dn4 dn4 48)
bn4 (getdist "\n请输入齿轮下孔的宽<7>:")
bn4 (if bn4 bn4 7)
d (* m z)
da (* m (+ z 2))
db (* m (- z 2.5))
qs (getpoint "\n请输入起点<o10>：")
qs (if qs qs o10)
)
(setq q17 (polar qs (/ pi 2) (/ dn3 2))
q18 (polar q17 0 bt3)
q0 (polar qs 0 bt3)
q1 (polar q0 (/ pi 2) (/ dn3 2))
q2 (polar q0 (/ pi 2) (/ dt4 2))
q3 (polar q2 0 bt4)
q4 (polar q0 0 bt4)
q5 (polar q4 (/ pi 2) dt5)
q6 (polar q5 0 bt5)
q7 (polar q4 0 bt5)
q8 (polar q7 (/ pi 2) (/ db 2))
q9 (polar q7 (/ pi 2) (/ da 2))
q10 (polar q8 0 a)
q11 (polar p10 (+ (/ pi 2) ang1) (/ (* m 2.25) (cos ang1)))
q12 (polar q7 0 a)
q13 (polar q12 pi bn4)
q14 (polar q12 (/ pi 2) (/ dn3 2))
q15 (polar q13 (/ pi 2) (/ dn3 2))
q16 (polar q13 (/ pi 2) (/ dn3 2))
)
(setvar "osmode" 0)
(command "pline" o9 q18 q2 q3 q5 q6 q9 q11 q10 q14 q15 q16 "")
(setq s1 (entlast))
(command "line" q17 q16 "")
(setq s2 (entlast))
(command "line" q8 q10 "")
(setq s3 (entlast))
(COMMAND "MIRROR" s1 s2 s3 "" P0 P9 "N")
(princ)
)

bitterwood

500k的图不允许上传啊？一传就不行啊。 图。 http://forum.byr.edu.cn/bbscon.php?bid=87&id=27224&ap=250 或者留个油箱我发给你啊。着急中，这还一半都不到啊

bitterwood

图: http://p4.xdcad.net/forum/file_upload/367263_三联齿轮.jpg

meflying

dt2 (getdist "\n请输入齿轮左旁台的直径<50>:")
dt2 (if dt2 dt2 50)
bt2 (- aa (+ a23 a1 bt11 a2)) 最后这句a23 a1 bt11都没有赋值，当然出错

bitterwood

飞哥,这些都在gear1中有了值啊,我也在前边defun后边没用/ a23 a1那些啊


那比如我要用前边程序中的某个参数的值怎么调用啊

ZZXXQQ

读别人的程序还不如重新写一个。下面是重新写的，搭了个框架。











        这是打包的全部文件：

bitterwood

天那,一团都不认识..


大哥不要对话框可以不,就要lisp.然后老师要求分块呢.就是不要一起3个齿轮都划到连一快,不过这样也行了给我提供个很好的思路,我要认真的学习学习,


太感谢大哥了..连图一快划出来还带尺寸表住....我写了5天多还秘密忽忽的出不来图...

maomao2004

受教了

bitterwood

关键是没学过对话框,老师也没要求,我现在时间紧来不及学了啊.


刚才试试.都不会调用对话矿

bitterwood

会使用了.


就是画出来的图没有那些填充的斜线啊.


我在学学dcl.争取把这个搞懂!


谢谢zzxxqq大哥,太厉害了,