vba 自动加载【转】

/db_自贡黄明儒_

vba 自动加载

acad200Xdoc.lisp 每次打开文档时 都自动加载
acad.lisp 打开cad 加载一次
acad.dvb autocad打开自动被加载 （可能没有 自己创建） 
 
创建CAD命令来调用VBA宏
创建一个.LSP文件写入以下代码：
(defun c:命令 ()(command "-vbarun" "xxx.dvb!模块名.宏名"))
加载此LSP文件后，在CAD中输入MYTOOL命令就可以运行VBA宏
例：
打开记事本，写入以下代码：
(defun c:LX ()(command "-vbarun" "C:/螺旋线.dvb!Module1.LXX"))
保存3DLXX.lsp
将此附件解压到C盘根目录
在CAD中输入命令appload加载3DXX.lsp
在CAD中输入自定义的命令lx回车
OK
 
1、vba自己加载法。将你的vba工程文件改名为acad.dvb，放在cad的安装目录下，vba初始化后自动加载。
2、startup加载法。将你的vba文件放到cad的安装目下。cad安装目录下和suport目录下搜索acad.lsp文件，如果不存在，用windows记事本在安装目录下新建一个acad.lsp文件（如果已经存在，用记事本打开它），在该文件中添加如下内容：
(defun S::STARTUP() 
(command "_VBALOAD" "myproj.dvb") 
) 
保存后退出，以后启动cad会自动加载，其中myproj.dvb是你的vba工程文件名。
以上是autodesk推荐的两种方法，其实还有第三种方法
isp加载法。用记事本打开support目录下的acad200x.lsp，其中200x与acad的版本对应（如acad2000对应acad2000.lsp,acad2002对应acad2002.lsp等等），在文件的最后添加如下语句：
(vl-vbaload  "myproj.dvb")

4
 
转贴:DVB文件在CAD启动的时候自动加载

将"批处理.dvb"放到搜索路径里，然后"Module1.Batch"这个是宏命令

以下内容为程序代码:
(defun c:test ()
(setvar "sdi" 0)
(command "-vbaload" "批处理.dvb")
(command "-vbarun" "Module1.Batch")
)

(c:test )

可以把lsp拉到启动组；或者将test.lsp放到搜索路径里，然后acad.lsp添加一行，(load "test.lsp")

cabinsummer

我一般是用lisp加载，命令在lsp文件里，lsp里调用vba命令，调用完毕后卸载

kqqt6236

谢谢分享。