龙龙仔帮帮忙

longshou

运行时总出现"错误:参数太多" (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 "accept" "(if (检查) (alert "输入有错!") (done_dialog 1))")
(setq what_next (start_dialog))
(unload_dialog index_value)
(if (= what_next 1) (xuanze))
(princ)
)

meflying

有你这样问的吗?


一个问题问两个人,就发两个帖???嫌论坛不够乱吗?

longshou

我大呢个你半天了,.你能帮我看看那个长许吗

citykunan

你的dcl呢？

longshou

这是DCL canshu:dialog{
label="齿 轮 参 数";
:boxed_row{
:column{
:boxed_column{
label="齿轮参数";
:edit_box{
label="齿 数z: ";
key="key_chi";
width=10;
fixed_width=true;
}

:edit_box{
label="顶高系数ha*: ";
key="key_ding";
width=10;
fixed_width=true;
}
:edit_box{
label="顶隙系数c*: ";
key="key_xi";
width=10;
fixed_width=true;
}
:edit_box{
label="压 力 角α: ";
key="key_jiao";
width=10;
fixed_width=true;
}
:popup_list{
label="模 数m(mm): ";
key="key_mo";
width=10;
list="1\n1.25\n1.5\n2\n2.5\n3\n4\n5\n6\n8\n10\n12\n16\n20\n25\n32\n40\n50";
multiple_select=true;
fixed_width=true;
}
}
}
:column{
:boxed_column{
label="其他尺寸";
:edit_box{
label="齿轮宽度B(mm): ";
key="key_kuan";
width=10;
fixed_width=true;
}
:edit_box{
label="轴孔直径D(mm): ";
key="key_kong";
width=10;
fixed_width=true;
}
fixed_height=true;
}
}
}

ok_cancel;
}

meflying

这好象是我给谁用来说明的例子,目的是把问题说清楚了,这个程序是不能使用的,如:


(if (检查) ...)这里的函数检查就是一个说明而已...楼主弄这种程序来问,有什么意义???


不是随便捡一点代码来就可以用的......

longshou

不好意思.我就是不止到怎么把判断函数加到里面去