[求助]怎么提示 参数太少
<p>dcl;</p><p>c_add:dialog {<br/>label="加法器";<br/>:text {<br/>label="先输入数据，然后单击等号";<br/> }<br/>:edit_box {<br/>label="加数";<br/>key="add_number";<br/>edit_limit=20;<br/>edit_width=5;<br/> }<br/>:edit_box {<br/>label="被加数";<br/>key="added_number";<br/>edit_limit=20;<br/>edit_width=5;<br/> }<br/>:boxed_row{<br/>label="结果";<br/>:button{<br/>label="=";<br/>key="=";<br/>fixed_width=true;<br/>width=3;<br/> }<br/>:edit_box{<br/>key="geted_number";<br/>edit_limit=20;<br/>edit_width=5;<br/> }<br/> }</p><p>ok_cancel;<br/> }</p><p>程序；</p><p><br/>(defun c:load_add(/dcl_id)<br/> (setq dcl_id(load_dialog "c_add.dcl"))<br/> (if(not(new_dialog"c_add" dcl_id))(exit))<br/> (ation_tile "=""(calculate)");当单击"="号时，调用calculate进行计算<br/> (start_dialog)<br/> (unload_dialog dcl_id)<br/> (princ)<br/>)<br/>(defun calculate()<br/> (setq a (atof(get_title"add_number")))<br/> (setq b (atof(get_title"added_number")))<br/> (setq c (+ a b))<br/> (setq f (rtos c 2 4))<br/> (set_tile "geted_number" f)<br/> )<br/> </p><p>总是提示参数太少 请高手指点</p><p></p>~ ~
<p>另外还有 能不用调用（load_dialog）把lisp 文件和dcl文件放置在一个文件里么？</p><p>贱人工具箱好像就是这样的~ ~</p><p>请高手指点</p> <p></p><p>用vlisp编辑器打开lsp源程序,如果是系统里的函数,那默认应该是蓝色显示的,黑色显示的函数如果是黑色的,而且又不是自定义的函数,那就是拼写有误,比如"get_title"就不是系统lisp函数.</p><p>想让lsp和dcl在一个文件中,需要编译一个vlx文件,步骤:vlisp->文件->生成应用程序->新建应用程序向导->专家->指定工程的位置和名称->在需要包含的lisp对话框中加入lsp文件->在需要包含的资源对话框中加入dcl文件->下一步...->完成. 生成的vlx文件中就包含了lsp的编译文件和dcl资源文件. 这个vlx文件给用户就可以了.</p>~ ~
<p>谢谢 </p><p>你真的很细心~ ~ </p> <p>支持！！</p><p>支持你，王咣生！！</p>
页:
[1]