[求助]用menuload命令加载菜单时仅显示工具栏不显示菜单

qhdlhs

菜单文件cf.mnu的内容如下：

//菜单文件开始

//一、定义菜单组的名称 //
***MENUGROUP=BENHAI

//二、下面定义菜单栏

//定义BENHAI菜单组的第一个下拉菜单：编号为POP1，ID为ID_H10BENHAI ,菜单名称为“奔海软件”，键盘操作方式名为ALT+B
***POP1
ID_H10BENHAI [奔海软件(&B)]

//定义下拉菜单项的第一个菜单命令：ID编号为ID_H10CF
//菜单名称为“图层反关”，键盘操作方式为ALT+T，所执行的宏命令为CF。
ID_H10CF [层反关(&F)] ^C^C_CF
ID_H10CQ [层全开(&Q)] ^C^C_CQ
ID_H10CG [层关闭(&G)] ^C^C_CG

//如要不显示某菜单栏，则在该菜单定义语句前添加“//”号将其屏蔽。


//如该工具有多种类型功能，则可添加多个下拉菜单项，如***POP2
//如该工具具有同种类型的不同命令，则不宜添加主菜单项，应在同一菜单项中添加菜单命令，或添加子菜单即可。

//三、下面定义工具栏
***TOOLBARS=BENHAI

//定义第一个工具条:工具条名称名称为“奔海软件”，初始状态为浮动，打开，位置在90，110,1
**TB_H10_BENHAI_TOOLBAR
ID_H10BENHAI [_Toolbar("奔海软件", _Floating, _show,90,110,1)]

//定义本工具条下的一个按钮：名字为“层反关”，按钮大图标CF16.bmp，小图标ARCL24.bmp，按钮执行
//的命令为CF
ID_H10CF_Button [_Button("层反关", "support\CF16.bmp","CF24.bmp")]^C^C_CF
ID_H10CQ_Button [_Button("层全开", "support\CQ16.bmp","CQ24.bmp")]^C^C_CQ
ID_H10CG_Button [_Button("层关闭", "support\CG16.bmp","CG24.bmp")]^C^C_CG

//四、指定命令的提示信息
***HELPSTRINGS

//命令CF的提示信息为：除了已选物体所在的层外，其它层均关闭.
ID_H10CF [除了已选物体所在的层外，其它层均关闭]
ID_H10CQ [开启所有层]
ID_H10CG [关闭已选物体所在的层]


//菜单文件结束

！！！！问题：
1） 在cad2006中，运行menuload命令，出现菜单加载对话框，加载cf.mnu文件，菜单和工具栏均出现，
但是我想用lisp程序加载，用(command "menuload" "cf")命令加载时，仅出现工具栏，不出现菜单。请问高人为什么？

2） 还有再次运行(command "menuload" "cf")命令时，出现下面内容：

命令: (command "menuload" "CF")
无法加载自定义文件: CF
该自定义组的名称已存在。
nil
输入要加载的自定义文件的名称: *取消*

cad不允许重复加载，那么请问我如何判断cf.mnu文件（文件内的菜单名为：BENHAI）已经加载?

Andyhon

(menugroup "BENHAI")

szlmh

顶顶顶顶顶顶顶顶顶顶顶顶顶●●●●●●●●●●●●●顶顶顶
顶顶●●●●●●●●●●顶顶顶顶顶●●●●●顶顶顶顶顶顶顶
顶●●●●●●●●●●●顶顶顶顶顶顶●●●顶顶顶顶顶顶顶顶
顶顶顶●●●●●●●顶顶顶顶顶顶顶顶●●●顶顶顶顶顶顶顶顶
顶顶顶顶顶顶●●●顶顶顶顶顶顶顶●●●●●●●●●顶顶顶顶
顶顶顶顶顶顶●●●顶顶顶顶顶●●●●●●●●●●●顶顶顶顶
顶顶顶顶顶顶●●●顶顶顶顶●●●●●顶顶顶顶●●●●顶顶顶
顶顶顶顶顶顶●●●顶顶顶顶●●●●顶顶顶顶顶顶●●●顶顶顶
顶顶顶顶顶顶●●●顶顶顶顶●●●顶顶●●●顶顶●●●顶顶顶
顶顶顶顶顶顶●●●顶顶顶顶●●●顶顶●●●顶顶●●●顶顶顶
顶顶顶顶顶顶●●●顶顶顶顶●●●顶顶●●●顶顶●●●顶顶顶
顶顶顶顶顶顶●●●顶顶顶顶●●●顶顶●●●顶顶●●●顶顶顶
顶顶顶顶顶顶●●●顶顶顶顶●●●顶顶●●●顶顶●●●顶顶顶
顶顶顶顶顶顶●●●顶顶顶顶●●●顶顶●●●顶顶●●●顶顶顶
顶●●顶顶●●●●顶顶顶顶顶顶顶顶●●●●●●顶顶顶顶顶顶
顶●●●●●●●●顶顶顶顶顶顶顶●●●●顶●●●●顶顶顶顶
顶顶●●●●●●●顶顶顶顶顶顶●●●●顶顶顶●●●●顶顶顶
顶顶顶●●●●●●顶顶顶顶顶●●●●●顶顶顶顶●●●●顶顶
顶顶顶顶顶●●●顶顶顶顶顶●●●●●顶顶顶顶顶顶●●●●顶
顶顶顶顶顶顶顶顶顶顶顶顶●●●●●顶顶顶顶顶顶顶顶●●●●
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

英雄无敌

(if (/= (findfile "a.mnu") nil)
    (if (= (menugroup "aa") nil)
      (progn (command "menuload" "a.mnu")
      (menucmd "P9=+aa.POP1")
     
      )
    )
  )
aa是MENU的组名。

gcho

英雄无敌 发表于 2010-7-30 17:27
(if (/= (findfile "a.mnu") nil)    (if (= (menugroup "aa") nil)  &nbsp ...

//定义第一个工具条:工具条名称名称为“奔海软件”，初始状态为浮动，打开，位置在90，110,1
**TB_H10_BENHAI_TOOLBAR
ID_H10BENHAI [_Toolbar("奔海软件", _Floating, _show,90,110,1)]

这个位置 90，110,1  是怎么算的啊，谢谢！

野狼谷/〈M〉

还不会，等得更加详细的案例

cuyongping

野狼谷/〈M〉 发表于 2013-1-27 15:26
还不会，等得更加详细的案例

支持！呵呵

cuyongping

支持！呵呵

lish

学习了！！！！！！！！！！！！