如何将使VBA生成的菜单永久保留

霹雳啪啦啦

用VBA做了一个生成菜单的宏，成功。但是，当CAD重新启动一下，这个菜单就没有了，需要再运行一次。因为生成的程序需要分发给许多人，不可能手动去改每个人的启动参数，有没有办法全部用VBA或者VB编程，做到只要运行一次，菜单就永久存在了？而不是去改每个人电脑里CAD的启动参数？

查了一下论坛，全是要修改菜单文件了，修改ACAD.dvb之类的方法，不得其解。

谢谢！

zwd0077

在你的CAD安装目录里找到acad2004doc.lsp文件（我安装的是CAD2004），打开并添加如下代码：

(vl-vbaload (findfile "E:/other/VBA/Project.dvb"))
(defun c:Project()
    (setvar "cmdecho" 0)
; (vl-vbarun "AddExtMenu")
(princ)
)

(defun s::STARTUP()
  (command "_-vbarun" "AddExtMenu")
)

;;;注意，程序里的E:/other/VBA/Project.dvb是你的工程所在路径，AddExtMenu是你的菜单宏的过程名，当然你如果把它放在模块里，只有改成模块名.AddExtMenu就行了。改完后保存，重启CAD。

gdzhou

如果运行一次，将菜单保存，不幸么？

霹雳啪啦啦

最好有一种方法,可以实现用一个宏,在安装时运行一次,以后永远都不在运行,都有这个菜单和工具栏.修改20004doc.lsp的方法也可以,但是如何用程序来修改它呢?