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

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

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

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

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

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

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

http://www.mccad.net/object/acad2004/idh_beginquit.htm

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

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

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

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

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

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

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

按这个贴子的去做执行没什么结果，哪位大侠能给个可运行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

查看完整版本: 如何在CAD退出的同时执行一段代码？应用级事件该怎么用？