.net菜鸟一个,以前用过VBA。写了下面第一个程序,想要一次关闭所有打开的图纸,且不保存。
Public Sub FileCloseCustom() Dim dwgCols As IEnumerator = Application.DocumentManager.GetEnumerator Dim dwgOpen As Document dwgCols.MoveNext() '注意此句 Do While dwgCols.MoveNext dwgOpen = dwgCols.Current dwgOpen.CloseAndDiscard() Loop
End Sub
此程序开始时无法工作,提示"Drawing is busy"。加入了中间“注意此句”处的一个movenext后,程序可以在打开的5张图纸中关闭3张,然后就出错和以前一样。
Why?难道.net不支持多文档吗? |