获取所有文档出错？

cdinten

直接上代码：

1.       
   
2. ///  <summary>      
   
3. /// 获取所有打开的文档      
   
4. ///  <summary>  
   
5. [CommandMethod("GetAllDrawings", CommandFlags.Session)]
   
6. public static Document[] GetAllDrawings()      
   
7. {
   
8.             try
   
9.             {
   
10.                 DocumentCollection DocColl = Application.DocumentManager;
    
11.                 Document[] docArr = null;
    
12.                 DocColl.CopyTo(docArr, 0);
    
13.                 return docArr;
    
14.             }
    
15.             catch (System.Exception exc)
    
16.             {
    
17.                 Application.ShowAlertDialog(exc.Message);
    
18.             }
    
19.             return null;
    
20.         }

       <br /> ///  <summary>      <br /> /// 获取所有打开的文档       <br /> ///  <summary>  <br /> [CommandMethod("GetAllDrawings", CommandFlags.Session)]<br /> public static Document[] GetAllDrawings()       <br /> {<br />             try<br />             {<br />                 DocumentCollection DocColl = Application.DocumentManager;<br />                 Document[] docArr = null;<br />                 DocColl.CopyTo(docArr, 0);<br />                 return docArr;<br />             }<br />             catch (System.Exception exc)<br />             {<br />                 Application.ShowAlertDialog(exc.Message);<br />             }<br />             return null;<br />         }

不知道是怎么回事？是不是ACAD的ＡＰＩ中实现CopyTo有问题啊？另外获取活动文档数目的属性 Application.DocumentManager.Count也有问题，我使用的是AutoCAD2008。

雪山飞狐_lzh

CommandMethod的函数有返回值？

刘远凯

    <CommandMethod("GetAllDrawings")> Public Sub GetAllDrawings()
        Dim DocColl As DocumentCollection = Application.DocumentManager
        Dim docArr() As Document
        Dim i As Integer = 0
        Dim ent As Document
        ReDim docArr(DocColl.Count - 1)
        For Each ent In DocColl
            docArr(i) = ent
            i = i + 1
        Next
    End Sub
我是这样做的，能获取所有的文档