[求助]：请教vba能自动加载吗？

aijg

请问vba能自动加载吗,我现在每次打开cad都要用手动来加载
象lisp文件就可以在cad2004.lsp文件中load后在cad自动加载
请大虾门不吝赐教～！～！！～！～！～！

yuer0103

可以，象加载LSP一样方法。即：
(load "test.dvb")

aijg

能不能说清楚一点，在那个文件中加载？是在acad2004.lsp文件中加载吗。

jiangzq01

可以把你的DVB文件改名为：ACAD.DVB，把此文件放在SUPPORT文件夹里，就可以在每次CAD启动时，自动加载了

aijg

在jiangzq01  的提示下终于搞定拉，非常感谢～！！～！～

yunlong3000

自动加载执行VBA程序  
［ 作者：mccad     来源：明经通道     ］

你可以试试以下LSP函数。它与autoload的LSP函数功能一样，只要你按照它的要求写入你的执行命令名、DVB文件名及宏名就可以自动加载执行，再也不用专门写LSP程序了。

2. 
   
3.   [FONT=courier new]
   
4. (defun AutoVBALoad (cmdname project macro)
   
5.    (eval
   
6.       (list 'defun
   
7.          (read (strcat "C:" cmdname))
   
8.          nil
   
9.          (list  
   
10.             'vl-vbarun  
    
11.             (strcat  
    
12.                project "!"  
    
13.                (if macro macro cmdname)
    
14.             )
    
15.          )
    
16.          (princ)
    
17.       )
    
18.    )
    
19. )
    
20. 
    
21.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun AutoVBALoad (cmdname project macro) <br />    (eval <br />       (list 'defun <br />          (read (strcat "C:" cmdname)) <br />          nil <br />          (list  <br />             'vl-vbarun  <br />             (strcat  <br />                project "!"  <br />                (if macro macro cmdname) <br />             ) <br />          ) <br />          (princ) <br />       ) <br />    ) <br /> ) <br /> <br />   [/FONT]<br />

你把函数复制到acad2000doc.lsp文件中，以后每写一个VBA程序，就可以通过写入一行：

(AutoVBALoad <命令名> <工程文件> <宏>)
来自动调用，示例如下：

命令名为update，工程文件为myproject.dvb，模块为Foo，宏为Bar，则写为：
(AutoVBALoad "UPDATE" "MyProject.dvb" "Foo.Bar")

如果宏的位置在ThisDrawing中，则写为：
(AutoVBALoad "UPDATE" "MyProject.dvb" "Bar")

是不是很方便。

aijg

楼上的方法刚刚试过拉，非常好的方法，连快捷命令都可以编，拜谢拉～！～！～！