急：如何让自己编的菜单mnu文件自动加载？

mccad

2. ;; ----------- 将明经增效菜单放到下拉菜单的倒数第三位的函数 ------------
3. ;;   该函数将明经增效菜单放到AutoCAD下拉菜单的倒数第三位。
4. ;; ----------------------------------------------------------------(defun mccad-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) "=+MCCAD.pop1"))
15.                (setq CNT 25)
16.            )
17.        )
18.    )
19. )(mccad-init-placemenu)

;; ----------- 将明经增效菜单放到下拉菜单的倒数第三位的函数 ------------ ;;   该函数将明经增效菜单放到AutoCAD下拉菜单的倒数第三位。 ;; ----------------------------------------------------------------(defun mccad-init-placemenu (/ CNT)    (setq CNT 1)    (while (< CNT 24)        (if (menucmd (strcat "P" (itoa CNT) ".1=?"))            (setq CNT (1+ CNT))            (progn                (if (> CNT 2)                    (setq CNT (- CNT 2))                    (setq CNT 2)                )                (menucmd (strcat "p" (itoa CNT) "=+MCCAD.pop1"))                (setq CNT 25)            )        )    ) )(mccad-init-placemenu)

night1001

各位前辈，看了你们的发言，我还是不太明白，是不是可以这么理解

先将“(command "_menuload" "d:\\tools\\test.mns")”存为acad.lsp文件

将“thisdrawing.application.menugroups.load "d:\tools\test.mns"”存为acad.dvb文件

然后将这两个文件放到C:\Documents and Settings\Administrator\Application Data\Autodesk\AutoCAD 2008\R17.1\chs\Support 目录下

但是test.mns里面应该写什么呢

我用vba编了一个东东可以画图，如何才能新加一个下拉菜单，可以调出我编的那个东东

请高手详细指点指点吧~~