獲取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
上一篇：提高Solidworks輸出圖片分辨率的方法
下一篇：如何轉移到新電腦的SolidWorks
獲取SolidWorks文件的BOM信息

相關文章
