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

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

<p>&nbsp; Dim path As String<br/>&nbsp; Dim i As Integer<br/>For i = 0 To 10<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; path = "e:\" &amp; i &amp; ".dwg"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim Doc As AcadDocument<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set Doc = ThisDrawing.Application.Documents.Add()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Doc.SaveAs path<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ThisDrawing.Application.ActiveDocument.Close False<br/>Next</p><p>请教高手，为什么在CAD08下运行到第二个文件就关闭不了呢，命令行出现宏名称(M)，CAD出现假死现象，而CAD04却能正常运行，谢谢指教！</p><p></p>

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

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

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

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