照着例题编的都不能运行？？

zhpxxx

我正在学习autolisp程序
参考手头上一份赵景亮的教材做练习
但是完全按照书上的一个绘制圆型的例子做了一遍，就是不能运行！？
已经检查多次没有看到错误 囧
希望高手指点指点！！急！！
现简单情况介绍如下：
新建名为main.dcl的文件，代码为：
yuan:dialog{
label="绘制圆";
initial_focus="x";
:row{
:image{
width=30;
height=8;
key="img_cr";
color=-2;
}
:boxed_column{
label="几何数据";
:edit_box{
label="圆心&X(mm):";
edit_width=8;
key="X";
value="50";
}
:edit_box{
label="圆心&Y(mm):";
width=8;
mnemonic="Y";
key="Y";
value="50";
}
:edit_box{
label="半径&R(mm):";
width=8;
mnemonic="R";
key="R";
value="10";
}
}
}
ok_cancel;
}
然后再建名为main.lsp的文件，代码为：
(defun act()
(setq x (atof (get_tile "X")))
(setq y (atof (get_tile "Y")))
(setq r (atof (get_tile "R")))
)
(defun c:circ(/ x y r id x1 y1)
(setq sdt 0)
(setq id (load_dialog "main"))
(if (< id 0) (exit))
(setq X 50.0 Y 50 R 25)
(if (not (new_dialog "yuan" id)) (exit))
(setq x1 (dimx_tile "img_cr"))
(setq y1 (dimy_tile "img_cr"))
(start_image "img_cr")
(slide_image 0 0 x1 y1 "circ")
(end_image)
(set_tile "X" (rtos X 2 2))
(set_tile "Y" (rtos Y 2 2))
(set_tile "R" (rtos R 2 2))
(action_tile "accept" "(act) (done_dialog 1)")
(action_tile "cancel" "(done_dialog -1)")
(setq sdt (start_dialog))
(unload_dialog id)
(if (> sdt 0)
(command "circle" (list x y) r)
)
(princ)
)
然后在CAD中 >>工具>>autolisp>>加载，加载main.lsp文件（提示加载成功），最后在命令行中输入命令circ，但是程序没有运行而是提示; 错误: quit / exit abort
这事怎么回事啊？
急切盼望高手指点迷津！！

zhpxxx

大家快来帮帮我啊～

郁闷得要死了………………

龙龙仔

DCL檔要放在尋找路徑上