[求助]：帮新手调试个程序啊，许是菜鸟问题啊

bitterwood

(defun c:gear1(/ m z ang1 ang2 d da db )
  (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 dn dn 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)
  (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 38)
        bt2 (- aa (+ a23 a1 bt1 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 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请输入齿轮齿数<27>：")
        z (if z z 27)
        ang1 (getangle "\n请输入齿轮右偏角<10>：")
        ang1 (if ang1 ang1 (/ pi 18))
        ; ang2 (getangle "\n请输入齿轮左偏角<0>：")
        ; ang2 (if ang2 ang2 0)
        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 (+ a 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 q0 q0 o10)
  )
  (setq q17 (polar (/ pi 2) (/ dn3 2))
        q18 (polar q17 bt3)
        q0 (polar qs 0 bt3)
        q1 (polar q0 (/ pi 2) (/ dn 2))
        q2 (polar q0 (/ pi 2) (/ dt2 2))
        q3 (polar q2 0 bt4)
        q4 (polar 0 q0 dt4)
        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 bn2)
        q14 (polar q12 (/ pi 2) (/ dn3 2))
        q15 (polar q13 (/ pi 2) (/ dn3 2))
        q16 (polar q13 (/ pi 2) (/ dn 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)
)