字符型变量转换成整型变量？求助

f5612140

指令行下先查查km是什么


!km

meflying

再仔细看看我6楼和9楼的话，记住，是仔细看。。。。。。。。。


(list_box哪儿来的第二列，第三列？？？你程序中没有使用atoi，当然会错！！！！在命令行输入我让你输的，看返回的是什么）


[U]重申，要仔细看，不要只看一点，就看几个字，每个字都要看，，，每个字都要看，每个字都要看，要看全了，明白吗？？？？？？？？？？？？？？？？？？[/U]

时尚青云

我还是把整个函数列出来吧，这才说的清楚 (defun kcz2()
(setq f1 (strcat path1 "cad/dcl/kcz"))
(setq f2 "kcz2")
(setq num1 (load_dialog f1))
(new_dialog f2 num1)
(action_tile "kc_num0" "(setq lx_num 0)(kcz_3)")
(action_tile "kc_num1" "(setq lx_num 1)(kcz_3)")
(action_tile "kc_num2" "(setq lx_num 2)(kcz_3)")
(action_tile "kc_num3" "(setq lx_num 3)(kcz_3)")
(action_tile "kc2" "(setq km $value)")
(action_tile "accept" "(done_dialog)(setq bz 1)")
(action_tile "cancel" "(done_dialog)(setq bz 0)")
(start_dialog)
(unload_dialog num1) (if (= bz 1)(progn
(setq file "d:/jcw1/yjb_jcp.dat")
(atoi km)
(setq km (1+ km)) :运行到此，出现：参数类型错误：numberp: 我试了，命令行输入（atoi km) 2

meflying

你是使用(atoi km)了，可使用后并没有将返回值赋给km，所以km的值并为改变，


需要这样(setq km (atoi km))


为什么原先写的程序不把这句写在里面，写一半出来让别人猜？

时尚青云

对话框文件如下： kcz2: dialog
{label = "删除块" ;
spacer_0;
:row{
:list_box {width=30;
key="kc1";
}
spacer_1;
:column {
spacer_1;
:radio_button {label="接触网平面布置图";key="kc_num0";width=6;}
:radio_button {label="接触网装配图";key="kc_num1";width=6;}
:radio_button {label="变电所一次图";key="kc_num2";width=6;}
:radio_button {label="变电所二次图";key="kc_num3";width=6;}
spacer_1;
}
spacer_1;
}
spacer_1;
ok_cancel;
is_default = true;}

时尚青云

我真笨呀，就是因为转换已后没给它重新赋值引起的。现在程序正确执行了。真是太谢谢你了。

yjrun

atoi

meflying

yjrun发表于2004-7-27 10:03:00atoi

不用把已经解决了的问题再翻出来回答一遍吧。。。如果你有新的讨论，可以跟一下，可上面的回答应该属于多余的吧