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

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

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

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

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

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

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

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

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

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

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

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

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

<P>自己顶一下，版主能帮忙吗？</P>

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

<p>这个事件到底怎么用阿</p><p>我按照帮助都不行啊</p>

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

<p>简单的例子，先运行tt宏，再关闭CAD（关不掉了）</p><p><br/>Dim WithEvents acadapp As AcadApplication</p><p>Sub tt()<br/>&nbsp;&nbsp;&nbsp; Set acadapp = Application<br/>End Sub</p><p>Private Sub acadapp_BeginQuit(Cancel As Boolean)<br/>&nbsp;&nbsp;&nbsp; MsgBox "OK"<br/>&nbsp;&nbsp;&nbsp; Cancel = True<br/>End Sub</p>
页: [1] 2
查看完整版本: 如何在CAD退出的同时执行一段代码？应用级事件该怎么用？