[分享]：菜单加载工具，从多个菜单内指定一个置顶的主菜单。

841594

说明：
在cad中有时会加载多个菜单，除了“menu”命令调入的主菜单外，其余的是用“menuload”命令调入的。如bonus、用户自定菜单等，通常下拉菜单只显示主菜单的内容。
如果要把下拉菜单切换到另一个菜单文件，又不改变已经加载的菜单，需要先“menu”加载主菜单，再“menuload”逐个加载其他菜单，比较麻烦。
这个工具的功能是直接置顶指定菜单，同时保留已经加载的其它菜单。
用法：
($$_menuload menuname)
menuname: 要置顶的菜单文件名,如果当前还没有加载也没关系。

2. 
   
3.   [FONT=courier new]
   
4. ;;;得到目前加载的菜单名
   
5. ;;;        v1.0  - 2004.4.3
   
6. 
   
7. (defun $$_menu_group_file (/ lst menus each aco)
   
8.   (vl-load-com)
   
9.   (setq menus (vla-get-menugroups (vlax-get-acad-object)))
   
10.   (vlax-for each menus
    
11.     (setq
    
12.       lst (cons        (cons (vla-get-name each) (vla-get-menufilename each))
    
13.                 lst
    
14.           )
    
15.     )
    
16.   )
    
17.   (vlax-release-object menus)
    
18.   (reverse lst)
    
19. )
    
20. 
    
21. ;;菜单加载
    
22. ;;        v0.9- 2004.2.21        以点对表接受菜单组信息，大小写不敏感
    
23. 
    
24. (defun $$_menuload (menuname / lst1 x menufullname)
    
25.   (setvar "cmdecho" 0)
    
26. 
    
27.   (princ "\n菜单加载程序 v1.0 ")
    
28.   (setq lst1 ($$_menu_group_file))
    
29.   (gc)
    
30.   (cond
    
31.     ((and (setq        menufullname
    
32.                  (cdr
    
33.                    (assoc
    
34.                      (strcase menuname)
    
35.                      (mapcar
    
36.                        '(lambda (x) (cons (strcase (car x)) (cdr x)))
    
37.                        lst1
    
38.                      )
    
39.                    )
    
40.                  )
    
41.           )
    
42.           (/= menufullname "")
    
43.      )
    
44.      (vl-cmdf "menu" menufullname)
    
45.     )
    
46.     ((or (findfile (strcat menuname ".mnu"))
    
47.          (findfile (strcat menuname ".mnc"))
    
48.      )
    
49.      (vl-cmdf "menu" menuname)
    
50.     )
    
51.     (1 (princ (strcat "\n菜单 " menuname " 没有找到. ")))
    
52.   )
    
53.   (foreach x lst1
    
54.     (or        (menugroup (car x))
    
55.         (not (cdr x))
    
56.         (vl-cmdf "menuload" (cdr x))
    
57.     )
    
58.   )
    
59.   (princ)
    
60. )
    
61. 
    
62.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;得到目前加载的菜单名<br /> ;;;        v1.0  - 2004.4.3<br /> <br /> (defun $$_menu_group_file (/ lst menus each aco)<br />   (vl-load-com)<br />   (setq menus (vla-get-menugroups (vlax-get-acad-object)))<br />   (vlax-for each menus<br />     (setq<br />       lst (cons        (cons (vla-get-name each) (vla-get-menufilename each))<br />                 lst<br />           )<br />     )<br />   )<br />   (vlax-release-object menus)<br />   (reverse lst)<br /> )<br /> <br /> ;;菜单加载<br /> ;;        v0.9- 2004.2.21        以点对表接受菜单组信息，大小写不敏感<br /> <br /> (defun $$_menuload (menuname / lst1 x menufullname)<br />   (setvar "cmdecho" 0)<br /> <br />   (princ "\n菜单加载程序 v1.0 ")<br />   (setq lst1 ($$_menu_group_file))<br />   (gc)<br />   (cond<br />     ((and (setq        menufullname<br />                  (cdr<br />                    (assoc<br />                      (strcase menuname)<br />                      (mapcar<br />                        '(lambda (x) (cons (strcase (car x)) (cdr x)))<br />                        lst1<br />                      )<br />                    )<br />                  )<br />           )<br />           (/= menufullname "")<br />      )<br />      (vl-cmdf "menu" menufullname)<br />     )<br />     ((or (findfile (strcat menuname ".mnu"))<br />          (findfile (strcat menuname ".mnc"))<br />      )<br />      (vl-cmdf "menu" menuname)<br />     )<br />     (1 (princ (strcat "\n菜单 " menuname " 没有找到. ")))<br />   )<br />   (foreach x lst1<br />     (or        (menugroup (car x))<br />         (not (cdr x))<br />         (vl-cmdf "menuload" (cdr x))<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />   [/FONT]<br />

zjqtc

太好了，我正需要呢！

eachy

最初由 841594 发布
[B]说明：
在cad中有时会加载多个菜单，除了“menu”命令调入的主菜单外，其余的是用“menuload”命令调入的。如bonus、用户自定菜单等，通常下拉菜单只显示主菜单的内容。
如果要把下拉菜单切换到另一个菜单文件，又... [/B]

POP 菜单还能位置保留吗？

陌生人

我更喜欢在设置里面用不同的菜单配置。

841594

eachy:
添加的pop菜单位置不能自动保留，要实现这个功能，可以在对应的mnl文件里添加相应的语句，就像晓东工具箱一样。