能写一个DCL文件
;;;以下LISP中的数，我想以对话框的形式输入：数A ，B， C，;;;高手能做一个给小弟试试，(觉得简单的话就帮小弟一下)
(defun c:err ()
(setq AA (getreal"\n数A"))
(setq BB (getreal"\n数B"))
(setq CC (getreal"\n数C"))
(setq DD (+(* AA BB) CC ))
(print (strcat "="(rtos DD 2 5)))
)
dhk: dialog{
label="对话框";
:column{
:edit_box{
label="A：";
key="s_a";
}
:edit_box{
label="B：";
key="s_b";
}
:edit_box{
label="C：";
key="s_c";
}
}
ok_cancel;
}
页:
[1]