哪位大侠知道怎么打开CAD时自动加载自定义菜单文件？？？谢谢

kouyuanpei

哪位大侠知道怎么打开CAD时自动加载自定义菜单文件？？？谢谢

tjuzkj

命令行下输入：cui，会单出窗口，里面可以找到自定义菜单

kouyuanpei

可以编写一个lisp语句吗？每次打开就自动加载了

QiaoCheng

加载一次后以后都会加载的

Lisphk

找了下自己的资料，你看看下面的代码，应该能对你有帮助

1. (defun c:loadit        (/ cui_database mnbar flag)
   
2.   (vl-load-com)
   
3.   (setq        cui_database
   
4.          (list
   
5.            "EXPRESS"                        ;<<< MENUGROUP
   
6.            "C:\\Documents and Settings\\Ronald\\Application Data\\Autodesk\\AutoCAD 2008\\R17.1\\enu\\support\\acetmain.cui" ;<<<PATH & CUI FILENAME
   
7.            "E&xpress"                        ;<<< MENUNAME         
   
8. ) ;_ end_list
   
9.   ) ;_ end_setq
   
10.   (vlax-for n
    
11.               (setq all_menus
    
12.                      (vla-get-MenuGroups
    
13.                        (vlax-get-Acad-Object)
    
14.                      ) ;_ end_vla-get-MenuGroups
    
15.               ) ;_ end_setq
    
16.     (if        (= (vla-get-name n) (car cui_database))
    
17.       (setq flag T)
    
18.     ) ;_ end_if
    
19.   ) ;_ end_vlax-for
    
20.   (if (null flag)
    
21.     (progn
    
22.       (vla-load
    
23.         all_menus
    
24.         (cadr cui_database)
    
25.       ) ;_ end_vla-load
    
26.       (setq MnBar
    
27.              (vla-get-MenuBar
    
28.                (vlax-get-Acad-Object)
    
29.              ) ;_ end_vla-get-MenuBar
    
30.       ) ;_ end_setq
    
31.       (vla-InsertInMenuBar
    
32.         (vla-Item
    
33.           (vla-get-Menus
    
34.             (vla-Item
    
35.               (vla-get-MenuGroups
    
36.                 (vlax-get-Acad-Object)
    
37.               ) ;_ end_vla-get-MenuGroups
    
38.               (car cui_database)
    
39.             ) ;_ end_vla-Item
    
40.           ) ;_ end_vla-get-Menus
    
41.           (caddr cui_database)
    
42.         ) ;_ end_vla-Item
    
43.         (1- (vla-get-Count MnBar))
    
44.       ) ;_ end_vla-InsertInMenuBar
    
45.     ) ;_ end_progn
    
46.     (princ "\n>>..MENU IS ALREADY LOADED..<<")
    
47.   ) ;_ end_if
    
48.   (princ)
    
49. ) ;_ end_defun
    

(defun c:loadit        (/ cui_database mnbar flag)<br />   (vl-load-com)<br />   (setq        cui_database<br />          (list<br />            "EXPRESS"                        ;<<< MENUGROUP<br />            "C:\\Documents and Settings\\Ronald\\Application Data\\Autodesk\\AutoCAD 2008\\R17.1\\enu\\support\\acetmain.cui" ;<<<PATH & CUI FILENAME<br />            "E&xpress"                        ;<<< MENUNAME         <br /> ) ;_ end_list<br />   ) ;_ end_setq<br />   (vlax-for n<br />               (setq all_menus<br />                      (vla-get-MenuGroups<br />                        (vlax-get-Acad-Object)<br />                      ) ;_ end_vla-get-MenuGroups<br />               ) ;_ end_setq<br />     (if        (= (vla-get-name n) (car cui_database))<br />       (setq flag T)<br />     ) ;_ end_if<br />   ) ;_ end_vlax-for<br />   (if (null flag)<br />     (progn<br />       (vla-load<br />         all_menus<br />         (cadr cui_database)<br />       ) ;_ end_vla-load<br />       (setq MnBar<br />              (vla-get-MenuBar<br />                (vlax-get-Acad-Object)<br />              ) ;_ end_vla-get-MenuBar<br />       ) ;_ end_setq<br />       (vla-InsertInMenuBar<br />         (vla-Item<br />           (vla-get-Menus<br />             (vla-Item<br />               (vla-get-MenuGroups<br />                 (vlax-get-Acad-Object)<br />               ) ;_ end_vla-get-MenuGroups<br />               (car cui_database)<br />             ) ;_ end_vla-Item<br />           ) ;_ end_vla-get-Menus<br />           (caddr cui_database)<br />         ) ;_ end_vla-Item<br />         (1- (vla-get-Count MnBar))<br />       ) ;_ end_vla-InsertInMenuBar<br />     ) ;_ end_progn<br />     (princ "\n>>..MENU IS ALREADY LOADED..<<")<br />   ) ;_ end_if<br />   (princ)<br /> ) ;_ end_defun<br />

修改成你的CUI名

然后,在你的代码里面：

1. (c:loadit)
   

(c:loadit)<br />

下面的代码卸载:

1. (defun c:unloadit ()
   
2. (vl-load-com)
   
3. (vla-unload (vla-Item (vla-get-MenuGroups (vlax-get-Acad-Object)) "EXPRESS")) ;...<<< MENUGROUP&#160;
   
4. (princ)
   
5. ) ;_ end_defun
   

(defun c:unloadit ()<br /> (vl-load-com)<br /> (vla-unload (vla-Item (vla-get-MenuGroups (vlax-get-Acad-Object)) "EXPRESS")) ;...<<< MENUGROUP&#160;<br /> (princ)<br /> ) ;_ end_defun<br />

迎着朝阳

cuiload 加载

kouyuanpei

谢了啊，我好好研究一下，有不明白的再想你请教

kouyuanpei

Lisphk 发表于 2013-6-4 20:57
找了下自己的资料，你看看下面的代码，应该能对你有帮助
修改成你的CUI名

谢了啊，我好好研究一下，有不明白的再想你请教
- 本文出自晓东CAD家园-论坛，原文地址：http://bbs.xdcad.net/thread-668629-1-1.html

kouyuanpei

Lisphk 发表于 2013-6-4 20:57
找了下自己的资料，你看看下面的代码，应该能对你有帮助
修改成你的CUI名

太感谢了...

Lisphk

kouyuanpei 发表于 2013-6-5 21:01
太感谢了...

那就说明你可以用了，呵呵，开心，第一次在论坛帮到人。{:soso_e142:}

QiaoCheng

Lisphk 发表于 2013-6-5 21:13
那就说明你可以用了，呵呵，开心，第一次在论坛帮到人。

:lol大侠，那也帮我写个程序

Lisphk

QiaoCheng 发表于 2013-6-5 21:49
大侠，那也帮我写个程序

别逗我了{:soso_e138:}