[求助]：请教高手！

zsl_007

最近几天都上不了论坛？！！是什么人这么没有道德！坚决支持版主打击恶意破坏者！

有一个问题：
怎么样实现在Autocad的主菜单后面追加我的菜单项（不使用“menu”或“menuload”等对话框的方式）
我的菜单文件如下：
mymenu.mnu
-------------------------------------------------------------------------------------------
***MENUGROUP=myarxmenu

***POP1
**chengguo
ID_Draw [作图(&p)]
ID_Border [图一(&g)]^C^C_drawone
ID_Border [图二(&d)]^C^C_drawtwo
--------------------------------------------------------------------------------------------------


小东对不起给你添麻烦了，我不知道这条应该放在哪个栏目里！

XDSoft

这个题目应该放到“ACAD定制”论坛，我给你挪动过去。
大家讨论讨论。

zsl_007

谢谢小东！

有没有谁遇到过，帮我一下呀！

efan2000

将这段代码放在mymenu.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) "=+myarxmenu.pop1"))
    
15.         (setq CNT 25)
    
16.       )
    
17.     )
    
18.   )
    
19. )
    
20. (init-placemenu)
    
21. [/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) "=+myarxmenu.pop1")) <br />         (setq CNT 25)<br />       )<br />     )<br />   )<br /> )<br /> (init-placemenu)<br /> [/FONT]