2,506
社区成员
发帖
与我相关
我的任务
分享CAD二次开发：启动CAD的时候怎样自动加载并运行现有的VBA程序呀?
在启动AutoCad时，怎样自动加载并运行现有的VBA程序！
在自动加载的时候我用的是在ＣＡＤ安装文件下面新建一个文件：acad.lsp（记事本的形式）
输入以下命令：
(defun S::STARTUP()
(command "_vbaload" "Project.dvb") )
Project.dvb:该VBA程序
请问在自动执行的时候该在此文件下面添加什么样的命令？
在自动加载的时候我用的是在ＣＡＤ安装文件下面新建一个文件：acad.lsp（记事本的形式）
输入以下命令：
(defun S::STARTUP()
(command "_vbaload" "Project.dvb") )
Project.dvb:该VBA程序
请问在自动执行的时候该在此文件下面添加什么样的命令？
...全文
请发表友善的回复…
发表回复
dbice 2008-06-10
- 打赏
- 举报
命令是
Sub Main()
{
}
Sub Main()
{
}
zzyong00 2008-03-03
- 打赏
- 举报
如果工程文件名为acad.dvb,就可以省掉一句了：(command "_vbaload" "Project.dvb")
(defun S::STARTUP()
(command "_-VBARUN" "AcadStartup"))
(defun S::STARTUP()
(command "_-VBARUN" "AcadStartup"))
Shangliuxiaozhu 2008-02-26
- 打赏
- 举报
Project.dvb为工程文件
AcadStartup为此工程文件的宏名
AcadStartup为此工程文件的宏名
Shangliuxiaozhu 2008-02-26
- 打赏
- 举报
首先将工程文件复制到CAD安装目录下
然后在CAD安装目录下新建一个LISP文件，记事本格式，文件名为：acad.lsp
将下面的几行输入在此文件下面。就可以自动加载和执行VBA程序了。
(defun S::STARTUP()
(command "_vbaload" "Project.dvb")
(command "_-VBARUN" "AcadStartup"))
然后在CAD安装目录下新建一个LISP文件，记事本格式，文件名为：acad.lsp
将下面的几行输入在此文件下面。就可以自动加载和执行VBA程序了。
(defun S::STARTUP()
(command "_vbaload" "Project.dvb")
(command "_-VBARUN" "AcadStartup"))
Shangliuxiaozhu 2008-02-25
- 打赏
- 举报
谢谢1楼的！但是那只是加载了VBA
但是不能自动执行VBA程序啊！
但是不能自动执行VBA程序啊！
zzyong00 2008-02-22
- 打赏
- 举报
CAD启动时，它会在 AutoCAD 目录中查找名为 acad.dvb 的工程。此文件将会自动加载为默认工程。
除了默认工程 acad.dvb 以外的任何工程，都可以使用 VBALOAD 命令在启动时明确加载该工程。在以下代码样例中，在启动 AutoCAD 时，使用 AutoLISP 启动文件来加载 VBA 和名为 myproj.dvb 的 VBA 工程。启动 notepad.exe 并在 acad.lsp 中创建（或附加）下面几行：
(defun S::STARTUP()
(command "_VBALOAD" "myproj.dvb")
)
除了默认工程 acad.dvb 以外的任何工程，都可以使用 VBALOAD 命令在启动时明确加载该工程。在以下代码样例中，在启动 AutoCAD 时，使用 AutoLISP 启动文件来加载 VBA 和名为 myproj.dvb 的 VBA 工程。启动 notepad.exe 并在 acad.lsp 中创建（或附加）下面几行：
(defun S::STARTUP()
(command "_VBALOAD" "myproj.dvb")
)
