[VBA程序]：自动加载执行VBA程序

shiqiang

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

(defun AutoVBALoad (cmdname project macro)
   (eval
      (list 'defun
         (read (strcat "C:" cmdname))
         nil
         (list  
            'vl-vbarun  
            (strcat  
               project "!"  
               (if macro macro cmdname)
            )
         )
         (princ)
      )
   )
)

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

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

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

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

自由的鱼

从什么地方抄过来的？好面熟的程序！