一个不知道那里出错的问题/

longshou

我运行下面一段程序，如果连续运行几次后就会在输入“key_jiao"的值时出现 “错误：程序出错：155878 ”有时还出现的数字是155577，请问这是怎么回事/ ;驱动程序1
(defun c:chilun()
(setq index_value (load_dialog "hello.dcl"))
(if (not (new_dialog "hello" index_value))
(exit)
)
(start_dialog)
(unload_dialog index_value)
(canshu)
(princ)
) ;驱动程序2
(defun canshu( / what_next index_value)
(setq index_value (load_dialog "canshu.dcl"))
(if (not (new_dialog "canshu" index_value))
(exit)
);end if
(action_tile "accept" "(getdata) (done_dialog 1)")
(action_tile "key_chi" "(chi)")
(action_tile "key_xi" "(xi)")
(action_tile "key_jiao" "(jiao)")
(action_tile "key_kuan" "(kuan)")
(setq what_next (start_dialog))
(unload_dialog index_value)
(if (= what_next 1) (panduan))
(princ)
) (defun chi()
(setq z (get_tile "key_chi"));获取齿数
(setq z (atoi z))
(if (or (and (/= 1.0 (rem z 2.0)) (/= 0.0 (rem z 2.0))) (< z 17))
(alert "齿数可能小于17或为非正整数"))
)
(defun xi()
(setq ha* (get_tile "key_ding"));获取顶高系数
(setq ha* (atof ha*))
(setq c* (get_tile "key_xi"));顶隙系数
(setq c* (atof c*))
(if (or (/= ha* 1.0) (/= c* 0.25))
(if (or (/= ha* 0.8) (/= c* 0.3)) (alert "系数ha*或c*不是标准值")))
)
(defun jiao()
(setq α (get_tile "key_jiao"));获取压力角
(setq α (atof α))
(if (/= 20 α) (alert "压力角不是标准值"))
)

(defun kuan()
(setq m (get_tile "key_mo"));获取模数
(setq m (atoi m))
(setq m (nth m'(1 1.25 1.5 2 2.5 3 4 5 6 8 10 12 16 20 25 32 40 50)))
(setq B (get_tile "key_kuan"));获取齿轮宽度
(setq B (atof B))
(if(< B (* 6 m)) (alert "齿轮宽度太小"))
)