3DE自动生成EBOM的VB程序

Dim strTheProductReferenceType As String
Dim strBrowsedPLMCompIDAttr As String
Dim iNewObjectIndex As Integer
Dim K As Integer

Dim lstCompList(300)
Dim lstCompListName(300)
Dim lstCompCount(300)


Sub CATMain()
    

    strTheProductReferenceType = "VPMReference"



    Dim oProductEditor As Editor
    Set oProductEditor = CATIA.ActiveEditor
    
    For Flush = 0 To 300
       lstCompCount(Flush) = 0
       lstCompList(Flush) = ""
       
    Next Flush


    NavigateProductStructure oProductEditor
    

   
    Dim strBOM As String
    strBOM = "********BOM*********" + vbCrLf
    strBOM = strBOM + "产品名称                                   " + "            数量 " + vbCrLf
    For K = 0 To 300
        Dim strCount As String
        strCount = lstCompCount(K)
        If (strCount <> 0) Then
      strBOM = strBOM + lstCompListName(K) + "                        " + strCount + vbCrLf
        End If
    Next K
    
    MsgBox strBOM
    
End Sub



Sub NavigateProductStructure(oProductEditor)
    
   
    strBrowsedPLMCompIDAttr = ""
    iNewObjectIndex = 0
 
   
    Dim oProductService As PLMProductService
    Set oProductService = oProductEditor.GetService("PLMProductService")
        
   
    Dim oVPMRootOccOnRoot As VPMRootOccurrence