(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 编辑]
|
暂时没有评论
发表评论 - 不要忘了输入验证码哦! |