求助飞哥，菜单自动加载

kgd4510

也是有点道理，菜单这一名词解释都尚未理解，还改别人的程序？楼主的思维很超前。万丈高楼从底起。兄弟慢慢来吧。菜单就是你的视窗里面那些可见的图标统称为菜单，如：文件--编辑----查看----收藏----......


在文件里面还有一些选项：新建---打开---保存等，这些称为下拉菜单。

meflying

楼上误会了,再看看,改程序的和问菜单的不是同一人

userzhl

我想问一下，DCL、MNS文件是用什么软件制作的？

sandy2002

DCL是对话框文件，MNS是MNU菜单文件加载后自动产生的

userzhl

谢谢16楼！！非常的感谢！！！

sandy2002

在(action_tile ...)后面加上一句：(done_dialog)就可以了。

(DEFUN C:y(/)
(SETQ DCL_ID (LOAD_DIALOG "zz.DCL") )
(NEW_DIALOG "zz" DCL_ID)
(actIon_tile "RECT_A" "(done_dialog 1)")
(actIon_tile "RECT_B" "(done_dialog 2)")
(actIon_tile "RECT_C" "(done_dialog 3)")
(actIon_tile "RECT_D" "(done_dialog 4)")
(setq next (START_DIALOG))

 (UNLOAD_DIALOG DCL_ID)
(cond ((= next 1) (C:xx))
          ((= next 2) (C:cc))
          ((= next 3) (C:g1))
          ((= next 4) (C:g2))

)

)

后面的程序自己加吧