霹雳啪啦啦 发表于 2006-12-5 23:20:00

zfbj版主进来帮帮我

<P>.net菜鸟一个，以前用过VBA。写了下面第一个程序，想要一次关闭所有打开的图纸，且不保存。</P>
<P>&nbsp;&nbsp;&nbsp; Public Sub FileCloseCustom()<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim dwgCols As IEnumerator = Application.DocumentManager.GetEnumerator<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim dwgOpen As Document<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dwgCols.MoveNext()&nbsp;&nbsp;'注意此句<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Do While dwgCols.MoveNext<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dwgOpen = dwgCols.Current<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dwgOpen.CloseAndDiscard()<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Loop</P>
<P>&nbsp;&nbsp;&nbsp; End Sub</P>
<P>此程序开始时无法工作，提示"Drawing is busy"。加入了中间“注意此句”处的一个movenext后，程序可以在打开的5张图纸中关闭3张，然后就出错和以前一样。</P>
<P>Why?难道.net不支持多文档吗？</P>
页: [1]
查看完整版本: zfbj版主进来帮帮我