[求助]怎么提示 参数太少

luntanbim

dcl;

c_add:dialog {
label="加法器";
:text {
label="先输入数据，然后单击等号";
      }
:edit_box {
label="加数";
key="add_number";
edit_limit=20;
edit_width=5;
          }
:edit_box {
label="被加数";
key="added_number";
edit_limit=20;
edit_width=5;
          }
:boxed_row{
label="结果";
:button{
label="=";
key="=";
fixed_width=true;
width=3;
       }
:edit_box{
key="geted_number";
edit_limit=20;
edit_width=5;
         }
          }

ok_cancel;
               }

程序；

(defun c:load_add(/dcl_id)
     (setq dcl_id(load_dialog "c_add.dcl"))
     (if(not(new_dialog"c_add" dcl_id))(exit))
     (ation_tile "=""(calculate)");当单击"="号时，调用calculate进行计算
     (start_dialog)
     (unload_dialog dcl_id)
     (princ)
)
(defun calculate()
  (setq a (atof(get_title"add_number")))
  (setq b (atof(get_title"added_number")))
  (setq c (+ a b))
  (setq f (rtos c 2 4))
  (set_tile "geted_number" f)
  )
 

总是提示参数太少 请高手指点

luntanbim

另外还有 能不用调用（load_dialog）把lisp 文件和dcl文件放置在一个文件里么？

贱人工具箱好像就是这样的~ ~

请高手指点

王咣生

用vlisp编辑器打开lsp源程序,如果是系统里的函数,那默认应该是蓝色显示的,黑色显示的函数如果是黑色的,而且又不是自定义的函数,那就是拼写有误,比如"get_title"就不是系统lisp函数.

想让lsp和dcl在一个文件中,需要编译一个vlx文件,步骤:vlisp->文件->生成应用程序->新建应用程序向导->专家->指定工程的位置和名称->在需要包含的lisp对话框中加入lsp文件->在需要包含的资源对话框中加入dcl文件->下一步...->完成. 生成的vlx文件中就包含了lsp的编译文件和dcl资源文件. 这个vlx文件给用户就可以了.

luntanbim

谢谢

你真的很细心~ ~

zctao1966

支持！！

支持你，王咣生！！