|
我做了个程序,想打开多个文档且完成同一个任务(批处理),每个文档完成任务后自动关闭,下一个文档打开再执行,实现打开-执行-关闭-再打开-执行-关闭循环,我使用的是endopen事件,下面我写的代码:
新建一个类模块
Public WithEvents ACADApp As AcadApplication
Private Sub ACADApp_EndOpen(ByVal FileName As String)
Call Initilize
End Sub
新建一个模块
Dim eventCall As New Event01
Public Sub Initilize()
Set eventCall.ACADApp = ThisDrawing.Application
ZoomAll
ThisDrawing.Save
ThisDrawing.Close
End Sub
但程序执行到 thisdrawing.close 就出现“图形忙”的出错信息,请那位大侠赐教,如何实现我想要的结果,谢谢! |
|