错误: quit / exit abort 怎么办？

苞谷地的王

DCL程序：
yxp:dialog{label="画圆斜坡的数据输入";
:column{
:edit_box{label="起点(x)=";key="XB";edit_limit=40;edit_width=10;value=0;}
:edit_box{label="    (y)=";key="YB";edit_limit=40;edit_width=10;value=0;}
:edit_box{label="中点(x)=";key="XM";edit_limit=40;edit_width=10;value=0;}
:edit_box{label="    (y)=";key="YM";edit_limit=40;edit_width=10;value=0;}
:edit_box{label="终点(x)=";key="XE";edit_limit=40;edit_width=10;value=0;}
:edit_box{label="    (y)=";key="YE";edit_limit=40;edit_width=10;value=0;}
}
:boxed_radio_row{label="比例尺";
:row{:radio_button{label="1:500";key="S05";valuse=0;}
radio_button{label="1:1000";key="S1";valuse=0;}
radio_button{label="1:2000";key="S2";valuse=0;}}}
:row{label="左侧或右侧且是否加固";
:toggle{label="左";key="L";value=0;}
:toggle{label="右";key="R";value=0;}
:toggle{label="固";key="Y";value=0;}}
ok_cancel;
}

lsp程序：
(defun getile()                                       ;从DCL控件中获取编辑框中当前值得子程序
  (setq xb (atof(get_tile"XB")))                      ;获取起点坐标
    (setq yb (atof(get_tile"YB")))
    (setq xm (atof(get_tile"XM")))
    (setq ym (atof(get_tile"YM")))                    ;获取中间点坐标
    (setq xe (atof(get_tile"XE")))                    ;获取终点坐标
    (setq ye (atof(get_tile"YE")))
  );end subroutine

(defun c:yxp()                                        ;加载DCL文件
  (setq id(load_dialog "yxp.dcl"))
  (if(< id 0) (exit))
  (if(not(new_dialog "yxp" id)) (exit))

  (action_tile "S05" "(setq S 0.5)")                 
   (action_tile "S1" "(setq S 1.0)")
   (action_tile "S2" "(setq S 2.0)")
  (action_tile "L" "(setq LR 1)")
   (action_tile "R" "(setq LR 2)")
   (action_tile "Y" "(setq JG 3)")

  (action_tile "accept" "(getile) (done_dialog 1)")  ;定义控件动作函数
  (start_dialog)                                     ;激活对话框
  (unload_dialog id)                                 ;下载对话框

                                                     ;以上对话框驱动程序写完
  
(setq PB(list xb yb) PM(list xm ym) PE(list xe ye))
  (command "point"PB  "point"PM "point"PE "")
  (setq D(distance PB PE))
  (setq A1(angle PB PM) A2(angle PB PE) A3(angle PE PB) A4(angle PE PM))
  (setq FB (- A1 A2) FE(- A3 A4) PI2(* pi 2))
  (if(< FB 0) (setq FB(+ FB PI2)))
  (if(< FE 0) (setq FE(+ FE PI2)))
  (setq F(+ FB FE) R(/ D(*(sin F) 2)))
  (setq F1(- (/ pi 2) F) ABC (-A2 F1))
  (if(< ABC 0)(setq ABC(+ ABC PI2)))
  (setq C (polar PB ABC R))
  (command "arc" PB PM PE "")
  (set DF(/(* 4 S) R) DF2(/ DF 2))
  (setq ACB(angle C PB) ACE(angle C PE))
  (setq FF 0)
  (while (<(+ FF DF) (* F 2))
    (setq FF(+ FF DF))
    (setq AP2(- ACB FF) AP1(+ AP2 DF2))
    (if(= LR 1) (setq R3(+ R(* 0.5 S)) R4(+ R(* 2S)) R5(+ R S)))
     (if(= LR 2) (setq R3(- R(* 0.5 S)) R4(- R(* 2S)) R5(- R S)))
    (setq P1(polar C AP1 R) P3(polar C AP1 R3) P5(polar C AP1 R5))
    (setq P2(polar C AP2 R) P4(polar C AP2 R4))
    (command "line" P1 P3 "") (command "line" P2 P4 "")
    (if(= JG 3) (command "circle" P5(* 0.1 S) ""))
    );end while
  (setq PB1 (polar C ACB R4) PE1(polar C ACE R4))
  (command "line" PB PB1 "") (command "line" PE PE1 "")
(set JG 0)
  (princ)
  );end yxp


刚刚入手LISP，程序是照着书上抄的，但是书上程序中有image控件，我没有打上去，因为没有图。

谢谢。