急！！！请帮忙解答一下

apple327 · 发表于 2003-4-9 16:08:00

为什么把程序加到菜单的后，用菜单调用程序时，会跳出menuload的菜单。。。。。

meflying · 发表于 2003-4-9 16:52:00

不明白你的意思，比如说，menuload是加载菜单的命令，"menuload的菜单"是什么意思？[br]

apple327 · 发表于 2003-4-10 12:08:00

对不起，怪我没说清楚
***menugroup=mylisp2
***pop1
[apple2]
[3+2] ^C^C^p (load "dcl_demo")(dcl_demo)菜单程序
/dcl_demo.dcl
dcl_demo1 : dialog {
label = "我的对话框" ;
: radio_button {
   key = "my_radio";
   label = "我是单选钮 radio_button";
}
: toggle {
key = "my_toggle";
label = "我是复选框 toggle";
}
: button {
   key = "my_button";
   label = "我是apple button";
   is_default = true;
}
: edit_box {
   key = "my_editbox";
   label = "右边是编辑框 edit_box";
}
: image {
   key = "my_image";
   height = 5 ;
   aspect_ratio = 1.5;
   fixed_height = true;
   fixed_width = true;
   color = -2;
}
: slider {
   key = "my_slider";
   layout = "horizontal";
   max_value = 100;
   min_value = 1;
   value = 50;
}
: text {
key = "my_text";
label = "***我是标签***";
}
: image_button {
key = "my_image_button";
height = 5;
aspect_ratio = 1.5;
fixed_height = true;
fixed_width = true;
color = -2;
}
: popup_list {
key = "my_popup";
label = "右边是下拉列表 popup_list";
list = "列表选项 1\n列表选项 2\n列表选项 3 ";
edit_width = 12;
}
: list_box {
key = "my_list";
label = "下面是列表框 list_box";
list = "列表内容 1\n列表内容 2 ";
height = 5;
}
}；对话框程序
;dcl_demo.lsp
(defun c:dcl_demo ()
  (setq dcl_id (load_dialog "dcl_demo.dcl") )
  (if (not (new_dialog "dcl_demo1" dcl_id) )(exit) )
  (setq x1 (dimx_tile "my_image")
      y1 (dimy_tile "my_image")
      )
  (start_image "my_image")
  (slide_image 0 0 x1 y1 "image1")
  (end_image)
  (setq x2 (dimx_tile "my_image_button")
      y2 (dimx_tile "my_image_button")
      )
  (start_image "my_image_button")
(slide_image 0 0 x2 y2 "image")
  (end_image)
  (action_tile "my_button" " (done_dialog) ")
  (start_dialog)
  (unload_dialog dcl_id)
  )；调用对话框程序
我用menuload把菜单程序加载进去，本来点击菜单上的apple2会跳出对话框的，可是他去跳出了menuload，高手救命啊！！！！！

meflying · 发表于 2003-4-10 14:48:00

[3+2] ^C^C^p (load "dcl_demo")(dcl_demo)菜单程序
改为：
[3+2]^C^C(load "dcl_demo.lsp");dcl_demo
首先，不可以随便添加空格，两个命令或动作之间如要用回车用“；”，一般也可以用空格代替。用(defun c:xxx()定义的命令直接调用，而不需加括号，最后的“菜单程序”不知为何意思？
还有，你的对话框文件也有错误，自己查找。

急！！！请帮忙解答一下

发表回复

精选推荐