[编程申请]：如何在autocad中加载菜单

flydyt

我现在想用VB开发cutocad，但是开发完成后不知怎样在cutocad把菜单加载上。就象加载arx文件的菜单一样。不知谁能帮助我，谢谢。

hzhw

工具菜单下自定义菜单命令，加载菜单文件

钝刀

本人采用编写mnu 文件加载，我也想知道自动加载的方法？
我写的文件供参考
***MENUGROUP=HydroTools
***POP1
ID_MnDevelopePg    [常用工具T)]
ID_MnEntools  [->实用工程程序]
ID_ymqx       [堰面曲线(&Y)]^C^Cstart c:/Acad2002tool/堰面曲线.exe;
ID_excldr     [Excel绘图(&E)]^C^Cstart c:/Acad2002tool/用Exlces数据绘图.exe;
ID_area       [<-面积、长度、体积标注]^C^Cstart c:/Acad2002tool/面积长度体积标注.exe;
                 [--]
ID_MnEntools  [->实用CAD程序]
ID_changEL    [平面化(&P)]^C^Cstart c:/Acad2002tool/高程修改.exe;
ID_changPLweith [修改多义线线宽]^C^Cstart c:/Acad2002tool/修改多义线线宽.exe;
ID_AcadpurgeA  [-<Dwg图PurgeAll(&Pa)]^C^Cstart c:/Acad2002tool/清除图内垃圾.exe;

efan2000

在样板菜单文件MNU文件中，如下：

1. 
   
2.   [FONT=courier new]
   
3. ***MENUGROUP=MyMenu '菜单文件组名
   
4. 
   
5. ***POP1 '下拉菜单区域
   
6. 
   
7. ID_CD           [我的菜单(&S)]
   
8. ID_CSH          [初始化设置(&I)]^C^C_-VBARUN MyDVB.CSH
   
9. ID_BTL          [标题栏(&B)]^C^C_-VBARUN MyDVB.BTL
   
10. 
    
11. ***TOOLBARS '工具栏区域
    
12. 
    
13. **TB_GJ
    
14. ID_GJ         [_Toolbar("我的工具栏", _Right, _Show, 1, 1, 1)]
    
15. ID_CSH        [_Button("初始化设置", "CSH", "CSH")]^C^C_-VBARUN MyDVB.CSH
    
16. ID_BTL        [_Button("标题栏", "BTL", "BTL")]^C^C_-VBARUN MyDVB.BTL
    
17. 
    
18.   [/FONT]
    

复制代码

在与菜单配套的 AutoLISP 程序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) "=+MyMenu.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) "=+MyMenu.pop1"))<br />         (setq CNT 25)<br />       )<br />     )<br />   )<br /> )<br /> <br /> (init-placemenu)<br />   [/FONT]<br />

lijiao

在ACAD2000中有一个VBA的例子可以参考，例子在...\Sample\VBAIDEMenu\里。