请教！！！

apple327

我想做一个对话框，如图所示：
对话框程序：
apple_dwx:dialog {
        label="小型定位销";
                :text        {
                  label="主视图";
                  alignment=centered;
                  }
                 :image {
                 key = "apple_image";
                 height = 5;
                 aspect_ratio =1.5;
                 fixed_height = true;
                 fixed_width = true;
                 }
                :edit_box    {
                     label="请输入定位销小端直径：";
                     key="kd";
                     edit_width=8;
                       
                  }
                  
                  spacer_1;
                  ok_cancel;
                    }
激活程序：
(defun c:apple_dwx1 ()
  (setvar "cmdecho" 0)
  (apple_dwx)
  (prin1)
  )
(defun apple_dwx ()
    (setq dcl_id (load_dialog "apple_dwx.dcl"))
   (new_dialog "apple_dwx" dcl_id)
   (action_tile "accept" "(ok_apple)(do_dialog 1)")
   (defun c:ok_apple()
     (setq a (atof (get_tile "kd"))
        )
           )
   )
我的目的是想要把直径（a/kd）的值传递到另一个程序。
可是激活时，发现对话框没反应。请哪位高手帮忙修改一下。

apple327

(defun C:dwx4 ()
  (setvar "osmode" 0)
  (graphscr)
  (setq oce (getvar "cmdecho"))
  (setvar "cmdecho" 0)

  (defun sub_chk_layer()
   (setq chklay (tblsearch "layer" "str"))
   (if (= chklay nil)
       (command "layer" "n" "str" "c" "4" "str" "")
   )
   (setq chklay (tblsearch "layer" "txt"))
   (if (= chklay nil)
       (command "layer" "n" "txt" "c" "3" "txt" "")
   )
   (setq chklay (tblsearch "layer" "dim"))
   (if (= chklay nil)
       (command "layer" "n" "dim" "c" "5" "dim" "")
   )
   (setq chklay (tblsearch "layer" "hat"))
   (if (= chklay nil)
       (command "layer" "n" "hat" "c" "6" "hat" "")
   )
   (setq chklay (tblsearch "layer" "cen"))
   (if (= chklay nil)
       (command "layer" "n" "cen" "c" "1" "cen" "lt" "center" "cen" "")
   )
   (setq chklay (tblsearch "layer" "hid"))
   (if (= chklay nil)
       (command "layer" "n" "hid" "c" "2" "hid" "lt" "hidden" "hid" "")
   )
  )
  (defun cen()
    (command "layer" "s" "cen" ""))
  (defun hid()
    (command "layer" "s" "hid" ""))
  (defun str()
    (command "layer" "s" "str" ""))
  (defun txt()
    (command "layer" "s" "txt" ""))
  (defun dim()
    (command "layer" "s" "dim" ""))
  (defun hat()
    (command "layer" "s" "hat" ""))

  (setq p1 (getpoint "\n基点:"))
  (setq a  (getreal "\n大径:"))
  (cond ((and (>= a 1) (<= a 2)) ( (setq h 4.0) (setq d 3.0) (setq l 10.0) (setq c 0.2)))       
        ((and (> a 2) (<= a 3)) ( (setq h 5.0) (setq d 5.0) (setq l 12.0) (setq c 0.4)))
        ( princ "\n没有此值")
           )
  (setq p2 (polar p1 (* pi 2) (- (/ d 2) 0.5))
        p3 (polar p2 (* pi 0.25) 0.707107)
        p4 (polar p3 (* pi 0.5) (- l h 0.5))
        p5 (polar p4  pi  (/ (- d a) 2))
        p6 (polar p5 (* pi 0.5) (- h c))
        p7 (polar p6 (* pi 0.583333) (* 1.035276 c))
        p8 (polar p1 (* pi 0.5) l)
        p14(polar p1 pi (- (/ d 2) 0.5))
        p13 (polar p14  (* pi 0.75) 0.707107)
        p12 (polar p13 (* pi 0.5) (- l h 0.5))
        p11 (polar p12 (* pi 2) (/ (- d a) 2))
        p10 (polar p11 (* pi 0.5) (- h c))
        p9  (polar p10 (* pi 0.416667) (* 1.035276 c))
        p15 (polar p5  (* pi 2) 0.5)
        p16 (polar p5 (* pi 0.5) 0.5)
        p17 (polar p11  pi 0.5)
        p18 (polar p11 (* pi 0.5) 0.5)
        p19 (polar p1 (* pi 1.5) 1)
        p20 (polar p8 (* pi 0.5) 1)
        )

           (sub_chk_layer)
            (str)
                (command "line" p2 p3 p4 p12 p13 p14  "c")
         (command  "arc"  p17  "en" p18  "a"  90  "")
         (command  "arc" p16 "en" p15 "a" 90 "")
         (command "line" p16 p6 p7 p9 p10 p18 "")
         (command "line" p6 p10 "")        
         (command "line" p3 p13 "")
            (cen)
         (command "line" p20 p19 "")
                (setvar "cmdecho" oce)
         (setvar "osmode" 1)
      
  )

apple327

现在对话框已经没有问题了，
总的程序如下：
(defun c:apple_dwx1 ()
  (setvar "cmdecho" 0)
  (apple_dwx)
  (prin1)
  
(defun C:apple_dwx ()
    (setq dcl_id (load_dialog "apple_dwx.dcl"))
   (new_dialog "apple_dwx" dcl_id)
   (setq x1 (dimx_tile "apple1")
         y1 (dimx_tile "apple1")
         )
   (start_image "apple1")
   (slide_image 0 0 x1 y1 "apple1")
   (end_image)
   (action_tile "accept" "(ok_apple)(do_dialog 1)")
   (start_dialog)
   (unload_dialog dcl_id)
  )
     (defun ok_apple()
     (setq a (atof (get_tile "kd")))
     )

(defun dwx4 ()
  (setvar "osmode" 0)
  (graphscr)
  (setq oce (getvar "cmdecho"))
  (setvar "cmdecho" 0)

  (defun sub_chk_layer()
   (setq chklay (tblsearch "layer" "str"))
   (if (= chklay nil)
       (command "layer" "n" "str" "c" "4" "str" "")
   )
   (setq chklay (tblsearch "layer" "txt"))
   (if (= chklay nil)
       (command "layer" "n" "txt" "c" "3" "txt" "")
   )
   (setq chklay (tblsearch "layer" "dim"))
   (if (= chklay nil)
       (command "layer" "n" "dim" "c" "5" "dim" "")
   )
   (setq chklay (tblsearch "layer" "hat"))
   (if (= chklay nil)
       (command "layer" "n" "hat" "c" "6" "hat" "")
   )
   (setq chklay (tblsearch "layer" "cen"))
   (if (= chklay nil)
       (command "layer" "n" "cen" "c" "1" "cen" "lt" "center" "cen" "")
   )
   (setq chklay (tblsearch "layer" "hid"))
   (if (= chklay nil)
       (command "layer" "n" "hid" "c" "2" "hid" "lt" "hidden" "hid" "")
   )
  )
  (defun cen()
    (command "layer" "s" "cen" ""))
  (defun hid()
    (command "layer" "s" "hid" ""))
  (defun str()
    (command "layer" "s" "str" ""))
  (defun txt()
    (command "layer" "s" "txt" ""))
  (defun dim()
    (command "layer" "s" "dim" ""))
  (defun hat()
    (command "layer" "s" "hat" ""))

  (setq p1 (getpoint "\n基点:"))
  (setq a  (getreal "\n大径:"))
  (cond ((and (>= a 1.0) (<= a 2.0)) ( (setq h 4.0) (setq d 3.0) (setq l 10.0) (setq c 0.2)))       
        ((and (> a 2.0) (<= a 3.0)) ( (setq h 5.0) (setq d 5.0) (setq l 12.0) (setq c 0.4)))
        ( princ "\n没有此值")
           )
  (setq p2 (polar p1 (* pi 2) (- (/ d 2) 0.5))
        p3 (polar p2 (* pi 0.25) 0.707107)
        p4 (polar p3 (* pi 0.5) (- l h 0.5))
        p5 (polar p4  pi  (/ (- d a) 2))
        p6 (polar p5 (* pi 0.5) (- h c))
        p7 (polar p6 (* pi 0.583333) (* 1.035276 c))
        p8 (polar p1 (* pi 0.5) l)
        p14(polar p1 pi (- (/ d 2) 0.5))
        p13 (polar p14  (* pi 0.75) 0.707107)
        p12 (polar p13 (* pi 0.5) (- l h 0.5))
        p11 (polar p12 (* pi 2) (/ (- d a) 2))
        p10 (polar p11 (* pi 0.5) (- h c))
        p9  (polar p10 (* pi 0.416667) (* 1.035276 c))
        p15 (polar p5  (* pi 2) 0.5)
        p16 (polar p5 (* pi 0.5) 0.5)
        p17 (polar p11  pi 0.5)
        p18 (polar p11 (* pi 0.5) 0.5)
        p19 (polar p1 (* pi 1.5) 1)
        p20 (polar p8 (* pi 0.5) 1)
        )

           (sub_chk_layer)
            (str)
                (command "line" p2 p3 p4 p12 p13 p14  "c")
         (command  "arc"  p17  "en" p18  "a"  90  "")
         (command  "arc" p16 "en" p15 "a" 90 "")
         (command "line" p16 p6 p7 p9 p10 p18 "")
         (command "line" p6 p10 "")        
         (command "line" p3 p13 "")
            (cen)
         (command "line" p20 p19 "")
                (setvar "cmdecho" oce)
         (setvar "osmode" 1)
      
  )
  )
运行时，显示ok_apple 定义有错！！！
请费神帮忙修改一下！！！