能写一个DCL文件

zenghong

;;;以下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)))
)

leasson

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;
    }