论坛高手请进，非高手勿看~

ccbb202

  Dim path As String
  Dim i As Integer
For i = 0 To 10
        path = "e:\" & i & ".dwg"
        Dim Doc As AcadDocument
        Set Doc = ThisDrawing.Application.Documents.Add()
        Doc.SaveAs path
        ThisDrawing.Application.ActiveDocument.Close False
Next

请教高手，为什么在CAD08下运行到第二个文件就关闭不了呢，命令行出现宏名称(M)，CAD出现假死现象，而CAD04却能正常运行，谢谢指教！

mccad

如果你是要关闭刚才新建并保存的Doc，那就直接用

Doc.Close False

ccbb202

不是语句的问题，跟CAD的版本可能有关系，04和09都没有问题，就是08出现假死，必须通过点击菜单或关闭文件才能继续触发程序，不知道如何解决，请高手指点~~~~~~~~~~~~~