[求助]：菜单定制

fyje

如何在Autocad主菜单中增加一菜单栏目

ll_j

最初由 fyje 发布
如何在Autocad主菜单中增加一菜单栏目

命令Menuload
在Menu Groups中加载菜单，在Menu Bar中定制菜单。

fyje

哦，那只是定制菜单，指定要显示的菜单项目
我的目的是：我要增加一列“其他”菜单，怎么增加呢？修改menu.mnu?

efan2000

对，可以看看帮助文件中的自定义手册，“第四章 -- 自定义菜单”下的“下拉菜单和快捷菜单”——“创建下拉菜单”。
如：
***POP13
**MYTOOLS    别名
M_Tools [&MyTools]    菜单栏标题
M_Save  [&Save\tCtrl+S]^C^C_qsave
        [--]
M_ShwTB [Show MyToolbar]^C^C_-toolbar mytools s
M_HidTB [Hide MyToolbar]^C^C_-toolbar mytools h
        [--]
M_EMenu [Edit MyMenu]^C^C^P(command"notepad"(findfile"my.mnu")) ^P
M_LMenu [Reload MyMenu]^C^C^P(command"_menu""my.mnu") ^P
        [--]
M_EPgp  [Edit PGP]^C^C^P(command"notepad"(findfile"acad.pgp")) ^P

M_LPgp  [Reload PGP]^C^C_re-init 16

无忧

以葫芦画瓢，修改acad.mnu文件，用wnindows的写字板就可以，如果有专门的编辑软件更加好(到下载中心找)，

fyje

ok,谢谢，看来，如果要用程序方法实现，就是打开这个文件，直接添加了？

梦断江南

我个人觉得还是不要编辑cad的原始菜单。另外做一个（按上面efan和无忧的方法），直接从
***pop11 写起，然后在cad中用 menuload 命令或者输入(menuload "aaa.mnu")加载 。注意如果文件名不带路径，文件需放在cad搜索目录中。

efan2000

给个示范。
ZYDS.mnu文件如下：

1. 
   
2.   [FONT=courier new]
   
3. ***MENUGROUP=ZYDS
   
4. ***POP1
   
5. **MN_DSXT
   
6. ID_DSXT      [电视线路设计(&S)]
   
7. ID_CSH         [初始化设置(&I)]^C^CCSH
   
8. ID_BTL         [标题栏(&B)]^C^CBTL
   
9.                [--]
   
10. ID_DL         [绘制电缆(&D)...]^C^CDL
    
11. ID_DLFJ        [绘制电缆附件(&D)]^C^CDLFJ
    
12. ID_FZQ        [绘制分支器...]^C^CFZQ
    
13. ID_FPQ        [绘制分配器...]^C^CFPQ
    
14. 
    
15. ***TOOLBARS
    
16. **TB_ZYDS
    
17. ID_ZYDS        [_Toolbar("电视线路设计", _Right, _Show, 0, 0, 1)]
    
18. ID_DL         [_Button("绘制电缆", "DL16","DL24")]^C^CDL
    
19. ID_FZQ        [_Button("绘制分支器", "FZQ16", "FZQ24")]^C^CFZQ
    
20. ID_FPQ        [_Button("绘制分配器", "FPQ16", "FPQ24")]^C^CFPQ
    
21.   [/FONT]
    

复制代码

mnl文件必须与mnu文件同名，ZYDS.mnl文件如下：

2. 
   
3.   [FONT=courier new]
   
4. (defun init-placemenu (/ CNT)
   
5.   (setq CNT 1)
   
6.   (while (< CNT 24)
   
7.     (if (menucmd (strcat "P" (itoa CNT) ".1=?"))
   
8.       (setq CNT (1+ CNT))
   
9.       (progn
   
10.         (if (> CNT 2)
    
11.           (setq CNT (- CNT 2))
    
12.           (setq CNT 2)
    
13.         )
    
14.         (menucmd (strcat "P" (itoa CNT) "=+ZYDS.pop1"))
    
15.         (setq CNT 25)
    
16.       )
    
17.     )
    
18.   )
    
19. )
    
20. 
    
21. (init-placemenu)
    
22.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun init-placemenu (/ CNT)<br />   (setq CNT 1)<br />   (while (< CNT 24)<br />     (if (menucmd (strcat "P" (itoa CNT) ".1=?"))<br />       (setq CNT (1+ CNT))<br />       (progn<br />         (if (> CNT 2)<br />           (setq CNT (- CNT 2))<br />           (setq CNT 2)<br />         )<br />         (menucmd (strcat "P" (itoa CNT) "=+ZYDS.pop1"))<br />         (setq CNT 25)<br />       )<br />     )<br />   )<br /> )<br /> <br /> (init-placemenu)<br />   [/FONT]<br />

菜单加载时，首先加载mnl文件，再加载mnu文件。
如果有多项下拉菜单，(menucmd (strcat "P" (itoa CNT) "=+ZYDS.pop1"))这一句，把其中的cnt，pop后的数字依次加1就可以了。

lpg

最多能加几条下拉菜单?

efan2000

最初由 lpg 发布
[B]最多能加几条下拉菜单? [/B]

一个下拉菜单最多可以达到499子菜单，通常情况下是达不到的。
如果过长而超出显示的话，系统会自动截去显示不到的菜单。