CAD菜单工具 vs 天正菜单

不一样地设计

不错的 菜单，还可以定制，解决了我的问题！感谢！

wyl605

谁发一个做好了工具箱试试看

sdbaijiao

谢谢楼主的分享，好像很强。下来试试

csu911

确实强大，收藏了。

yaokui25

楼主您好。
从最新上传文件内容来看，时间都是·2015年2月份的？您所说的:
2015-5-5号，修复07以上修复提示错误、图标不能正确显示错误
从时间上看不对啊.

旺远镜里画世界

只是个UI，实用功能没有加上

elitefish

楼主的菜单做的不错,借楼主的插件做了个[信·CAD]工具箱的适配，可以自动生成工具箱的相应菜单
附上适配源码

2. (defun mMenu:subMenu (subList mMenu bSpace
   
3.           /
   
4.           subMenu
   
5.           )
   
6.   (setq subList (cdr (assoc "SUBLIST" subList)))
   
7.   (while subList
   
8.     (setq subMenu (car subList)
   
9.     subList (cdr subList)
   
10.     )
    
11.     (cond
    
12.     ;菜单
    
13.     ((= (cdr (assoc "TYPE" subMenu)) "MENU")
    
14.          (progn
    
15.      (if (not bSpace) (progn (write-line "\t[--]" mMenu) (setq bSpace T)))
    
16.      (mMenu:subMenu subMenu mMenu bSpace)
    
17.      )
    
18.          )
    
19. 
    
20.     ;命令
    
21.     ((= (cdr (assoc "TYPE" subMenu)) "COMMAND")
    
22.      (progn
    
23.        (write-line (strcat "\t[" (cdr (assoc "NAME" subMenu)) "]"
    
24.          "^C^C"
    
25.          (apply '7Xin:CMDKernelName (cdr (assoc "COMMAND" subMenu)))
    
26.          )
    
27.          mMenu)
    
28.        (setq bSpace nil)
    
29.        )
    
30.      )
    
31. 
    
32.     ((= (cdr (assoc "TYPE" subMenu)) "SPACER")
    
33.      (if (not bSpace) (progn (write-line "\t[--]" mMenu) (setq bSpace T)))
    
34.      )
    
35.     )
    
36.     )
    
37.   )
    
38. 
    
39. (defun mMenu:MainMenu ( /
    
40.            mMenu
    
41.            lstMenu
    
42.            subMenu
    
43.            cmd
    
44.            )
    
45.   (if (setq mMenu (findfile "mMenu.Mnu"))
    
46.     (progn
    
47.       (setq mMenu (open mMenu "w"))
    
48.       (write-line "***menugroup=信·CAD" mMenu)
    
49.       (setq lstMenu (cdr (assoc "SUBLIST" 7Xin::MenuList)))
    
50.       (while lstMenu
    
51.   (setq subMenu (car lstMenu)
    
52.         lstMenu (cdr lstMenu)
    
53.         )
    
54.   (cond
    
55.     ;子菜单
    
56.     ((= (cdr (assoc "TYPE" subMenu)) "MENU")
    
57.          (progn
    
58.      (write-line "***POP1" mMenu)
    
59.      (write-line (strcat "[" (cdr (assoc "NAME" subMenu)) "]") mMenu)
    
60.      (mMenu:subMenu subMenu mMenu nil)
    
61.      (write-line "" mMenu)
    
62.      )
    
63.          )
    
64. 
    
65.     ;根菜单命令
    
66.     ((= (cdr (assoc "TYPE" subMenu)) "COMMAND")
    
67.      (progn
    
68.        (write-line "***POP1" mMenu)
    
69.        ;(write-line (strcat "[" (cdr (assoc "NAME" subMenu)) "]") mMenu)
    
70.        (write-line (strcat "[" (cdr (assoc "NAME" subMenu)) "]"
    
71.          "^C^C"
    
72.          (apply '7Xin:CMDKernelName (cdr (assoc "COMMAND" subMenu)))
    
73.          )
    
74.          mMenu)
    
75.        )
    
76.      (write-line "" mMenu)
    
77.      )
    
78. 
    
79.     ((= (cdr (assoc "TYPE" subMenu)) "SPACER")
    
80.      )
    
81.     )
    
82.   )
    
83.       (write-line "***POP1" mMenu)
    
84.       (write-line "[更新CAD菜单]^C^CEF_MAKECADMENU" mMenu)
    
85.       (write-line "***POP500" mMenu)
    
86.       (close mMenu)
    
87.       )
    
88.     )
    
89.   )
    
90. 
    
91. ;生成CAD菜单
    
92. (defun C:EF_MakeCADMenu ()
    
93.   (mMenu:MainMenu)  ;生成菜单
    
94.   ;尝试卸载插件
    
95.   (vl-catch-all-apply 'arxunload (list "MMenu.arx"))
    
96.   (vl-catch-all-apply 'arxunload (list "MMenu_x64.arx"))
    
97.   (setq 7Xin::Loaded (vl-remove "[CAD]CAD菜单" 7Xin::Loaded))
    
98.   (7Xin:LoadPlugin "[CAD]CAD菜单")
    
99.   )
    

(defun mMenu:subMenu (subList mMenu bSpace<br />           /<br />           subMenu<br />           )<br />   (setq subList (cdr (assoc "SUBLIST" subList)))<br />   (while subList<br />     (setq subMenu (car subList)<br />     subList (cdr subList)<br />     )<br />     (cond<br />     ;菜单<br />     ((= (cdr (assoc "TYPE" subMenu)) "MENU")<br />          (progn<br />      (if (not bSpace) (progn (write-line "\t[--]" mMenu) (setq bSpace T)))<br />      (mMenu:subMenu subMenu mMenu bSpace)<br />      )<br />          )<br /> <br />     ;命令<br />     ((= (cdr (assoc "TYPE" subMenu)) "COMMAND")<br />      (progn<br />        (write-line (strcat "\t[" (cdr (assoc "NAME" subMenu)) "]"<br />          "^C^C"<br />          (apply '7Xin:CMDKernelName (cdr (assoc "COMMAND" subMenu)))<br />          )<br />          mMenu)<br />        (setq bSpace nil)<br />        )<br />      )<br /> <br />     ((= (cdr (assoc "TYPE" subMenu)) "SPACER")<br />      (if (not bSpace) (progn (write-line "\t[--]" mMenu) (setq bSpace T)))<br />      )<br />     )<br />     )<br />   )<br /> <br /> (defun mMenu:MainMenu ( /<br />            mMenu<br />            lstMenu<br />            subMenu<br />            cmd<br />            )<br />   (if (setq mMenu (findfile "mMenu.Mnu"))<br />     (progn<br />       (setq mMenu (open mMenu "w"))<br />       (write-line "***menugroup=信·CAD" mMenu)<br />       (setq lstMenu (cdr (assoc "SUBLIST" 7Xin::MenuList)))<br />       (while lstMenu<br />   (setq subMenu (car lstMenu)<br />         lstMenu (cdr lstMenu)<br />         )<br />   (cond<br />     ;子菜单<br />     ((= (cdr (assoc "TYPE" subMenu)) "MENU")<br />          (progn<br />      (write-line "***POP1" mMenu)<br />      (write-line (strcat "[" (cdr (assoc "NAME" subMenu)) "]") mMenu)<br />      (mMenu:subMenu subMenu mMenu nil)<br />      (write-line "" mMenu)<br />      )<br />          )<br /> <br />     ;根菜单命令<br />     ((= (cdr (assoc "TYPE" subMenu)) "COMMAND")<br />      (progn<br />        (write-line "***POP1" mMenu)<br />        ;(write-line (strcat "[" (cdr (assoc "NAME" subMenu)) "]") mMenu)<br />        (write-line (strcat "[" (cdr (assoc "NAME" subMenu)) "]"<br />          "^C^C"<br />          (apply '7Xin:CMDKernelName (cdr (assoc "COMMAND" subMenu)))<br />          )<br />          mMenu)<br />        )<br />      (write-line "" mMenu)<br />      )<br /> <br />     ((= (cdr (assoc "TYPE" subMenu)) "SPACER")<br />      )<br />     )<br />   )<br />       (write-line "***POP1" mMenu)<br />       (write-line "[更新CAD菜单]^C^CEF_MAKECADMENU" mMenu)<br />       (write-line "***POP500" mMenu)<br />       (close mMenu)<br />       )<br />     )<br />   )<br /> <br /> ;生成CAD菜单<br /> (defun C:EF_MakeCADMenu ()<br />   (mMenu:MainMenu)  ;生成菜单<br />   ;尝试卸载插件<br />   (vl-catch-all-apply 'arxunload (list "MMenu.arx"))<br />   (vl-catch-all-apply 'arxunload (list "MMenu_x64.arx"))<br />   (setq 7Xin::Loaded (vl-remove "[CAD]CAD菜单" 7Xin::Loaded))<br />   (7Xin:LoadPlugin "[CAD]CAD菜单")<br />   )<br />

mochaolong

elitefish 发表于 2015-5-20 18:46
楼主的菜单做的不错,借楼主的插件做了个[信·CAD]工具箱的适配，可以自动生成工具箱的相应菜单
附上适配 ...

倒三角不应该有灰色底，可能是你菜单文件编辑的原因，把菜单文件上传或是发给我，我给你看看。

阡陌客

这么好的工具，必须给赞！谢谢楼主!

elitefish

mochaolong 发表于 2015-5-20 19:10
倒三角不应该有灰色底，可能是你菜单文件编辑的原因，把菜单文件上传或是发给我，我给你看看。

这个你看一下