zenghong 发表于 2006-11-24 23:53:00

能写一个DCL文件

<P><FONT size=2>;;;以下LISP中的数，我想以对话框的形式输入：数A ，B， C，</FONT></P>
<P><FONT size=2>;;;高手能做一个给小弟试试，(觉得简单的话就帮小弟一下)</FONT></P>
<P><FONT size=2>(defun c:err ()<BR>(setq AA (getreal"\n数A"))<BR>(setq BB (getreal"\n数B"))<BR>(setq CC (getreal"\n数C"))<BR>(setq DD (+(* AA BB) CC ))<BR>(print (strcat "="(rtos DD 2 5)))<BR>)</FONT></P>

leasson 发表于 2006-11-29 18:23:00

dhk: dialog{<BR>&nbsp;&nbsp;&nbsp;&nbsp; label="对话框";<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :column{<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :edit_box{<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label="A：";<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; key&nbsp; ="s_a";<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :edit_box{<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label="B：";<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; key&nbsp; ="s_b";<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :edit_box{<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label="C：";<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; key&nbsp; ="s_c";<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<BR>&nbsp;&nbsp;&nbsp;&nbsp; ok_cancel;<BR>&nbsp;&nbsp;&nbsp; }
页: [1]
查看完整版本: 能写一个DCL文件