遍历菜单下的所有命令

slyrabbit

菜单下的所有命令我想让程序自动遍历一遍，有什么方法啊？

ZZXXQQ

直接将命令写到一个程序中，运行这个程序。

slyrabbit

是要把所有命令都手动写到一个程序中吗？有什么办法自动遍历吗？

xsso

基本上不会有人研究怎么去遍历命令吧！挺多余的

slyrabbit

对我来说确实很有必要啊，我主要是想验证二次开发的所有功能是否都能正常执行，如果把所有命令都写到程序中，就算执行后所有命令都正常，也不能保证菜单命令就是正常的啊，主要是不想手动一个一个点。嘿嘿。

fl202

你的所有功能都自动执行吗？不需要输入参数或者选点等等的？

ZZXXQQ

看下MENUCMD函数。

slyrabbit

ZZXXQQ 发表于 2013-7-5 20:19
看下MENUCMD函数。

谢谢您的指点，我看了menucmd函数的说明，用P0--P16就可以得到菜单命令了，那如果我想得到面板式菜单命令呢？

Gu_xl

1. ;;(gxl-ListAllMenuPops MenuGroupName) 返回菜单组所有的命令
   
2. ;;(gxl-ListAllMenuPops "ACAD")
   
3. (defun gxl-ListAllMenuPops (menugroupname / menus dl MenuPopList itemsMenuPop item1)
   
4.   (defun itemsMenuPop (itemMenuPop / item1)
   
5.     (vlax-for item itemMenuPop
   
6.       (if (VL-CATCH-ALL-ERROR-P
   
7.               (setq item1
   
8.                      (VL-CATCH-ALL-APPLY 'vla-get-SubMenu (list item))
   
9.               )
   
10.             )
    
11.         (if (/= "" (setq label (vla-get-label item)))
    
12.         (setq dl (cons (list (strcase label) ;_ 菜单名称
    
13.                              (vl-string-trim
    
14.                                "\003 "
    
15.                                (strcase (vla-get-Macro item))
    
16.                              ) ;_ 命令名称
    
17.                        )
    
18.                        dl
    
19.                  )
    
20.         )
    
21.           )
    
22.         (itemsMenuPop item1)
    
23.       )
    
24.       )
    
25.     )
    
26.                        
    
27.   (setq        menus (vla-get-Menus
    
28.                 (vla-item (vla-get-menugroups (vlax-get-acad-object))
    
29.                           menugroupname
    
30.                 )
    
31.               )
    
32.   )
    
33.   (vlax-for MenuPop menus
    
34.     (setq dl nil)
    
35.     (vlax-for item MenuPop
    
36.       (setq aa item)
    
37.       (if (VL-CATCH-ALL-ERROR-P
    
38.             (setq item1 (VL-CATCH-ALL-APPLY 'vla-get-SubMenu (list item)))
    
39.           )
    
40.         (if (/= "" (setq label (vla-get-label item)))
    
41.         (setq dl (cons (list (strcase label) ;_ 菜单名称
    
42.                              (vl-string-trim
    
43.                                "\003 "
    
44.                                (strcase (vla-get-Macro item))
    
45.                              ) ;_ 命令名称
    
46.                        )
    
47.                        dl
    
48.                  )
    
49.         )
    
50.           )
    
51.         (itemsMenuPop item1)
    
52.       )
    
53.     )
    
54.     (setq MenuPopList
    
55.            (cons
    
56.              (cons (vla-get-NameNoMnemonic MenuPop) (reverse dl))
    
57.              MenuPopList
    
58.            )
    
59.     )
    
60.   )
    
61.   (reverse MenuPopList)
    
62. )
    

;;(gxl-ListAllMenuPops MenuGroupName) 返回菜单组所有的命令<br /> ;;(gxl-ListAllMenuPops "ACAD")<br /> (defun gxl-ListAllMenuPops (menugroupname / menus dl MenuPopList itemsMenuPop item1)<br />   (defun itemsMenuPop (itemMenuPop / item1)<br />     (vlax-for item itemMenuPop<br />       (if (VL-CATCH-ALL-ERROR-P<br />               (setq item1<br />                      (VL-CATCH-ALL-APPLY 'vla-get-SubMenu (list item))<br />               )<br />             )<br />         (if (/= "" (setq label (vla-get-label item)))<br />         (setq dl (cons (list (strcase label) ;_ 菜单名称<br />                              (vl-string-trim<br />                                "\003 "<br />                                (strcase (vla-get-Macro item))<br />                              ) ;_ 命令名称<br />                        )<br />                        dl<br />                  )<br />         )<br />           )<br />         (itemsMenuPop item1)<br />       )<br />       )<br />     )<br />                        <br />   (setq        menus (vla-get-Menus<br />                 (vla-item (vla-get-menugroups (vlax-get-acad-object))<br />                           menugroupname<br />                 )<br />               )<br />   )<br />   (vlax-for MenuPop menus<br />     (setq dl nil)<br />     (vlax-for item MenuPop<br />       (setq aa item)<br />       (if (VL-CATCH-ALL-ERROR-P<br />             (setq item1 (VL-CATCH-ALL-APPLY 'vla-get-SubMenu (list item)))<br />           )<br />         (if (/= "" (setq label (vla-get-label item)))<br />         (setq dl (cons (list (strcase label) ;_ 菜单名称<br />                              (vl-string-trim<br />                                "\003 "<br />                                (strcase (vla-get-Macro item))<br />                              ) ;_ 命令名称<br />                        )<br />                        dl<br />                  )<br />         )<br />           )<br />         (itemsMenuPop item1)<br />       )<br />     )<br />     (setq MenuPopList<br />            (cons<br />              (cons (vla-get-NameNoMnemonic MenuPop) (reverse dl))<br />              MenuPopList<br />            )<br />     )<br />   )<br />   (reverse MenuPopList)<br /> )<br />

slyrabbit

非常感谢G版主的详细代码