4 Replies Latest reply on Jan 31, 2015 5:28 AM by Darren Smith

    Export BOM - Get Summary Information Properties "Part Type"

    Darren Smith

      Can anybody help????

       

      I have an assembly that I am exporting via a VBA macro. Below is part of the macro (see attached for full macro). The macro works OK except, I need to get the property from the summary information (Please see the attached picture)

       

      Function TraverseFeatureFeatures(swFeat As SldWorks.Feature, nLevel As Long)
          Dim swSubFeat As SldWorks.Feature

          Dim swSubSubFeat As SldWorks.Feature

          Dim swSubSubSubFeat As SldWorks.Feature

          PartNumber = ""

          While Not swFeat Is Nothing

          FeatureType = swFeat.GetTypeName

          Select Case FeatureType
            Case "Reference", "Stock"
                 PartNumber = swFeat.Name

                 If FeatureType = "Reference" Then PartNumber = Left$(PartNumber, InStrRev(PartNumber, "-") - 1)

                 REM I NEED TO DISPLAY THE "PartType" PROPERTY HERE???? (eg Laser Cut Profile). PLEASE SEE THE ATTACHED PICTURE
          End Select

          Set swFeat = swFeat.GetNextFeature

          Wend
      End Function

       

      Does anybody know how to do this????

       

      Thanks in advance!

       

      Darren