- UID
- 54298
- 积分
- 0
- 精华
- 贡献
-
- 威望
-
- 活跃度
-
- D豆
-
- 在线时间
- 小时
- 注册时间
- 2003-5-31
- 最后登录
- 1970-1-1
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
菜单文件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)已经加载? |
|