急！！！请帮忙解答一下

apple327

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

meflying

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

apple327

对不起，怪我没说清楚
***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

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

apple327