我想看一级黄色大片_久久亚洲国产精品一区二区_久久精品免视看国产明星_91久久青青青国产免费

您的位置：網站首頁 > Solidworks

獲取SolidWorks文件的BOM信息

時間:2010-11-13 11:31:34 來源:未知

今天是個好日子，心情比較沉悶，對自己將來的何去何從又迷茫了。

今天來把上一個月所弄的東西來和大家分享一下。希望大家都來指出不好的地方。

前段時間做了一個讀取產品BOM信息的程序。剛開始覺得挺困難，后來慢慢的研究，最終還是解決了。不多說了，看看代碼就知道了。寫的有點亂（最鬧心的地方）

001 ''' <summary>
002    ''' 獲取BOM視圖
003    ''' </summary>
004    ''' <param name="path1">文件路徑</param>
005    ''' <param name="dt"></param>
#p#分頁標題#e#
006    ''' <remarks></remarks>
007    Public Sub GetBom(ByVal path1 As String, ByVal dt As DataTable)
008  
009        dt.Columns.Add("母件圖號")
010  
011        dt.Columns.Add("級別")
012  
013        Dim edmBOMView As IEdmBomView                                   '聲明IedmBomView對象，用來獲取BOM視圖
014  
015        Dim edmBomManager As IEdmBomMgr                                 '定義IEdmBomMgr對象，用來操作BOM
#p#分頁標題#e#
016  
017        file8 = vault.GetFileFromPath(path1)                            '根據文件路徑來獲取文件
018  
019        Dim edmBomArray() As EdmBomLayout                               '定義BOM的樣式
020  
021        edmBomManager = vault.CreateUtility(EdmUtility.EdmUtil_BomMgr)  '創建IEdmBomMgr實例
022  
023        edmBomManager.GetBomLayouts(edmBomArray)                        '獲取BOM的樣式
024  
025        For i As Integer = 0 To UBound(edmBomArray)                     '根據BOM的樣式來獲取BOM視圖
#p#分頁標題#e#
026  
027            edmBOMView = file8.GetComputedBOM(edmBomArray(i).mlLayoutID, _
028               file8.CurrentVersion, "default", -1)
029  
030        Next
031  
032        Dim bomRows As Array = Array.CreateInstance(GetType(EdmBomCell), 1) '定義承裝BOM行的數組
033  
034        edmBOMView.GetRows(bomRows)                                         '從視圖中獲取BOM的所有行
035        Dim bomClunms As Array = Array.CreateInstance(GetType(EdmBomColumn), 1) '定義承裝BOM列的數組
#p#分頁標題#e#
036  
037        edmBOMView.GetColumns(bomClunms)                                    '獲取BOM的所有列
038  
039        Dim column As EdmBomColumn                                          '定義BOM列類型的變量
040  
041        For k As Integer = 0 To bomClunms.Length - 1                        '循環列數組來獲取列名，添加到DataTable中
042  
043            column = bomClunms.GetValue(k)
044  
045            dt.Columns.Add(column.mbsCaption, GetType(String))
#p#分頁標題#e#
046  
047        Next
048  
049        Dim j As Integer = bomRows.GetLength(bomRows.Rank - 1)              '獲取BOM行數
050  
051        Dim cell As IEdmBomCell                                             '定義行變量
052  
053        Dim hjPath As String
054  
055        Dim level, fisLevel As Integer
#p#分頁標題#e#
056  
057        Dim r As Integer = 1
058  
059        For Each cell In bomRows                                           '循環行，并把行數據添加到DataTable中
060            Dim dr As DataRow = dt.NewRow()
061  
062            Dim pa As String = cell.GetPathName()
063  
064            dt.AcceptChanges()
065  
#p#分頁標題#e#
066            For j = 0 To bomClunms.Length - 1
067  
068                Dim column1 As EdmBomColumn = bomClunms.GetValue(j)
069  
070                Dim b As Integer = cell.GetTreeLevel()
071  
072                level = cell.GetTreeLevel + 1
073  
074                Dim value As New Object
075  
076                hjPath = cell.GetPathName()
#p#分頁標題#e#
077  
078                Dim poComputedValue As New Object
079  
080                Dim config As String
081  
082                cell.GetVar(column1.mlVariableID, column1.meType, value, poComputedValue, config, True)
083  
084                dr("級別") = b + 1
085  
086                dr(j + 2) = value.ToString()
087  
088            Next
#p#分頁標題#e#
089  
090            dt.Rows.Add(dr)
091  
092            If dr("是否自制焊件") = "焊件" Then
093  
094                GetRef(hjPath, level, dr("圖號"), dr("零件類型"))
095  
096            End If
097  
098            r += 1
099        Next
100        AdjustTable(dt)                                          '對DataTable進行處理 填充DataTable中的母件圖號列
#p#分頁標題#e#
101  
102  
103    End Sub
104    ''' <summary>
105    ''' 輸出格式
106    ''' </summary>
107    ''' <param name="dt"></param>
108    ''' <remarks></remarks>
109    Private Sub AdjustTable(ByVal dt As DataTable)
110  
111        For i As Integer = 0 To dt.Rows.Count - 1
#p#分頁標題#e#
112  
113            Try
114                If i = 0 Then
115  
116                    Continue For
117  
118                End If
119  
120                If dt.Rows(i)("級別") - dt.Rows(i - 1)("級別") = 0 Then
121  
122                    dt.Rows(i)("母件圖號") = dt.Rows(i - 1)("母件圖號")
#p#分頁標題#e#
123  
124                ElseIf dt.Rows(i)("級別") - dt.Rows(i - 1)("級別") > 0 Then
125  
126                    dt.Rows(i)("母件圖號") = dt.Rows(i - 1)("圖號").ToString
127  
128                Else
129  
130                    dt.Rows(i)("母件圖號") = GetPre(i, dt)
131  
132                End If
133  
134            Catch ex As Exception
#p#分頁標題#e#
135                'MsgBox(ex.Message.ToString)
136            End Try
137  
138        Next
139    End Sub
140    ''' <summary>
141    ''' 調整輸出格式
142    ''' </summary>
143    ''' <param name="i"></param>
144    ''' <param name="dt"></param>
145    ''' <returns></returns>
146    ''' <remarks></remarks>
#p#分頁標題#e#
147    Private Function GetPre(ByVal i As Integer, ByVal dt As DataTable) As String
148  
149        Dim strSre As String = dt(0)("圖號").ToString
150  
151        For j As Integer = i - 1 To 0 Step -1
152  
153            Try
154                If dt.Rows(j)("級別") = dt.Rows(i)("級別") Then
#p#分頁標題#e#
155  
156                    strSre = dt.Rows(j)("母件圖號").ToString
157  
158                    Exit For
159  
160                ElseIf dt.Rows(j)("級別") < dt.Rows(i)("級別") Then
161  
162                    strSre = dt.Rows(j)("圖號").ToString
163  
164                    Exit For
165  
166                End If
#p#分頁標題#e#
167            Catch ex As Exception
168                'MsgBox(ex.Message.ToString)
169            End Try
170              
171  
172        Next
173  
174        Return strSre
175  
176    End Function