霹雳啪啦啦 发表于 2006-1-17 10:12:00

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

<P>用VBA做了一个生成菜单的宏，成功。但是，当CAD重新启动一下，这个菜单就没有了，需要再运行一次。因为生成的程序需要分发给许多人，不可能手动去改每个人的启动参数，有没有办法全部用VBA或者VB编程，做到只要运行一次，菜单就永久存在了？而不是去改每个人电脑里CAD的启动参数？</P>
<P>查了一下论坛，全是要修改菜单文件了，修改ACAD.dvb之类的方法，不得其解。</P>
<P>谢谢！</P>

zwd0077 发表于 2006-1-20 16:38:00

<P>在你的CAD安装目录里找到acad2004doc.lsp文件（我安装的是CAD2004），打开并添加如下代码：</P>
<P>(vl-vbaload (findfile "E:/other/VBA/Project.dvb")) <BR>(defun c:Project() <BR>&nbsp;&nbsp;&nbsp; (setvar "cmdecho" 0) <BR>; (vl-vbarun "AddExtMenu") <BR>(princ) <BR>) </P>
<P>(defun s::STARTUP()<BR>&nbsp; (command "_-vbarun" "AddExtMenu")<BR>)</P>
<P>;;;注意，程序里的E:/other/VBA/Project.dvb是你的工程所在路径，AddExtMenu是你的菜单宏的过程名，当然你如果把它放在模块里，只有改成模块名.AddExtMenu就行了。改完后保存，重启CAD。</P>

gdzhou 发表于 2006-1-21 23:11:00

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

霹雳啪啦啦 发表于 2006-1-22 13:57:00

最好有一种方法,可以实现用一个宏,在安装时运行一次,以后永远都不在运行,都有这个菜单和工具栏.修改20004doc.lsp的方法也可以,但是如何用程序来修改它呢?
页: [1]
查看完整版本: 如何将使VBA生成的菜单永久保留