(defun S::STARTUP()
(command "_-vbaload" "D:\\TiancaoCADTools\\TiancaoCADTools.dvb"))
(command "_-vbaload" "D:\\TiancaoCADTools\\TiancaoCADTools.dvb"))
如果使用 VBALoad AutoCAD启动后会 出现如下 对话框。

新建或打开文档 还会出现 如下对话框 提示VBA 文件已加载

要想AutoCAD启动和新建或打开文档时候没有任何提示
我们可以使用 VBARun 来加载VBA文件,比如:
(defun S::STARTUP()
(command "_-vbaRun" "D:\\TiancaoCADTools\\TiancaoCADTools.dvb!Start"))
(command "_-vbaRun" "D:\\TiancaoCADTools\\TiancaoCADTools.dvb!Start"))
还要在 VBA中添加一个 sub:
Sun Start()
……
'也在在此添加一些初始化代码
End Sub
……
'也在在此添加一些初始化代码
End Sub
[本日志由 tiancao1001 于 2018-01-04 02:47 PM 编辑]
|
|
暂时没有评论
| 发表评论 - 不要忘了输入验证码哦! |
用户登陆
站点日历
站点统计
最新评论
lisp 自动加载 VBA DVB 文件 提示文件已加载 [ 日期:2013-01-14 ] [ 来自: