Public Class PartsList

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim objApp As SolidEdgeFramework.Application = Nothing
        Dim objDoc As SolidEdgeDraft.DraftDocument = Nothing
        Dim objSheets As SolidEdgeDraft.Sheets = Nothing
        Dim objSheet As SolidEdgeDraft.Sheet = Nothing
        Dim objDrawingViews As SolidEdgeDraft.DrawingViews = Nothing
        Dim objDrawingView As SolidEdgeDraft.DrawingView = Nothing
        Dim objPartsLists As SolidEdgeDraft.PartsLists = Nothing
        Dim objPartsList As SolidEdgeDraft.PartsList = Nothing
        Dim bValue As Boolean
        Dim nValue As Long
        Dim sValue As String
        Dim dValue As Double

        Try
            objApp = GetObject(, "SolidEdge.Application")
            objDoc = objApp.ActiveDocument
            objSheets = objDoc.Sheets
            objSheet = objDoc.Sheets.Item(1)
            objDrawingViews = objSheet.DrawingViews
            objDrawingView = objDrawingViews.Item(1)
            objPartsLists = objDoc.PartsLists
            objPartsList = objPartsLists.Item(1)

            'active
            objPartsList.Active = True
            bValue = objPartsList.Active
            Debug.Print(bValue)

            'SetComponentSortPriority
            objPartsList.SetComponentSortPriority(SolidEdgeDraft.PartsListComponentType.igPartsListComponentType_Parts, 0)
            objPartsList.SetComponentSortPriority(SolidEdgeDraft.PartsListComponentType.igPartsListComponentType_Pipes, 1)
            objPartsList.SetComponentSortPriority(SolidEdgeDraft.PartsListComponentType.igPartsListComponentType_PipeFittings, 2)
            objPartsList.SetComponentSortPriority(SolidEdgeDraft.PartsListComponentType.igPartsListComponentType_FrameMembers, 3)

            'Configuration
            objPartsList.Configuration = "default,aitken"
            sValue = objPartsList.Configuration
            Debug.Print(sValue)

            'ConvertDeletedPartsIntoUserDefinedRows
            objPartsList.ConvertDeletedPartsIntoUserDefinedRows = True
            bValue = objPartsList.ConvertDeletedPartsIntoUserDefinedRows
            Debug.Print(bValue)

            'ExpandWeldmentSubAssemblies
            objPartsList.ExpandWeldmentSubAssemblies = True
            bValue = objPartsList.ExpandWeldmentSubAssemblies
            Debug.Print(bValue)

            'FrameRoughCutEndClearance
            objPartsList.FrameRoughCutEndClearance = 0.1
            dValue = objPartsList.FrameRoughCutEndClearance
            Debug.Print(dValue)

            'ItemNumberIncrement
            objPartsList.ItemNumberIncrement = 2
            nValue = objPartsList.ItemNumberIncrement
            Debug.Print(nValue)

            'ItemNumberStart
            objPartsList.ItemNumberStart = 101
            nValue = objPartsList.ItemNumberStart
            Debug.Print(nValue)

            'MarkAmbiguousValues
            objPartsList.MarkAmbiguousValues = True
            bValue = objPartsList.MarkAmbiguousValues
            Debug.Print(bValue)

            'MarkAmbiguousValuesString
            objPartsList.MarkAmbiguousValuesString = "~"
            sValue = objPartsList.MarkAmbiguousValuesString
            Debug.Print(sValue)

            'MarkUnballoonedItems
            objPartsList.MarkUnballoonedItems = True
            bValue = objPartsList.MarkUnballoonedItems
            Debug.Print(bValue)

            'MarkUnballoonedItemsString
            objPartsList.MarkUnballoonedItemsString = "#"
            sValue = objPartsList.MarkUnballoonedItemsString
            Debug.Print(sValue)

            'PipeRoughCutEndClearance
            objPartsList.PipeRoughCutEndClearance = 0.2
            dValue = objPartsList.PipeRoughCutEndClearance
            Debug.Print(dValue)

            'RenumberAccordingToSortOrder
            objPartsList.RenumberAccordingToSortOrder = True
            bValue = objPartsList.RenumberAccordingToSortOrder
            Debug.Print(bValue)

            'SetShowComponent
            objPartsList.SetShowComponent(SolidEdgeDraft.PartsListComponentType.igPartsListComponentType_Parts, True)
            objPartsList.SetShowComponent(SolidEdgeDraft.PartsListComponentType.igPartsListComponentType_Pipes, False)
            objPartsList.SetShowComponent(SolidEdgeDraft.PartsListComponentType.igPartsListComponentType_PipeFittings, True)
            objPartsList.SetShowComponent(SolidEdgeDraft.PartsListComponentType.igPartsListComponentType_FrameMembers, False)

            'TotalLengthPartsList
            objPartsList.TotalLengthPartsList = True
            bValue = objPartsList.TotalLengthPartsList
            Debug.Print(bValue)

            'TotalLengthPartsList_ItemNumberSeparator
            objPartsList.TotalLengthPartsList_ItemNumberSeparator = ":"
            sValue = objPartsList.TotalLengthPartsList_ItemNumberSeparator
            Debug.Print(sValue)

            'UseUniquenessCriteria_CutLength
            objPartsList.UseUniquenessCriteria_CutLength = True
            bValue = objPartsList.UseUniquenessCriteria_CutLength
            Debug.Print(bValue)

            'UseUniquenessCriteria_Mass
            objPartsList.UseUniquenessCriteria_Mass = True
            bValue = objPartsList.UseUniquenessCriteria_Mass
            Debug.Print(bValue)

            'UseUniquenessCriteria_Miter
            objPartsList.UseUniquenessCriteria_Miter = True
            bValue = objPartsList.UseUniquenessCriteria_Miter
            Debug.Print(bValue)

        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class