【转帖】zfbj版主进来帮帮我
 

zfbj版主进来帮帮我
www.dimcax.com
zfbj版主进来帮帮我
.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不支持多文档吗？