[求助]请各位高手帮我看看错误出在哪里

ww123

下面这个程序我们加载成功，系统报语法错误，但我们没有找出错误，请各位高手帮我看看错误出在哪里，不胜感激．



／＊主程序＊／
(defun dailun(/aug what dailun_type dw dd bp ha hf e f yi db fai xd l xb n)
   (setq dailun_type 1
        dw  95.50
        dd  90.00
        bp  11.00
        ha  2.75
        hf  8.75
        e   15.00
        f   10.00
        yi  6.00
        db  65.00
        fai 34.00
        xd  36.00
        l   72.00
        xb  13.20
        n   4.00
   )
   (setq O (list 240.00 145.00))
   (command "layer" "n" 1 "n" 2 "c" 1 1 "c" 255 2 "l" "center" 1 "lw" 0.2  2 "")
   (command "ltscale" 2)
   (setvar  "cmdecho" 1)   
   (command "osmode" "0")
   (dailun_start)  
   (while(< 0 what)
      (dailun_action)
      (cond
        ((= what 2) (dailun_pick)(dailun_set))
        ((= what 1) (dailun_draw))
      )  
   )
   (unload_dialog aug)
   (setvar "cmdecho" 1)
)


(defun dailun_action()
   (action_tile "dailun_type" "(dailun_stype)")
   (action_tile "dw" "(dailun_input)")
   (action_tile "dd" "(dailun_input)")
   (action_tile "bp" "(dailun_input)")
   (action_tile "ha" "(dailun_input)")
   (action_tile "hf" "(dailun_input)")
   (action_tile "e" "(dailun_input)")  
   (action_tile "f" "(dailun_input)")
   (action_tile "yi" "(dailun_input)")
   (action_tile "db" "(dailun_input)")
   (action_tile "fai" "(dailun_input)")
   (action_tile "xd" "(dailun_input)")
   (action_tile "l" "(dailun_input)")
   (action_tile "xb" "(dailun_input)")
   (action_tile "n" "(dailun_input)")
   (action_tile "pick_point" "(dailun_input) (done_dialog 2)")
   (action_tile "start_x" "(dailun_input)")
   (action_tile "start_y" "(dailun_input)")
   (action_tile "accept" "(dailun_input) (done_dialog 1)")
   (steq what (start_dialog))
)


(defun dailun_set()
   (new_dialog "dailun" aug)
   (dailun_vslide "dailun_image" (strcat "dail" (itoa dailun_type)) 0)
   (set_tile "dw"  (rtos dw 2 2))
   (set_tile "dd"  (rtos dd 2 2))
   (set_tile "bp"  (rtos bp 2 2))
   (set_tile "ha"  (rtos ha 2 2))
   (set_tile "hf"  (rtos hf 2 2))
   (set_tile "e"   (rtos e 2 2))
   (set_tile "f"   (rtos f 2 2))
   (set_tile "yi"  (rtos yi 2 2))
   (set_tile "db"  (rtos db 2 2))
   (set_tile "fai" (rtos fai 2 2))
   (set_tile "xd"  (rtos xd 2 2))
   (set_tile "l"   (rtos l 2 2))
   (set_tile "xb"  (rtos xb 2 2))
   (set_tile "n"   (rtos n 2 2))
   (set_tile "start_x" (rtos (car O) 2 2))
   (set_tile "start_y" (rtos (cadr O) 2 2))
)



(defun dailun_start()
   (setq what 5)
   (setq aug (load_dialog "dailun.dcl"))
   (if (not (new_dialog "dailun" aug)) (exit))
   (dailun_vslide "dailun_image" "dail1" 0)
   (set_tile "start_x" (rtos (car O) 2 2))
   (set_tile "start_y" (rtos (cadr O) 2 2))   
)


(defun dailun_vslide (key d_name n / x y)
   (setq x (dimx_tile key))
   (setq y (dimy_tile key))
   (start_image key)
   (fill_image n 0 x y 2)
   (slide_image n 0 x y d_name)
   (end_image)
)


(defun dailun_stype( / what1)
   (if (not (new_dialog "stype" aug)) (exit))
   (dailun_vslide "dai1" "dail1" 0)
   (dailun_vslide "dai2" "dail2" 0)
   (dailun_vslide "dai3" "dail3" 0)
   (dailun_vslide "dai4" "dail4" 0)
   (action_tile "dai1" "(setq dailun_type 1)")
   (action_tile "dai2" "(setq dailun_type 2)")
   (action_tile "dai3" "(setq dailun_type 3)")
   (action_tile "dai4" "(setq dailun_type 4)")
   (action_tile "accept" "(done_dialog 0)")
   (setq what1 (start_dialog))
   (dailun_vslide "dailun_image" (strcat "dail" (itoa dailun_type)) 0)
)


(defun dailun_input()
   (setq dw  (atof (get_tile "dw")))
   (setq dd  (atof (get_tile "dd")))
   (setq bp  (atof (get_tile "bp")))
   (setq ha  (atof (get_tile "ha")))
   (setq hf  (atof (get_tile "hf")))
   (setq e   (atof (get_tile "e")))
   (setq f   (atof (get_tile "f")))
   (setq yi  (atof (get_tile "yi")))
   (setq db  (atof (get_tile "db")))
   (setq fai (atof (get_tile "fai")))
   (setq xd  (atof (get_tile "xd")))
   (setq l   (atof (get_tile "l")))
   (setq xb   (atof (get_tile "xb")))
   (setq n   (atof (get_tile "n")))
   (setq O (list (atof (get_tile "start_x")) (atof (get_tile "start_y")) ))
   

(defun dailun_pick()
   (command "snap" "1")
   (setp O (getpoint "\n 输入带轮的起点:"))
)


(defun dailun_draw()
   (cond
      ((= dailun_type 1) (feature1))
      ((= dailun_type 2) (feature2))
      ((= dailun_type 3) (feature3))
      ((= dailun_type 4) (feature4))
   )
   (dailun_start)
)   


(defun feature1()
   (setq O1 (polar O (/ PI 2.00) (* (/ 11.00 20.00) xd)))
     (setq        G1 (polar O1
                  (/ PI 2.00)
                  (- (/ dw 2.00) (* (/ 11.00 20.00) xd))
            )
     )
    (setq q1 (- f (/ bp 2.00)))
    (setq q2 (/ (- dw dd) 2.00))
    (setq        q3 (sin (/ fi 2.00))
        q4 (cos (/ fi 2.00))
        q5 (/ q3 q4)
    )
    (setq G2 (polar G1 0.00 (- q1 (* q2 q5))))
    (setq G3 (polar G2 (- (/ fi 2.00) (/ PI 2.00)) (+ ha hf)))
    (setq q6 (car G3))
    (setq G4 (polar G3 0.00 (* (- (+ f 240) q6) 2)))
    (setq        G5 (polar G4
                  (- (+ (/ fi 2.00) (/ PI 2.00)) fi)
                  (+ ha hf)
             )
    )
    (setq G6 (polar G5 0.00 (- e xb)))
    (setq k 0)
    (while (<= k (- n 2))
      (setq q7 (distance G2 G6))
      (setq g (polar G2 0.00 (* (+ k 1) q7)))
      (setq G7 (polar g (- (/ fi 2.00) (/ PI 2.00)) (+ ha hf)))
      (setq G8 (polar G7 0.00 (* (- (+ f 240) q6) 2)))
      (setq G9 (polar G8
                    (- (+ (/ fi 2.00) (/ PI 2.00)) fi)
                    (+ ha hf)
               )
      )
      (setq G10 (polar G9 0.00 (- e xb)))
      (command "pline" g G7 G8 G9 G10 "")
      (setq k (+ 1 k))
    )
    (command "pline" O1 G1 G2 G3 G4 G5 G6 "")
    (setq G11 (polar q8 0.00 (- db q9)))
    (setq G12 (polar G11 (- (/ PI 2.00)) (- (/ dw 2.00) (* xd 0.90))))
    (if (>= l db)
      (subr1)
      (subr2)
    )

    (setq q10 (car G16))
    (if (<= db l)
      (setq q11 l)
      (setq q11 db)
    )
    (setq G21 (polar G11 0.00 (+ (- (+ q11 240.00) q10) 50.00)))
    (setq G22 (polar G21 (- (/ PI 2)) (/ dw 2)))
    (setq G23 (polar G22 (- (/ PI 2)) (/ dw 2)))
    (command "arc" "CE" G22 G23 "a" "180")
    (setq G24 (polar G22 (- (/ PI 2)) (+ (/ xd 2.00) (/ xd 20.00))))
    (command "arc" "CE" G22 G24 "a" "180")
    (setq G25 (polar G22 (- (/ PI 2)) (/ xd 2.00)))
    (command "arc" "CE" G22 G25 "a" "180")
    (setq G26 (polar O PI 20.00))
    (setq G27 (polar G22 0.00 (+ (/ dw 2) 20.00)))
    (setq G28 (polar G21 (/ PI 2.00) 20.00))
    (setq G29 (polar G23 (- (/ PI 2.00)) 20.00))
    (setq G30 (polar O (/ PI 2) (/ dd 2)))
    (setq G31 (polar O (- (/ pi 2)) (/ dd 2)))
    (setq G32 (polar G30 PI 10.00))
    (setq G33 (polar G32 0.00 (+ db 20.00)))
    (setq G34 (polar G31 PI 10.00))
    (setq G35 (polar G34 0.00 (+ db 20.00)))
    (setq G36 (polar G22 (- (/ Pi 2)) (/ dd 2)))
    (command "layer" "s" 1 "")
    (command "line" G26         G27        ""     "line" G28    G29    ""
           "line" G32         G33        ""     "line" G34    G35    ""
          )
    (command "arc" "CE" G22 G36 "a" "180")
    (command "layer" "s" 2 "")
    (setq G37 (polar O PI 40))
    (setq G38 (polar G37 (/ PI 2) (+ (/ dw 2) 40)))
    (setq G39 (polar G38 0.00 (+ (* q11 2) 100)))
    (setq G40 (polar G39 (- (/ PI 2)) (+ dw 80)))
    (setq G41 (polar G40 PI (distance G38 G39)))
    (command "pline" G38 G39 G40 G41 G38 "")
    (unload_dialog dcl_id)
  )

  (defun subr1 ()
    (setq        G13 (polar G12 0.00 (- l db (/ xd 20.00)))
        G14 (polar G13 (- (/ PI 4.00)) (* (/ xd 20.00) (sqrt 2.00)))
    )
    (setq        G15 (polar G14
                   (- (/ PI 2.00))
                   (- (last G13) 145.00 (/ xd 20.00))
                    )
    )
    (setq G16 (polar G14 (- (/ PI 2.00)) (- (* xd 0.4) (/ xd 10.00))))
    (setq        G17 (polar G16
                   (- (/ (* 3.00 PI) 4.00))
                   (* (/ xd 20.00) (sqrt 2.00))
             )
    )
    (setq G18 (polar G17 PI (- l (/ xd 10.00))))
    (setq        G19 (polar G17
                   (- (/ PI 2.00))
                   (- (distance G15 G16) (/ xd 20.00))
            )
    )
    (setq        G20 (polar G18
                   (- (/ PI 2.00))
                   (- (distance G15 G16) (/ xd 20.00))
            )
    )
    (setq q12 (last G12))
    (setq G42 (polar G12 (- (/ PI 2)) (- q12 140)))
    (command "pline" q8 G11 G12 G13 G14 G16 G17 G18 O1 "")
    (setq s1 (ssget "X"))
    (command "mirror" s1 "" O G15 "")
    (setq s2 (ssget "x"))
    (command "layer" "s" 0 "")
    (command "hatch" "u" 45.00 2.00 "" s2 "")
    (command "layer" "s" 2 "")
    (command "pline" G17 G19 "")
    (setq s3 (entlast))
    (command "mirror" s3 "" O G15 "")
    (command "pline" G18 G20 "")
    (setq s4 (entlast))
    (command "mirror" s4 "" O G15 "")
    (command "pline" O1 O "")
    (setq s5 (entlast))
    (command "mirror" s5 "" O G15 "")
    (command "pline" G15 G16 "")
    (setq s6 (entlast))
    (command "mirror" s6 "" O G15 "")

  )


  (defun subr2 ()
    (setq        G13 (polar G12 PI (- db l (/ xd 20.00)))
        G14 (polar G13
                   (- (/ (* PI 3) 4.00))
                   (* (/ xd 20.00) (sqrt 2.00))
            )
    )
    (setq        G15 (polar G14
                   (- (/ PI 2.00))
                   (- (last G13) 145.00 (/ xd 20.00))
            )
    )
    (setq G16 (polar G14 (- (/ PI 2.00)) (- (* xd 0.4) (/ xd 10.00))))
    (setq        G17 (polar G16
                   (- (/ (* 3.00 PI) 4.00))
                   (* (/ xd 20.00) (sqrt 2.00))
            )
    )
    (setq G18 (polar G17 PI (- l (/ xd 10.00))))
    (setq        G19 (polar G17
                   (- (/ PI 2.00))
                   (- (distance G15 G16) (/ xd 20.00))
            )
    )
    (setq        G20 (polar G18
                   (- (/ PI 2.00))
                   (- (distance G15 G16) (/ xd 20.00))
            )
    )
    (setq q12 (last G12))
    (setq G42 (polar G12 (- (/ PI 2)) (- q12 140)))
    (command "pline" q8 G11 G12 G13 G14 G16 G17 G18 O1 "")
    (setq s1 (ssget "X"))
    (command "mirror" s1 "" O G15 "")
    (setq s2 (ssget "x"))
    (command "layer" "s" 0 "")
    (command "hatch" "u" 45.00 2.00 "" s2 "")
    (command "layer" "s" 2 "")
    (command "pline" G17 G19 "")
    (setq s3 (entlast))
    (command "mirror" s3 "" O G15 "")
    (command "pline" G18 G20 "")
    (setq s4 (entlast))
    (command "mirror" s4 "" O G15 "")
    (command "pline" O1 O "")
    (setq s5 (entlast))
    (command "mirror" s5 "" O G15 "")
    (command "pline" G15 G16 "")
    (setq s6 (entlast))
    (command "mirror" s6 "" O G15 "")
    (command "pline" G12 G42 "")
    (setq s7 (entlast))
    (command "mirror" s7 "" O G15 "")

  )
)  
  














































































































(defun dailun(/aug what dailun_type dw dd bp ha hf e f yi db fai xd l xb n)
   (setq dailun_type 1
        dw  95.50
        dd  90.00
        bp  11.00
        ha  2.75
        hf  8.75
        e   15.00
        f   10.00
        yi  6.00
        db  65.00
        fai 34.00
        xd  36.00
        l   72.00
        xb  13.20
        n   4.00
   )
   (setq O (list 240.00 145.00))
   (command "layer" "n" 1 "n" 2 "c" 1 1 "c" 255 2 "l" "center" 1 "lw" 0.2  2 "")
   (command "ltscale" 2)
   (setvar  "cmdecho" 1)   
   (command "osmode" "0")
   (dailun_start)  
   (while(< 0 what)
      (dailun_action)
      (cond
        ((= what 2) (dailun_pick)(dailun_set))
        ((= what 1) (dailun_draw))
      )  
   )
   (unload_dialog aug)
   (setvar "cmdecho" 1)
)


(defun dailun_action()
   (action_tile "dailun_type" "(dailun_stype)")
   (action_tile "dw" "(dailun_input)")
   (action_tile "dd" "(dailun_input)")
   (action_tile "bp" "(dailun_input)")
   (action_tile "ha" "(dailun_input)")
   (action_tile "hf" "(dailun_input)")
   (action_tile "e" "(dailun_input)")  
   (action_tile "f" "(dailun_input)")
   (action_tile "yi" "(dailun_input)")
   (action_tile "db" "(dailun_input)")
   (action_tile "fai" "(dailun_input)")
   (action_tile "xd" "(dailun_input)")
   (action_tile "l" "(dailun_input)")
   (action_tile "xb" "(dailun_input)")
   (action_tile "n" "(dailun_input)")
   (action_tile "pick_point" "(dailun_input) (done_dialog 2)")
   (action_tile "start_x" "(dailun_input)")
   (action_tile "start_y" "(dailun_input)")
   (action_tile "accept" "(dailun_input) (done_dialog 1)")
   (steq what (start_dialog))
)


(defun dailun_set()
   (new_dialog "dailun" aug)
   (dailun_vslide "dailun_image" (strcat "dail" (itoa dailun_type)) 0)
   (set_tile "dw"  (rtos dw 2 2))
   (set_tile "dd"  (rtos dd 2 2))
   (set_tile "bp"  (rtos bp 2 2))
   (set_tile "ha"  (rtos ha 2 2))
   (set_tile "hf"  (rtos hf 2 2))
   (set_tile "e"   (rtos e 2 2))
   (set_tile "f"   (rtos f 2 2))
   (set_tile "yi"  (rtos yi 2 2))
   (set_tile "db"  (rtos db 2 2))
   (set_tile "fai" (rtos fai 2 2))
   (set_tile "xd"  (rtos xd 2 2))
   (set_tile "l"   (rtos l 2 2))
   (set_tile "xb"  (rtos xb 2 2))
   (set_tile "n"   (rtos n 2 2))
   (set_tile "start_x" (rtos (car O) 2 2))
   (set_tile "start_y" (rtos (cadr O) 2 2))
)



(defun dailun_start()
   (setq what 5)
   (setq aug (load_dialog "dailun.dcl"))
   (if (not (new_dialog "dailun" aug)) (exit))
   (dailun_vslide "dailun_image" "dail1" 0)
   (set_tile "start_x" (rtos (car O) 2 2))
   (set_tile "start_y" (rtos (cadr O) 2 2))   
)


(defun dailun_vslide (key d_name n / x y)
   (setq x (dimx_tile key))
   (setq y (dimy_tile key))
   (start_image key)
   (fill_image n 0 x y 2)
   (slide_image n 0 x y d_name)
   (end_image)
)


(defun dailun_stype( / what1)
   (if (not (new_dialog "stype" aug)) (exit))
   (dailun_vslide "dai1" "dail1" 0)
   (dailun_vslide "dai2" "dail2" 0)
   (dailun_vslide "dai3" "dail3" 0)
   (dailun_vslide "dai4" "dail4" 0)
   (action_tile "dai1" "(setq dailun_type 1)")
   (action_tile "dai2" "(setq dailun_type 2)")
   (action_tile "dai3" "(setq dailun_type 3)")
   (action_tile "dai4" "(setq dailun_type 4)")
   (action_tile "accept" "(done_dialog 0)")
   (setq what1 (start_dialog))
   (dailun_vslide "dailun_image" (strcat "dail" (itoa dailun_type)) 0)
)


(defun dailun_input()
   (setq dw  (atof (get_tile "dw")))
   (setq dd  (atof (get_tile "dd")))
   (setq bp  (atof (get_tile "bp")))
   (setq ha  (atof (get_tile "ha")))
   (setq hf  (atof (get_tile "hf")))
   (setq e   (atof (get_tile "e")))
   (setq f   (atof (get_tile "f")))
   (setq yi  (atof (get_tile "yi")))
   (setq db  (atof (get_tile "db")))
   (setq fai (atof (get_tile "fai")))
   (setq xd  (atof (get_tile "xd")))
   (setq l   (atof (get_tile "l")))
   (setq xb   (atof (get_tile "xb")))
   (setq n   (atof (get_tile "n")))
   (setq O (list (atof (get_tile "start_x")) (atof (get_tile "start_y")) ))
   

(defun dailun_pick()
   (command "snap" "1")
   (setp O (getpoint "\n 输入带轮的起点:"))
)


(defun dailun_draw()
   (cond
      ((= dailun_type 1) (feature1))
      ((= dailun_type 2) (feature2))
      ((= dailun_type 3) (feature3))
      ((= dailun_type 4) (feature4))
   )
   (dailun_start)
)   


(defun feature1()
   (setq O1 (polar O (/ PI 2.00) (* (/ 11.00 20.00) xd)))
     (setq        G1 (polar O1
                  (/ PI 2.00)
                  (- (/ dw 2.00) (* (/ 11.00 20.00) xd))
            )
     )
    (setq q1 (- f (/ bp 2.00)))
    (setq q2 (/ (- dw dd) 2.00))
    (setq        q3 (sin (/ fi 2.00))
        q4 (cos (/ fi 2.00))
        q5 (/ q3 q4)
    )
    (setq G2 (polar G1 0.00 (- q1 (* q2 q5))))
    (setq G3 (polar G2 (- (/ fi 2.00) (/ PI 2.00)) (+ ha hf)))
    (setq q6 (car G3))
    (setq G4 (polar G3 0.00 (* (- (+ f 240) q6) 2)))
    (setq        G5 (polar G4
                  (- (+ (/ fi 2.00) (/ PI 2.00)) fi)
                  (+ ha hf)
             )
    )
    (setq G6 (polar G5 0.00 (- e xb)))
    (setq k 0)
    (while (<= k (- n 2))
      (setq q7 (distance G2 G6))
      (setq g (polar G2 0.00 (* (+ k 1) q7)))
      (setq G7 (polar g (- (/ fi 2.00) (/ PI 2.00)) (+ ha hf)))
      (setq G8 (polar G7 0.00 (* (- (+ f 240) q6) 2)))
      (setq G9 (polar G8
                    (- (+ (/ fi 2.00) (/ PI 2.00)) fi)
                    (+ ha hf)
               )
      )
      (setq G10 (polar G9 0.00 (- e xb)))
      (command "pline" g G7 G8 G9 G10 "")
      (setq k (+ 1 k))
    )
    (command "pline" O1 G1 G2 G3 G4 G5 G6 "")
    (setq G11 (polar q8 0.00 (- db q9)))
    (setq G12 (polar G11 (- (/ PI 2.00)) (- (/ dw 2.00) (* xd 0.90))))
    (if (>= l db)
      (subr1)
      (subr2)
    )

    (setq q10 (car G16))
    (if (<= db l)
      (setq q11 l)
      (setq q11 db)
    )
    (setq G21 (polar G11 0.00 (+ (- (+ q11 240.00) q10) 50.00)))
    (setq G22 (polar G21 (- (/ PI 2)) (/ dw 2)))
    (setq G23 (polar G22 (- (/ PI 2)) (/ dw 2)))
    (command "arc" "CE" G22 G23 "a" "180")
    (setq G24 (polar G22 (- (/ PI 2)) (+ (/ xd 2.00) (/ xd 20.00))))
    (command "arc" "CE" G22 G24 "a" "180")
    (setq G25 (polar G22 (- (/ PI 2)) (/ xd 2.00)))
    (command "arc" "CE" G22 G25 "a" "180")
    (setq G26 (polar O PI 20.00))
    (setq G27 (polar G22 0.00 (+ (/ dw 2) 20.00)))
    (setq G28 (polar G21 (/ PI 2.00) 20.00))
    (setq G29 (polar G23 (- (/ PI 2.00)) 20.00))
    (setq G30 (polar O (/ PI 2) (/ dd 2)))
    (setq G31 (polar O (- (/ pi 2)) (/ dd 2)))
    (setq G32 (polar G30 PI 10.00))
    (setq G33 (polar G32 0.00 (+ db 20.00)))
    (setq G34 (polar G31 PI 10.00))
    (setq G35 (polar G34 0.00 (+ db 20.00)))
    (setq G36 (polar G22 (- (/ Pi 2)) (/ dd 2)))
    (command "layer" "s" 1 "")
    (command "line" G26         G27        ""     "line" G28    G29    ""
           "line" G32         G33        ""     "line" G34    G35    ""
          )
    (command "arc" "CE" G22 G36 "a" "180")
    (command "layer" "s" 2 "")
    (setq G37 (polar O PI 40))
    (setq G38 (polar G37 (/ PI 2) (+ (/ dw 2) 40)))
    (setq G39 (polar G38 0.00 (+ (* q11 2) 100)))
    (setq G40 (polar G39 (- (/ PI 2)) (+ dw 80)))
    (setq G41 (polar G40 PI (distance G38 G39)))
    (command "pline" G38 G39 G40 G41 G38 "")
    (unload_dialog dcl_id)
  )

  (defun subr1 ()
    (setq        G13 (polar G12 0.00 (- l db (/ xd 20.00)))
        G14 (polar G13 (- (/ PI 4.00)) (* (/ xd 20.00) (sqrt 2.00)))
    )
    (setq        G15 (polar G14
                   (- (/ PI 2.00))
                   (- (last G13) 145.00 (/ xd 20.00))
                    )
    )
    (setq G16 (polar G14 (- (/ PI 2.00)) (- (* xd 0.4) (/ xd 10.00))))
    (setq        G17 (polar G16
                   (- (/ (* 3.00 PI) 4.00))
                   (* (/ xd 20.00) (sqrt 2.00))
             )
    )
    (setq G18 (polar G17 PI (- l (/ xd 10.00))))
    (setq        G19 (polar G17
                   (- (/ PI 2.00))
                   (- (distance G15 G16) (/ xd 20.00))
            )
    )
    (setq        G20 (polar G18
                   (- (/ PI 2.00))
                   (- (distance G15 G16) (/ xd 20.00))
            )
    )
    (setq q12 (last G12))
    (setq G42 (polar G12 (- (/ PI 2)) (- q12 140)))
    (command "pline" q8 G11 G12 G13 G14 G16 G17 G18 O1 "")
    (setq s1 (ssget "X"))
    (command "mirror" s1 "" O G15 "")
    (setq s2 (ssget "x"))
    (command "layer" "s" 0 "")
    (command "hatch" "u" 45.00 2.00 "" s2 "")
    (command "layer" "s" 2 "")
    (command "pline" G17 G19 "")
    (setq s3 (entlast))
    (command "mirror" s3 "" O G15 "")
    (command "pline" G18 G20 "")
    (setq s4 (entlast))
    (command "mirror" s4 "" O G15 "")
    (command "pline" O1 O "")
    (setq s5 (entlast))
    (command "mirror" s5 "" O G15 "")
    (command "pline" G15 G16 "")
    (setq s6 (entlast))
    (command "mirror" s6 "" O G15 "")

  )


  (defun subr2 ()
    (setq        G13 (polar G12 PI (- db l (/ xd 20.00)))
        G14 (polar G13
                   (- (/ (* PI 3) 4.00))
                   (* (/ xd 20.00) (sqrt 2.00))
            )
    )
    (setq        G15 (polar G14
                   (- (/ PI 2.00))
                   (- (last G13) 145.00 (/ xd 20.00))
            )
    )
    (setq G16 (polar G14 (- (/ PI 2.00)) (- (* xd 0.4) (/ xd 10.00))))
    (setq        G17 (polar G16
                   (- (/ (* 3.00 PI) 4.00))
                   (* (/ xd 20.00) (sqrt 2.00))
            )
    )
    (setq G18 (polar G17 PI (- l (/ xd 10.00))))
    (setq        G19 (polar G17
                   (- (/ PI 2.00))
                   (- (distance G15 G16) (/ xd 20.00))
            )
    )
    (setq        G20 (polar G18
                   (- (/ PI 2.00))
                   (- (distance G15 G16) (/ xd 20.00))
            )
    )
    (setq q12 (last G12))
    (setq G42 (polar G12 (- (/ PI 2)) (- q12 140)))
    (command "pline" q8 G11 G12 G13 G14 G16 G17 G18 O1 "")
    (setq s1 (ssget "X"))
    (command "mirror" s1 "" O G15 "")
    (setq s2 (ssget "x"))
    (command "layer" "s" 0 "")
    (command "hatch" "u" 45.00 2.00 "" s2 "")
    (command "layer" "s" 2 "")
    (command "pline" G17 G19 "")
    (setq s3 (entlast))
    (command "mirror" s3 "" O G15 "")
    (command "pline" G18 G20 "")
    (setq s4 (entlast))
    (command "mirror" s4 "" O G15 "")
    (command "pline" O1 O "")
    (setq s5 (entlast))
    (command "mirror" s5 "" O G15 "")
    (command "pline" G15 G16 "")
    (setq s6 (entlast))
    (command "mirror" s6 "" O G15 "")
    (command "pline" G12 G42 "")
    (setq s7 (entlast))
    (command "mirror" s7 "" O G15 "")

  )
)  
  



／＊对话匡文件＊／
dailun:dialog{
       label="常用V带轮的设计及绘图";
       :boxed_row{      
                  :column { :image{
                                   color=5;
                                   aspect_ratio=0.7;
                                   key=dailun_image;
                                   width=35;
                                   fixed_height=true;
                                  }
                          }
                  :column{
                          :row{
                               :button{
                                       label="V带轮特征选择...";
                                       key="dailun_type";
                                      }
                              }
                       :boxed_column{ label="V带轮的绘制基准点(起始点):";
                                     :button{ label="从图形屏幕选择点<<";   
                                              key="pick_point";
                                            }
                                     :edit_box{label="X轴座标:";
                                                key="start_x";
                                                  edit_width=6;}
                                         :edit_box{label="Y轴座标:";
                                                   key="start_y";
                                                   edit_width=6;}
                                        }
                            }   
          }
     :boxed_row{  
           :boxed_column{label="结构参数输入:";
                     :row {
                       :edit_box{label="外径dw(mm) ";
                                 key="dw";
                                 edit_width=6;
                                 }
                       :edit_box{label="基准尺寸dd(mm)";
                                  key="dd";
                                  edit_width=6;
                                }
                         }
                  :row{
                       :edit_box{label="基准宽度bp(mm)     ";
                                 key="bp";
                                 edit_width=6;
                                }
                      :edit_box{label="第一槽对称面到端面距离f(mm)";
                                    key="f";
                                    edit_width=6;
                                }
                      }
                 :row{ :edit_box{label="基准线上槽深hamin(mm)";   
                                    key="ha";
                                    edit_width=6;
                                }
                       :edit_box{label="基准线下槽深hfmin(mm)";
                                     key="hf";
                                     edit_width=6;
                                     }
                      }
                 :row{                     
                       :edit_box{label="槽间距e(mm)";
                                   key="e";
                                   edit_width=6;
                                }
                       :edit_box{label="最小轮缘厚yimin(mm)"

                                  key="yi";
                                  edit_width=6;
                                }
                     }               
                  :row{
                        :edit_box{label="轮槽角fai(mm)";
                                  key="fai";
                                  edit_with=6;
                                 }
                        :edit_box{label="动力输入轴直径xd(mm)";
                                   key="xd";
                                   edit_with=6;
                                 }   
                      }               
                  :row{
                        :edit_box{label="带轮宽db(mm)";
                                  key="db";
                                  edit_with=6;
                                 }
                        :edit_box{label="带轮轮毂部分厚度l(mm)";
                                  key="l";
                                  edit_with=6;
                                 }

                   :row{
                        :edit_box{label="齿槽宽xb(mm)";
                                   key="xb";
                                   edit_with=6;
                                 }
                        :edit_box{label="轮齿数n(mm)";
                                   key="n";
                                   edit_with=6;
                                 }              
                       }                  
                }  
          }
                   ok_cancel;
   }
/*V带轮特征选择对话框*/   
stype:dialog{ label="V带轮特征结构类型";
       :boxed_column{
                    :row{
                        :image_button{color=2;width=30;height=10;key="dai1";}
                        :image_button{color=2;width=30;height=10;key="dai2";}
                                               
                       }
                   :row{     
                        :image_button{color=2;width=30;height=10;key="dai3";}
                        :image_button{color=2;width=30;height=10;key="dai4";}
                       }
                   }     
                   ok_cancel;                             
       }

webhun

1.改defun dailun为defun c:dailun。dailun应为主程序吧
2.对话框有问题:
  2.1第一个对话框少一个}
  2.2第一个在：:edit_box{label="最小轮缘厚yimin(mm)"处少“;”
  2.3第一个也太大了一点，在我机子上宽度要1483才行，老兄，我用的是15"显示器啊。

陈伯雄

但是我不懂：
(set_tile "start_x" (rtos (car O) 2 2))
其中的(Car 0)是什么意思？

龙龙仔

前生

[此贴子已经被前生于2002-5-13 9:05:51编辑过]

前生

一上传，就出现错误!

mccad

前生

龙龙仔

前生