社区 › VB › 论坛高手请进，非高手勿看~

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

mccad 发表于 2008-7-15 16:37:00

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

ccbb202 发表于 2008-7-15 21:06:00

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

查看完整版本: 论坛高手请进，非高手勿看~