求助：GetTopLevelBlocks是在哪定义的？

shirazbj

2. Dim myDB As New Database(False, True)
   
3.                     
   
4. myDB.ReadDwgFile(ligneF, IO.FileShare.ReadWrite, True, "")
   
5. 
   
6.                     
   
7. Using mytrans As Transaction = myDB.TransactionManager.StartTransaction
   
8.                         
   
9. For Each myBlockName As String In GetTopLevelBlocks(myDB)
   
10.                            
    
11. For Each BRefID As ObjectId In GetBRefIDs(myDB, myBlockName)
    
12.                                 
    
13. If myBlockName = "DANCART" Then
    
14. 。。。
    

Dim myDB As New Database(False, True)<br />                     <br /> myDB.ReadDwgFile(ligneF, IO.FileShare.ReadWrite, True, "")<br /> <br />                     <br /> Using mytrans As Transaction = myDB.TransactionManager.StartTransaction<br />                         <br /> For Each myBlockName As String In GetTopLevelBlocks(myDB)<br />                             <br /> For Each BRefID As ObjectId In GetBRefIDs(myDB, myBlockName)<br />                                 <br /> If myBlockName = "DANCART" Then<br /> 。。。<br />

如上代码，在vb2008 express里说GetTopLevelBlocks没定义。应该import什么模块？

谢谢

qjchen

是 这个函数么， 在这里看来的
http://forums.augi.com/showthread.php?t=135845


Function GetTopLevelBlocks(ByVal DatabaseIn As Database) As List(Of String)
        Dim myList As New List(Of String)
        Using myTrans As Transaction = DatabaseIn.TransactionManager.StartTransaction
            Dim myBT As BlockTable = DatabaseIn.BlockTableId.GetObject(OpenMode.ForRead)
            For Each myBTRid As ObjectId In myBT
                Dim myBTR As BlockTableRecord = myBTRid.GetObject(OpenMode.ForRead)
                If myBTR.IsAnonymous = False And myBTR.IsLayout = False And _
    myBTR.IsFromExternalReference = False And _
    myBTR.IsDependent = False Then
                    myList.Add(myBTR.Name)
                End If
            Next
        End Using
        Return myList
    End Function

shirazbj

原来如此。还以为是公有函数呢。原来是自己编的。

还有这个函数GetBRefIDs。

只能自己想了。

谢谢