如何在CAD退出的同时执行一段代码？应用级事件该怎么用？

hunterah · 发表于 2006-8-1 11:07:00

本帖最后由作者于 2006-8-4 11:43:45 编辑

CAD启动时执行代码可以在ACADstartup宏里添加，CAD退出时有没有类似的宏呢？

hunterah · 发表于 2006-8-2 08:11:00

有没有哪位大侠可以解答。原来我用EXCEL中的VBA编程都有，CAD的有吗？

雪山飞狐_lzh · 发表于 2006-8-2 09:06:00

[WEB]http://www.mccad.net/object/acad2004/idh_beginquit.htm[/WEB]

hunterah · 发表于 2006-8-2 15:14:00

版主真是热心人，我立刻试试，先谢了。

hunterah · 发表于 2006-8-2 15:49:00

本帖最后由作者于 2006-8-3 21:55:17 编辑

事件触发不是太会用，版主能给个简单的可运行的例程吗？

hunterah · 发表于 2006-8-3 21:57:00

请大家帮帮我吧，最好能发一个DVB的文件。

hunterah · 发表于 2006-8-3 22:23:00

http://www.mjtd.com/a2/list.asp?id=131按这个贴子的去做执行没什么结果，哪位大侠能给个可运行DVB程序说明一下吗？

hunterah · 发表于 2006-8-4 21:39:00

自己顶一下，版主能帮忙吗？

sinbar · 发表于 2008-3-20 20:45:00

这个事件到底怎么用阿

我按照帮助都不行啊

雪山飞狐_lzh · 发表于 2008-3-20 21:29:00

简单的例子，先运行tt宏，再关闭CAD（关不掉了）

Dim WithEvents acadapp As AcadApplication

Sub tt()
Set acadapp = Application
End Sub

Private Sub acadapp_BeginQuit(Cancel As Boolean)
MsgBox "OK"
Cancel = True
End Sub

账号		自动登录	找回密码
密码			注册