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

ccbb202 · 发表于 2008-7-15 16:19:00

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却能正常运行，谢谢指教！