TopSolid'Forum

Code: Select all

        Try
            'Active document object ID getting
            Dim ActiveDocumentId As PdmObjectId
            ActiveDocumentId = TopSolidHost.Documents.GetPdmObject(DocId)

            'Active Project object ID getting
            Dim ActiveProjectId As PdmObjectId
            ActiveProjectId = TopSolidHost.Pdm.GetProject(ActiveDocumentId)

            'Active Project referenced project getting
            Dim ReferencedProjectsIdList As New List(Of PdmObjectId)
            ReferencedProjectsIdList = TopSolidHost.Pdm.GetReferencedProjects(ActiveProjectId)

            'Searching in each referenced project
            Dim DocumentsIdList As New List(Of PdmObjectId)
            Dim FoldersIdList As New List(Of PdmObjectId)

            For Each Reference In ReferencedProjectsIdList
                Dim _DocumentsIdList As New List(Of PdmObjectId)
                Dim _FoldersIdList As New List(Of PdmObjectId)
                TopSolidHost.Pdm.GetConstituents(Reference, _FoldersIdList, _DocumentsIdList)

                DocumentsIdList.AddRange(_DocumentsIdList)
                FoldersIdList.AddRange(_FoldersIdList)

                Do
                    Dim _FoldersIdList2 As New List(Of PdmObjectId)
                    _FoldersIdList2.AddRange(FoldersIdList)

                    FoldersIdList.Clear()

                    For i = 0 To _FoldersIdList2.Count - 1
                        Dim _FoldersIdList3 As New List(Of PdmObjectId)
                        Dim _DocumentsIdList2 As New List(Of PdmObjectId)


                        TopSolidHost.Pdm.GetConstituents(_FoldersIdList2.Item(i), _FoldersIdList3, _DocumentsIdList2)

                        DocumentsIdList.AddRange(_DocumentsIdList2)
                        FoldersIdList.AddRange(_FoldersIdList3)

                    Next

                Loop While FoldersIdList.Count - 1 >= 0

            Next

            'Material documents getting
            Dim MaterialDocumentsIdList As New List(Of PdmObjectId)

            For Each DocumentId In DocumentsIdList
                Dim Type As String = ""

                TopSolidHost.Pdm.GetType(DocumentId, Type)

                If Type = ".TopMat" Then
                    MaterialDocumentsIdList.Add(DocumentId)
                End If

            Next

            'Material Documents name getting
            Dim MaterialDocumentsNameList As New List(Of String)

            For Each MaterialDocumentId In MaterialDocumentsIdList
                MaterialDocumentsNameList.Add(TopSolidHost.Pdm.GetName(MaterialDocumentId))
            Next

        Catch ex As Exception
            MsgBox("Error during the Material Documents getting" + vbNewLine + ex.Message)
        End Try