[求助]两个几乎一样的程序，但后一个显示有错误stringp nil

zza12345

正确的程序 dcl_settings : default_dcl_settings { audit_level =3; }
cales :dialog{
label="计算";
:column{
:edit_box{ label="数据1"; key="key_a"; edit_width=10;}
:edit_box{ label="数据2"; key="key_b"; edit_width=10;}
:button{ label="计算"; key="key_c"; edit_width=6; fixed_width=true;}
:edit_box{ label="数据3"; key="key_d"; edit_width=10;}
}
ok_cancel;
} (defun c:cales ()
(IF (> (setq RETURN_VALUE (load_dialog "cales.dcl")) 0)
(IF (NEW_DIALOG "cales" RETURN_VALUE "") (PROGN
(action_tile "key_c" "(cal)")
(action_tile "accept" "(done_dialog 0)")
(action_tile "cancel" "(done_dialog 0)")
(start_dialog)
)
(unload_dialog RETURN_VALUE)
)
)
(princ)
) (defun cal ()
(setq A (atof (get_tile "key_a")))
(setq B (atof (get_tile "key_b")))
(setq D (* A B))
(set_tile "key_d" (rtos D 2 3))
)
我编的另个程序的一小段，运行后显示 错误: 参数类型错误: stringp nil dcl_settings : default_dcl_settings { audit_level =3; }
m1:dialog{
label="齿轮参数数据库";
:column{
:column{
:boxed_row{
label="参数输入";
:edit_box{ label="模数"; key="key_ms"; edit_width=6; }
:edit_box{ label="齿数"; key="key_cs"; edit_width=6; }
:button{ label="分度圆直径"; key="key_cal_DP"; edit_width=6; fixed_width=true; }
:edit_box{ label=""; key="key_DP"; edit_width=6; }
}

}
}
ok_cancel;
} (defun c:m1 ()
(IF (> (setq RETURN_VALUE (load_dialog "m1.dcl")) 0)
(IF (NEW_DIALOG "m1" RETURN_VALUE "")
(PROGN
(action_tile "key_cal_DP" "(cala)")
(action_tile "key_cale" "(cal2)")
(action_tile "accept" "(done_dialog 0)")
(action_tile "cancel" "(done_dialog 0)")
(start_dialog)
)
(unload_dialog RETURN_VALUE)
)
)
(princ) )
(defun cala ()
(setq M (atof (get_tile "key_ms")))
(setq Z (atof (get_tile "key_zs")))
(setq DP (* M Z))
(set_tile "key_DP" (rtos DP 2 3))
) 请问错在哪里了？ 几乎一样的程序啊？？？

meflying

做事情不能这么马虎的，，，看看这个：key_zs，什么错误自己找吧

zza12345

我老是粗心大意。。哎。。。郁闷

zza12345

谢谢大飞哥