Hide Table of Contents

Exclude Faces Before Flattening Example (VB.NET)

This example shows how to exclude faces from a Flat-Pattern feature.

' ---------------------------------------------------------------------------
' Preconditions: Verify that the specified part to open exists.
'
' Postconditions:
' 1. Opens the specified part.
' 2. Excludes 22 faces from Flat-Pattern1.
' 3. Unsuppresses Flat-Pattern1.
' 4. Examine the graphics area and FeatureManager design tree.
'
' NOTE: Because the model is used elsewhere,
' do not save changes.
' ---------------------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System
Imports System.Diagnostics


Partial Class SolidWorksMacro

    
Sub main()

        
Dim Part As ModelDoc2
        
Dim boolstatus As Boolean
        Dim longstatus As Long
        Dim LongWarnings As Long
        Dim swFeature As Feature
        
Dim swFlatPatternFeatureData As FlatPatternFeatureData
        
Dim PIDCollection As New Collection

        
If SwApp Is Nothing Then Exit Sub

        Part = SwApp.OpenDoc6("c:\Program Files\SolidWorks Corp\SOLIDWORKS\samples\tutorial\api\FPF.SLDPRT", 1, 0, "", longstatus, LongWarnings)
        
If Part Is Nothing Then ErrorMsg(swApp, "Failed to open FPF.SLDPRT")

        PIDCollection = PIDInitializer()

      
        boolstatus = Part.Extension.SelectByID2(
"Flat-Pattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
        boolstatus = Part.EditUnsuppress2()

        
Dim View As ModelView
        View = Part.ActiveView
        
Dim rect() As Double
        rect = Nothing
        View.GraphicsRedraw(rect)

        boolstatus = Part.Extension.SelectByID2(
"Flat-Pattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
        boolstatus = Part.EditSuppress2()
        
If boolstatus = False Then ErrorMsg(swApp, "EditSuppress Failed")

        Part = SwApp.ActiveDoc
        swFeature = Part.FirstFeature
        
While Not swFeature Is Nothing
            If swFeature.GetTypeName = "FlatPattern" Then

                'Select excluded faces
                swFlatPatternFeatureData = swFeature.GetDefinition

                swFlatPatternFeatureData.AccessSelections(Part,
Nothing)
                
'Pick by PID
                boolstatus = SelectByPID(SwApp, Part, "selection1", PIDCollection, 1, True)
                boolstatus = SelectByPID(SwApp, Part,
"selection2", PIDCollection, 1, True)
                boolstatus = SelectByPID(SwApp, Part,
"selection3", PIDCollection, 1, True)
                boolstatus = SelectByPID(SwApp, Part,
"selection4", PIDCollection, 1, True)
                boolstatus = SelectByPID(SwApp, Part,
"selection5", PIDCollection, 1, True)
                boolstatus = SelectByPID(SwApp, Part,
"selection6", PIDCollection, 1, True)
                boolstatus = SelectByPID(SwApp, Part,
"selection7", PIDCollection, 1, True)
                boolstatus = SelectByPID(SwApp, Part,
"selection8", PIDCollection, 1, True)
                boolstatus = SelectByPID(SwApp, Part,
"selection9", PIDCollection, 1, True)
                boolstatus = SelectByPID(SwApp, Part,
"selection10", PIDCollection, 1, True)
                boolstatus = SelectByPID(SwApp, Part,
"selection11", PIDCollection, 1, True)
                boolstatus = SelectByPID(SwApp, Part,
"selection12", PIDCollection, 1, True)
                boolstatus = SelectByPID(SwApp, Part,
"selection13", PIDCollection, 1, True)
                boolstatus = SelectByPID(SwApp, Part,
"selection14", PIDCollection, 1, True)
                boolstatus = SelectByPID(SwApp, Part,
"selection15", PIDCollection, 1, True)
                boolstatus = SelectByPID(SwApp, Part,
"selection16", PIDCollection, 1, True)
                boolstatus = SelectByPID(SwApp, Part,
"selection17", PIDCollection, 1, True)
                boolstatus = SelectByPID(SwApp, Part,
"selection18", PIDCollection, 1, True)
                boolstatus = SelectByPID(SwApp, Part,
"selection19", PIDCollection, 1, True)
                boolstatus = SelectByPID(SwApp, Part,
"selection20", PIDCollection, 1, True)
                boolstatus = SelectByPID(SwApp, Part,
"selection21", PIDCollection, 1, True)
                boolstatus = SelectByPID(SwApp, Part,
"selection22", PIDCollection, 1, True)

                
Dim faces(0 To 21) As Face2
                
Dim ii As Integer
                For ii = 0 To 21

                    faces(ii) = Part.SelectionManager.GetSelectedObject6(ii + 1, 1)

                
Next ii

                
Dim facesVar As Object
                facesVar = faces

                swFlatPatternFeatureData.ExcludedFaces = facesVar
                boolstatus = swFeature.ModifyDefinition(swFlatPatternFeatureData, Part,
Nothing)
                
If boolstatus = False Then ErrorMsg(swApp, "Selecting excluded faces failed")
          

                boolstatus = Part.Extension.SelectByID2("Flat-Pattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
                boolstatus = Part.EditUnsuppress2()
                
If boolstatus = False Then ErrorMsg(swApp, "EditUnsuppress Failed")

                View.GraphicsRedraw(rect)

            
End If
            swFeature = swFeature.GetNextFeature
        
End While

        Part.ForceRebuild3(False)

    
End Sub

    Function ErrorMsg(ByVal SwApp As SldWorks, ByVal Message As String) As String
        SwApp.SendMsgToUser2(Message, 0, 0)
        SwApp.RecordLine(
"'*** WARNING - General")
        SwApp.RecordLine(
"'*** " & Message)
        SwApp.RecordLine(
"")
        
Return ""
    End Function

    Function PIDInitializer() As Collection

        
Dim PIDCollection As New Collection
        
Dim selection1 As String
        Dim selection2 As String
        Dim selection3 As String
        Dim selection4 As String
        Dim selection5 As String
        Dim selection6 As String
        Dim selection7 As String
        Dim selection8 As String
        Dim selection9 As String
        Dim selection10 As String
        Dim selection11 As String
        Dim selection12 As String
        Dim selection13 As String
        Dim selection14 As String
        Dim selection15 As String
        Dim selection16 As String
        Dim selection17 As String
        Dim selection18 As String
        Dim selection19 As String
        Dim selection20 As String
        Dim selection21 As String
        Dim selection22 As String

        'Constants
        selection1 = "35,29,213,113,218,129,72,162,168,88,152,178,27,137,239,153,80,2,0,0,103,1,0,0,120,1,117,81,77,75,2,81,20,61,38,154,17,45,50,201,69,203,104,27,88,70,33,180,242,3,5,65,153,153,192,133,48,216,248,38,71,199,153,97,102,148,8,130,249,9,45,250,27,109,90,244,7,250,71,253,0,167,243,28,53,44,186,240,222,125,247,220,115,207,125,239,190,143,60,144,6,16,47,98,238,244,113,10,251,152,186,141,129,33,20,97,234,70,106,9,3,89,233,37,147,246,252,249,122,246,214,122,215,214,62,41,59,146,101,150,109,139,80,157,249,102,107,168,8,79,55,146,84,86,166,20,221,144,234,7,60,215,31,195,206,253,88,24,97,2,29,18,170,170,161,111,57,15,205,129,51,180,5,225,69,92,169,162,130,62,238,16,64,192,231,222,199,156,126,128,39,198,14,198,140,107,60,5,152,32,132,11,143,177,199,188,203,140,128,65,76,86,148,112,141,50,46,232,117,52,208,229,234,83,193,131,69,159,196,231,80,209,166,82,23,10,52,236,69,236,156,78,50,59,192,215,113,175,141,76,242,234,205,78,198,174,236,108,82,105,6,155,157,214,86,226,225,150,235,165,21"
        selection1 = selection1 & "6,107,203,193,165,35,32,19,229,54,88,142,152,156,65,145,15,214,70,150,211,49,205,224,215,184,36,253,148,180,194,63,18,188,212,82,34,79,137,238,204,49,70,91,195,150,213,55,100,4,172,150,141,10,100,213,132,111,205,197,240,15,239,138,60,109,197,59,33,175,225,187,83,117,18,214,157,240,178,229,108,255,161,148,45,147,222,92,93,42,166,49,92,154,188,208,143,125,3,250,224,143,245,0,0,0,0,0,0,0,0"
        selection1 = selection1 & ",Type=1"

        selection2 = "35,29,213,113,218,129,72,162,168,88,152,178,27,137,239,153,33,2,0,0,79,1,0,0,120,1,109,81,93,75,2,81,16,61,38,126,68,244,144,69,246,30,189,6,150,80,216,163,41,10,11,201,174,129,15,194,178,93,175,165,174,187,203,186,43,17,4,62,246,3,250,27,189,244,208,31,232,31,245,3,220,206,180,40,25,93,184,119,102,206,156,57,195,204,253,40,1,89,0,201,50,225,75,155,100,176,131,169,223,116,148,54,245,208,86,153,31,24,200,139,21,38,207,243,231,235,201,91,251,189,187,178,105,217,190,148,141,92,87,71,86,28,14,219,3,83,7,182,74,83,121,73,153,182,18,245,93,250,141,199,232,230,110,172,85,148,66,123,132,234,86,20,142,188,251,150,227,13,92,77,120,153,212,234,168,161,143,91,204,160,17,242,237,99,78,235,224,137,177,135,49,227,107,122,51,76,16,193,71,192,56,96,222,103,70,67,17,147,138,10,46,80,197,25,173,141,38,58,188,125,42,4,24,209,166,241,41,44,24,84,234,192,68,23,219,11,118,206,166,153,45,224,235,176,103,32,151,78,189,126,201,40,72,231,33,149,98,184,236,180,58,21,58,87,188,47,229,158,81,164,20"
        selection2 = selection2 & "5,46,128,220,162,184,198,10,196,100,7,37,14,220,137,61,245,176,177,41,97,94,146,49,99,181,176,142,100,83,222,64,190,226,188,237,109,110,85,184,85,114,91,228,174,190,136,33,196,255,219,85,48,209,43,83,175,25,250,83,107,18,53,254,145,59,38,237,128,114,28,251,215,249,6,69,212,126,176,0,0,0,0,0,0,0,0"
        selection2 = selection2 & ",Type=1"

        selection3 = "35,29,213,113,218,129,72,162,168,88,152,178,27,137,239,153,191,1,0,0,37,1,0,0,120,1,101,80,203,74,195,80,16,61,53,168,21,113,225,3,253,2,23,110,132,138,32,212,157,213,98,33,96,73,90,232,162,16,226,205,141,164,198,36,164,169,136,32,100,233,7,248,27,110,92,248,3,254,145,31,208,120,38,215,22,196,129,59,103,230,204,204,25,238,124,238,0,22,128,106,94,209,19,171,6,54,241,144,118,125,165,29,29,122,170,81,211,192,170,160,116,210,94,190,222,14,223,123,31,131,5,154,177,93,25,139,226,88,23,238,44,15,123,129,163,51,79,153,210,154,148,28,79,137,250,22,227,171,167,226,230,118,162,85,97,168,109,82,29,183,200,163,228,238,218,79,130,88,147,158,87,237,14,218,24,99,136,41,52,114,250,49,30,137,62,158,153,39,152,48,191,100,52,197,61,10,164,200,152,103,172,167,172,104,40,114,50,209,194,25,78,113,66,244,208,69,159,111,76,133,12,17,209,228,199,112,97,83,169,15,7,3,108,148,220,108,153,202,10,240,189,63,178,205,215,205,207,107,207,142,117,217,28,82,105,134,152,155,22,214,98,112,206,247,122,48,1"
        selection3 = selection3 & "78,229,112,86,201,195,149,205,37,71,197,250,194,114,170,97,114,161,147,224,207,169,164,245,136,45,123,191,227,12,255,73,52,133,92,218,15,251,216,101,19,0,0,0,0,0,0,0,0"
        selection3 = selection3 & ",Type=1"

        selection4 = "35,29,213,113,218,129,72,162,168,88,152,178,27,137,239,153,33,2,0,0,78,1,0,0,120,1,109,81,193,74,2,81,20,61,38,90,17,45,178,200,246,209,54,176,132,194,150,166,40,8,201,140,129,11,97,152,158,207,82,199,153,97,28,35,130,192,101,31,208,111,180,105,209,15,244,71,125,128,211,185,243,82,48,122,240,222,189,247,220,123,206,101,206,124,22,128,44,128,100,145,240,101,76,50,216,193,36,168,187,74,91,122,224,168,76,10,3,121,137,50,201,243,242,245,118,242,222,252,232,44,163,161,237,11,109,232,121,58,182,103,209,160,217,183,116,232,40,211,202,75,203,114,148,168,239,50,175,61,197,55,119,35,173,98,3,237,17,170,218,113,52,244,239,27,174,223,247,52,225,69,82,169,162,130,30,110,49,133,70,196,183,135,71,70,23,207,172,125,140,88,95,51,155,98,140,24,1,66,214,33,251,1,59,26,138,152,48,74,184,64,25,103,140,14,234,104,243,246,168,16,98,200,104,234,83,216,104,81,169,13,11,29,108,207,185,57,107,58,27,192,247,97,183,133,156,249,234,213,203,137,77,217,60,160,210,12,30,55,45,79,137,201,21,239,107,177"
        selection4 = selection4 & ",219,34,27,217,57,144,155,111,173,176,212,105,122,80,20,63,162,96,98,143,227,154,191,110,151,140,31,147,122,64,9,241,254,175,132,96,98,99,129,18,237,153,175,30,214,204,22,246,37,39,166,100,203,212,145,152,237,247,229,111,158,55,255,217,84,230,108,227,119,19,211,244,44,255,184,169,126,0,76,6,126,165,0,0,0,0,0,0,0,0"
        selection4 = selection4 & ",Type=1"

        selection5 = "35,29,213,113,218,129,72,162,168,88,152,178,27,137,239,153,80,2,0,0,95,1,0,0,120,1,109,82,77,75,2,81,20,61,102,90,17,45,50,201,69,203,104,27,84,70,97,75,63,80,16,146,25,3,23,194,96,207,103,141,142,51,195,56,74,4,129,203,126,64,127,163,77,139,254,64,255,168,31,224,116,174,163,130,213,133,247,238,187,231,158,123,238,157,203,124,102,128,36,128,104,22,241,166,143,18,216,197,208,171,116,148,54,116,207,82,137,57,12,164,197,11,147,246,242,245,118,242,94,251,104,46,125,92,118,32,101,182,227,232,208,28,7,189,90,215,208,190,165,226,84,90,82,134,165,68,125,143,239,242,83,120,123,223,215,42,140,161,125,66,69,51,12,108,247,161,218,113,187,142,38,60,139,10,69,20,208,198,29,70,208,8,120,183,49,161,239,224,153,177,139,62,227,18,95,35,12,16,194,131,207,216,103,222,99,70,67,17,147,138,51,92,33,143,115,122,11,21,52,120,218,84,240,97,211,199,241,41,76,212,169,212,128,129,38,118,166,236,156,140,51,27,192,247,97,171,142,84,252,213,171,155,140,45,233,220,163,210,24,14,59,45,237,140,143,27,15"
        selection5 = selection5 & "8,215,92,171,46,187,74,78,129,212,116,123,133,109,18,147,29,228,100,31,129,55,52,7,97,217,93,95,151,208,143,73,203,82,66,118,255,91,130,67,205,37,50,148,104,140,93,245,184,182,108,169,190,38,99,196,106,105,148,37,171,164,3,123,162,187,127,120,151,228,53,23,188,163,181,129,46,106,255,12,149,39,189,186,24,42,162,49,156,219,242,7,137,163,31,213,140,143,199,0,0,0,0,0,0,0,0"
        selection5 = selection5 & ",Type=1"

        selection6 = "35,29,213,113,218,129,72,162,168,88,152,178,27,137,239,153,89,2,0,0,97,1,0,0,120,1,133,80,203,74,195,80,16,61,181,84,43,226,194,42,86,112,237,86,168,15,148,186,236,131,22,10,150,164,66,23,133,80,147,91,77,155,38,33,185,45,34,8,89,250,1,254,134,27,23,254,128,127,228,7,52,158,219,107,80,233,194,129,123,103,230,204,204,153,199,123,9,200,3,72,23,41,127,234,52,135,45,76,131,230,208,22,134,24,89,118,110,9,3,5,165,85,38,229,233,227,229,232,181,253,214,203,180,46,43,177,172,59,243,237,123,115,22,141,218,142,33,66,203,214,145,117,69,104,88,182,34,223,166,221,120,144,215,183,99,97,75,13,237,16,170,153,50,114,253,187,214,208,119,60,65,120,145,86,107,168,98,128,27,196,16,136,248,15,48,167,30,226,145,190,143,49,253,58,173,24,19,72,4,8,233,135,140,7,140,8,216,196,84,69,5,23,56,195,9,181,133,38,186,124,3,50,132,112,169,181,127,12,19,29,50,117,97,160,135,205,132,157,243,58,178,6,124,238,247,59,122,115,189,248,242,103,198,134,234,60,34,211,12,30,59,101,82,161,113,201,23,151,251,29,181,"
        selection6 = selection6 & "235,129,218,213,119,212,45,79,219,190,252,115,151,66,82,228,100,64,139,185,217,141,21,143,178,243,9,239,205,248,111,174,61,114,213,69,228,206,133,179,194,115,206,154,222,119,207,67,230,53,163,96,106,78,100,195,151,255,182,77,41,172,94,138,106,173,198,222,85,20,174,231,137,213,137,175,152,242,204,78,188,13,202,137,158,50,195,138,196,126,228,11,239,31,144,1,0,0,0,0,0,0,0,0"
        selection6 = selection6 & ",Type=1"

        selection7 = "35,29,213,113,218,129,72,162,168,88,152,178,27,137,239,153,137,2,0,0,111,1,0,0,120,1,125,82,77,75,195,64,16,125,181,180,85,196,131,181,88,193,179,87,161,90,81,234,177,31,180,80,176,36,21,122,40,132,154,108,53,109,154,132,52,45,34,8,57,250,3,252,27,94,60,248,7,252,71,254,128,198,183,221,70,170,5,7,50,111,103,230,237,155,217,221,124,228,129,52,128,120,17,211,19,227,20,118,49,241,26,3,83,104,98,104,152,169,101,26,200,74,148,76,218,243,231,235,201,91,235,189,155,160,218,150,231,182,206,204,53,31,244,89,48,108,89,154,240,13,83,85,178,82,80,51,76,41,190,199,117,253,49,188,185,27,9,51,84,169,125,166,170,122,24,216,238,125,115,224,90,142,96,122,17,87,170,168,160,143,91,76,33,16,208,247,49,39,14,240,196,216,197,136,113,141,171,41,198,8,225,193,103,236,179,238,177,34,96,50,39,119,148,112,137,50,206,136,6,26,232,240,235,83,193,135,77,84,241,41,116,180,169,212,129,134,46,118,34,118,78,171,202,22,240,117,216,107,35,163,14,253,227,201,200,201,206,67,42,205,224,176,83,98,37,46,174,24"
        selection7 = selection7 & "8,77,139,189,182,60,107,129,7,171,137,192,158,11,235,215,157,100,162,109,92,144,215,93,241,142,229,253,4,222,68,31,135,117,55,60,111,185,225,6,189,76,122,147,116,249,28,49,141,176,52,25,167,35,64,74,174,183,62,146,215,236,90,242,25,255,213,83,42,202,43,237,20,14,228,56,182,227,136,205,49,174,201,124,225,24,242,71,248,219,182,16,169,49,214,71,85,194,128,148,46,174,234,137,70,46,41,46,241,27,228,35,148,209,0,0,0,0,0,0,0,0"
        selection7 = selection7 & ",Type=1"

        selection8 = "35,29,213,113,218,129,72,162,168,88,152,178,27,137,239,153,80,2,0,0,97,1,0,0,120,1,101,81,77,75,2,81,20,61,38,126,68,180,200,36,23,45,163,109,96,25,133,45,253,64,65,72,102,12,92,8,131,141,207,26,29,103,134,153,81,34,8,92,246,3,250,27,109,90,244,7,250,71,253,0,167,115,157,148,204,11,239,157,119,207,61,247,222,247,238,251,204,1,73,0,209,34,226,78,140,18,216,195,196,173,247,77,165,169,161,97,38,150,52,144,22,20,37,237,229,235,237,244,189,249,209,89,97,156,118,40,105,150,109,171,80,159,250,195,230,64,83,158,97,198,161,180,132,52,195,148,234,251,60,215,158,194,219,251,145,50,195,152,58,32,85,209,67,223,114,30,26,125,103,96,43,210,139,168,92,65,25,61,220,33,128,130,207,189,135,25,177,143,103,250,14,70,244,171,60,5,24,35,132,11,143,190,199,184,203,136,130,73,78,50,138,184,66,9,231,68,3,117,180,185,122,172,224,193,34,198,254,25,116,180,88,169,13,13,29,236,206,217,57,25,71,118,128,239,163,110,11,169,248,213,235,157,138,140,116,30,178,210,20,54,59,173,172,200,195,13,215,107,161,"
        selection8 = selection8 & "219,202,16,147,115,32,53,207,174,57,25,162,204,32,199,7,183,167,142,249,184,49,41,81,94,83,17,48,91,84,121,170,170,202,183,102,106,176,165,187,164,174,243,171,59,166,174,238,187,19,125,28,214,156,240,162,233,108,126,128,148,45,81,222,160,92,126,51,162,17,150,38,254,255,75,102,201,73,251,194,70,217,173,27,156,80,150,103,73,78,233,143,253,0,130,43,143,212,0,0,0,0,0,0,0,0"
        selection8 = selection8 & ",Type=1"

        selection9 = "35,29,213,113,218,129,72,162,168,88,152,178,27,137,239,153,33,2,0,0,77,1,0,0,120,1,109,81,77,75,2,81,20,61,54,168,69,180,200,34,219,71,219,192,18,10,91,154,226,192,64,50,99,224,66,24,236,249,172,209,113,102,24,199,136,32,112,217,15,232,111,180,105,209,31,232,31,245,3,156,206,109,80,50,186,240,222,185,31,231,158,203,187,239,163,4,24,0,210,69,202,155,152,230,176,141,73,216,236,43,109,235,161,171,114,63,105,160,32,40,76,218,243,231,235,241,155,249,222,89,98,214,182,39,109,158,239,235,196,153,197,67,115,96,235,200,85,89,169,32,37,219,85,162,190,67,191,241,152,92,223,142,180,74,178,212,46,83,117,39,137,189,224,174,213,15,6,190,102,122,145,214,234,168,161,135,27,76,161,17,243,238,225,129,216,199,19,227,0,35,198,87,244,166,24,35,65,136,136,113,196,122,200,138,134,98,78,58,42,56,71,21,167,68,23,77,180,121,122,84,136,224,17,179,248,4,14,44,42,181,97,163,131,173,57,39,27,89,101,3,248,58,232,90,200,103,175,94,221,100,20,101,242,144,74,51,248,156,180,180,10,157,75,158,151,114,215,"
        selection9 = selection9 & "146,133,25,115,32,63,223,92,229,68,73,118,80,226,131,219,179,64,221,175,109,74,152,23,100,76,217,45,172,67,217,84,48,144,175,56,51,131,245,173,10,183,74,110,139,92,194,202,228,187,254,78,45,50,39,122,101,234,53,227,112,226,140,147,198,63,114,71,164,237,83,142,207,254,101,223,67,241,126,177,0,0,0,0,0,0,0,0"
        selection9 = selection9 & ",Type=1"

        selection10 = "35,29,213,113,218,129,72,162,168,88,152,178,27,137,239,153,89,2,0,0,101,1,0,0,120,1,125,82,203,74,195,64,20,61,181,214,7,34,98,21,21,92,187,21,234,3,165,46,251,160,133,130,37,169,208,69,33,212,201,84,211,166,73,72,167,69,4,161,75,63,192,223,112,227,194,31,240,143,252,128,198,51,157,6,148,130,3,153,123,239,185,247,158,251,200,124,230,129,44,128,100,150,240,166,76,50,216,194,48,172,118,133,180,100,207,17,153,57,12,228,180,212,145,60,47,95,111,39,239,245,143,86,42,77,90,158,105,205,113,32,30,237,113,220,171,187,150,140,28,97,60,107,154,208,114,132,38,223,166,94,121,82,183,247,125,41,148,129,118,9,149,108,21,123,193,67,173,27,184,190,36,60,75,138,37,20,209,193,29,70,144,136,121,119,48,161,236,226,153,118,128,62,237,50,181,17,6,80,8,17,209,142,232,15,233,145,16,196,116,70,1,87,184,192,25,165,131,42,154,252,58,100,136,224,81,26,251,20,54,26,100,106,194,66,11,155,83,86,206,26,207,10,240,125,208,110,152,201,205,224,243,155,17,235,186,114,143,76,99,248,172,148,158,2,149,107,12"
        selection10 = selection10 & "6,163,195,118,67,207,122,164,103,13,92,189,203,243,122,160,254,236,37,55,221,96,103,64,141,177,105,190,150,122,223,58,119,79,239,204,243,125,185,156,118,195,144,87,166,173,81,238,76,249,107,72,149,98,171,196,178,11,236,119,43,251,164,43,203,216,155,72,119,169,141,75,230,180,22,45,31,235,178,113,56,180,7,170,18,168,127,187,54,157,38,230,221,144,34,125,41,84,121,126,0,198,133,143,248,0,0,0,0,0,0,0,0"
        selection10 = selection10 & ",Type=1"

        selection11 = "35,29,213,113,218,129,72,162,168,88,152,178,27,137,239,153,191,1,0,0,37,1,0,0,120,1,93,80,203,74,195,80,16,61,53,90,21,113,225,3,253,2,23,110,132,138,32,212,157,213,98,33,96,73,90,232,162,16,226,205,141,164,198,36,164,169,136,32,100,233,7,248,27,110,92,248,3,254,145,31,208,120,166,151,40,58,112,231,204,156,51,15,238,124,108,3,22,128,106,94,209,19,171,6,54,112,159,118,125,165,29,29,122,170,177,160,129,21,65,169,164,61,127,190,30,188,245,222,7,53,154,182,29,105,139,226,88,23,238,44,15,123,129,163,51,79,25,169,41,146,227,41,153,190,201,248,242,177,184,190,153,104,85,24,106,139,84,199,45,242,40,185,189,242,147,32,214,164,231,85,187,131,54,198,24,98,10,141,156,126,140,7,162,143,39,230,9,38,204,47,24,77,113,135,2,41,50,230,25,245,148,138,134,34,39,29,45,156,226,4,199,68,15,93,244,249,198,156,144,33,34,154,252,8,46,108,78,234,195,193,0,235,37,55,91,70,89,2,190,246,70,182,249,186,249,249,194,179,98,85,54,135,156,52,67,204,77,181,181,24,156,241,189,236,143,108,57,152,85,242,11"
        selection11 = selection11 & "2,229,218,15,215,36,39,55,144,83,13,147,115,157,4,127,78,37,165,135,44,217,101,123,125,247,255,35,150,169,255,218,55,254,120,101,23,0,0,0,0,0,0,0,0"
        selection11 = selection11 & ",Type=1"

        selection12 = "35,29,213,113,218,129,72,162,168,88,152,178,27,137,239,153,33,2,0,0,77,1,0,0,120,1,109,81,209,74,2,81,16,61,102,90,17,61,100,145,189,71,175,129,37,20,246,104,138,130,144,236,26,248,32,44,118,189,150,186,238,46,187,107,68,16,236,99,31,208,111,244,210,67,63,208,31,245,1,110,103,188,40,24,93,184,115,102,206,204,156,225,206,253,42,0,89,0,233,60,165,37,166,25,236,98,234,215,251,74,91,122,232,168,204,130,6,242,130,82,201,243,250,253,126,250,209,252,236,44,209,180,29,72,219,200,117,117,108,207,194,97,115,96,233,192,81,38,149,151,148,229,40,81,223,163,95,123,142,111,239,199,90,197,134,218,39,85,181,227,112,228,61,52,250,222,192,213,164,231,105,165,138,10,122,184,67,4,141,144,182,135,39,98,31,47,140,61,140,25,223,208,139,48,65,12,31,1,227,128,121,159,25,13,69,78,58,74,184,68,25,231,68,7,117,180,121,123,84,8,48,34,154,248,12,54,90,84,106,195,66,7,59,9,39,103,77,102,3,248,57,234,182,144,51,175,94,89,86,108,201,228,33,149,102,112,57,105,121,74,116,174,121,223,138,221,214,38,49,15"
        selection12 = selection12 & "5,0,185,100,123,197,137,146,236,160,40,251,8,253,169,61,137,107,222,250,186,164,252,132,101,135,148,144,221,255,149,88,124,22,37,10,148,104,207,60,245,184,182,108,233,190,98,87,196,110,25,116,44,203,246,6,242,155,23,205,127,38,149,89,219,96,45,97,117,150,63,110,136,95,79,192,126,170,0,0,0,0,0,0,0,0"
        selection12 = selection12 & ",Type=1"

        selection13 = "35,29,213,113,218,129,72,162,168,88,152,178,27,137,239,153,80,2,0,0,105,1,0,0,120,1,101,82,205,74,2,81,24,61,102,90,17,45,50,201,69,203,104,27,88,70,33,180,242,7,5,65,25,39,112,33,12,54,222,201,209,113,102,24,71,137,32,240,17,90,244,26,109,90,244,2,189,81,15,224,116,62,167,12,243,131,123,207,253,206,119,190,115,239,220,59,31,25,32,9,32,90,68,156,137,81,2,251,24,123,213,158,169,52,101,25,102,98,73,3,105,65,81,50,158,63,95,207,222,234,239,250,47,198,109,71,210,102,59,142,10,219,211,192,170,247,53,229,27,102,92,74,75,73,51,76,113,63,224,186,242,24,54,239,135,202,12,99,234,144,84,169,29,6,182,251,80,235,185,125,71,145,94,68,197,18,138,232,226,14,19,40,4,156,187,152,17,123,120,98,238,98,200,188,204,213,4,35,132,240,224,51,247,89,247,88,81,48,201,73,71,30,215,40,224,130,104,160,138,22,71,151,14,62,108,98,156,159,163,141,6,157,90,208,160,99,111,206,157,147,113,101,11,248,58,238,52,144,138,191,122,53,83,177,35,59,91,116,154,194,225,78,191,145,231,226,150,227,37,215,105,72,87,"
        selection13 = selection13 & "114,14,164,230,187,43,110,155,156,220,65,142,31,172,15,108,183,105,89,147,127,215,37,242,83,202,178,180,224,1,54,44,228,29,196,34,67,139,214,212,53,7,107,151,45,221,55,84,76,216,45,170,44,85,101,21,216,51,213,223,208,93,81,167,255,232,78,168,171,6,222,184,61,10,43,110,120,89,119,215,223,80,108,11,148,215,40,151,31,34,98,16,150,33,135,252,139,111,254,95,143,250,0,0,0,0,0,0,0,0"
        selection13 = selection13 & ",Type=1"

        selection14 = "35,29,213,113,218,129,72,162,168,88,152,178,27,137,239,153,33,2,0,0,80,1,0,0,120,1,101,81,209,74,2,65,20,61,102,90,17,61,100,145,189,71,175,129,37,20,66,79,150,40,8,202,174,129,15,194,98,227,108,174,109,227,226,174,17,65,176,159,208,67,191,209,75,15,253,64,127,212,7,184,157,235,162,97,93,152,57,115,239,61,247,220,153,59,159,5,32,11,32,153,37,220,137,73,6,219,120,24,215,250,74,91,218,117,84,102,30,6,242,130,194,164,189,124,189,29,191,55,62,58,11,76,203,246,164,204,243,125,29,217,211,137,219,24,88,58,112,84,154,202,75,202,114,148,168,239,240,124,253,20,181,110,71,90,69,105,104,151,161,170,29,77,60,115,87,239,155,129,175,25,158,37,149,42,42,232,225,6,33,52,38,220,123,120,36,246,241,76,223,96,68,255,138,167,16,247,136,48,70,64,63,96,126,204,140,134,98,76,42,74,56,71,25,167,68,7,53,180,185,122,84,8,224,17,83,255,4,54,154,84,106,195,66,7,91,49,59,103,211,204,26,240,125,208,109,34,151,190,122,185,147,177,33,157,93,42,77,225,179,211,194,74,60,92,114,189,22,187,205,117,98,54,6"
        selection14 = selection14 & ",114,241,230,50,38,74,50,131,2,31,220,158,26,53,92,153,148,48,47,200,8,89,45,172,67,153,148,25,200,87,156,53,204,234,84,133,91,38,183,78,46,97,105,188,243,191,174,243,255,165,94,145,122,157,161,103,90,174,27,254,249,36,145,59,98,233,62,229,68,226,215,126,0,85,137,126,215,0,0,0,0,0,0,0,0"
        selection14 = selection14 & ",Type=1"

        selection15 = "35,29,213,113,218,129,72,162,168,88,152,178,27,137,239,153,191,1,0,0,38,1,0,0,120,1,93,80,203,74,195,64,20,61,53,214,7,226,194,7,250,5,46,220,8,21,65,40,184,177,90,44,4,44,73,11,93,4,66,156,76,36,53,78,66,154,22,17,132,124,130,11,127,195,141,11,127,192,63,242,3,26,207,100,8,168,23,230,62,206,185,143,185,247,115,23,176,0,84,203,138,154,182,106,97,11,143,105,63,16,210,145,145,47,90,53,12,180,181,213,153,148,151,175,183,163,247,193,199,168,177,166,108,79,151,197,73,34,11,119,158,71,131,208,145,153,47,12,181,166,41,199,23,186,251,54,253,235,167,226,246,110,42,69,97,160,29,66,61,183,200,99,117,127,19,168,48,145,132,151,85,183,135,46,60,140,49,131,68,78,237,97,65,27,224,153,177,194,148,241,21,189,25,30,80,32,69,198,56,35,159,146,145,16,196,116,69,7,231,56,195,41,173,143,62,134,124,30,59,100,136,105,77,124,2,23,54,59,13,225,96,132,205,146,147,45,195,172,0,223,7,19,219,172,110,54,175,53,51,214,245,228,136,157,230,72,56,169,145,14,157,11,190,215,195,137,93,95,149,251,234,179,1"
        selection15 = selection15 & "40,213,165,84,225,159,179,180,203,13,28,51,117,159,169,77,185,85,242,206,196,155,22,171,36,254,99,252,212,47,249,1,100,81,101,46,0,0,0,0,0,0,0,0"
        selection15 = selection15 & ",Type=1"

        selection16 = "35,29,213,113,218,129,72,162,168,88,152,178,27,137,239,153,33,2,0,0,78,1,0,0,120,1,109,81,93,75,2,65,20,61,182,104,69,244,144,69,246,30,189,6,150,80,8,61,89,162,32,40,171,129,15,194,98,227,108,174,109,227,226,174,17,65,224,79,232,161,191,209,75,15,253,129,254,81,63,192,237,92,7,5,163,129,153,115,63,206,61,151,185,247,43,15,56,0,210,121,202,151,152,102,176,131,199,113,181,175,180,171,125,79,101,22,97,32,39,40,76,158,215,239,247,147,143,250,103,103,137,182,108,95,202,130,48,212,73,123,58,241,235,3,87,71,158,178,169,156,164,92,79,137,250,46,237,155,231,164,121,55,210,42,177,161,61,134,42,237,100,18,152,251,90,223,12,66,205,240,60,45,87,80,70,15,183,136,161,49,225,219,195,19,177,143,23,250,6,35,250,215,180,98,60,32,193,24,17,253,136,249,49,51,26,138,49,169,40,226,2,37,156,17,61,84,209,226,237,81,33,66,64,180,254,41,218,104,80,169,5,23,29,108,207,216,217,177,153,13,224,231,176,219,64,214,254,122,245,146,177,41,157,125,42,77,17,178,211,242,20,105,92,241,190,21,186,13,86,195"
        selection16 = selection16 & ",153,1,217,217,214,42,182,152,52,103,144,231,135,91,83,163,134,107,147,18,230,37,171,98,86,203,164,142,100,82,102,32,171,56,175,155,245,169,10,183,68,110,141,92,194,234,252,215,85,86,40,122,5,234,117,134,129,105,250,126,252,103,73,34,119,76,218,1,229,150,27,183,154,191,82,13,126,208,0,0,0,0,0,0,0,0"
        selection16 = selection16 & ",Type=1"

        selection17 = "35,29,213,113,218,129,72,162,168,88,152,178,27,137,239,153,89,2,0,0,98,1,0,0,120,1,125,81,203,74,195,64,20,61,181,214,7,226,194,42,86,112,237,86,168,15,148,130,171,62,104,161,96,73,42,116,81,8,53,153,106,218,52,41,105,90,68,16,242,9,46,252,13,55,46,252,1,255,200,15,104,60,183,99,80,41,120,33,115,230,190,206,185,119,242,158,7,178,0,146,121,194,147,152,100,176,133,81,80,235,217,202,80,125,203,206,44,194,64,78,80,42,105,79,31,47,71,175,141,183,118,138,186,45,207,182,214,212,183,239,205,105,216,111,56,134,26,91,182,206,172,9,161,97,217,66,190,205,123,245,33,186,190,29,40,59,210,161,29,134,202,102,20,186,254,93,189,231,59,158,98,120,158,148,202,40,161,139,27,76,160,16,242,236,98,70,236,225,145,190,143,1,253,10,111,19,12,17,33,192,152,254,152,249,128,25,5,155,49,233,40,226,2,103,56,33,90,168,161,197,175,75,134,49,92,162,246,143,97,162,73,166,22,12,180,177,25,83,57,171,51,43,192,231,126,167,169,55,215,139,47,78,86,172,139,114,159,76,83,120,84,74,173,200,203,37,191,73,161,211"
        selection17 = selection17 & ",148,93,15,100,87,223,145,183,60,109,248,209,159,119,201,197,27,156,12,168,179,54,237,23,164,42,178,49,223,155,249,223,92,123,228,170,168,208,157,41,103,137,231,156,61,237,111,205,67,214,213,194,96,100,14,163,170,31,253,43,43,191,54,161,17,22,38,210,50,246,174,80,184,158,167,150,39,190,98,201,51,149,164,180,16,235,41,211,216,42,99,63,246,5,241,104,144,18,0,0,0,0,0,0,0,0"
        selection17 = selection17 & ",Type=1"

        selection18 = "35,29,213,113,218,129,72,162,168,88,152,178,27,137,239,153,137,2,0,0,109,1,0,0,120,1,133,81,77,75,2,81,20,61,38,90,17,45,50,201,160,117,219,192,50,10,161,149,31,40,8,201,140,129,11,97,176,153,103,141,142,51,50,142,18,65,48,63,161,69,127,163,77,139,254,64,255,168,31,224,116,174,227,68,214,162,11,239,157,119,239,61,239,220,251,238,123,207,1,105,0,209,34,226,78,140,82,216,193,216,171,247,77,165,169,129,97,166,150,97,32,43,40,76,218,211,199,203,241,107,243,173,147,96,124,45,199,107,237,153,107,222,235,51,127,208,180,52,53,49,204,56,147,21,65,205,48,69,124,151,231,218,67,112,125,59,84,102,16,135,246,24,170,232,129,111,187,119,141,190,107,57,138,225,69,84,174,160,140,30,110,48,133,130,207,189,135,57,177,143,71,250,46,134,244,171,60,77,49,66,0,15,19,250,19,230,61,102,20,76,198,228,70,17,23,40,225,148,104,160,142,54,87,143,10,19,216,196,216,63,129,142,22,149,218,208,208,193,118,200,202,233,56,179,1,124,30,116,91,200,196,143,254,222,201,216,148,202,3,42,205,224,176,82,98,69,30"
        selection18 = selection18 & ",46,185,166,133,110,75,222,154,231,195,170,202,183,231,202,90,155,73,38,220,194,57,121,157,21,239,72,230,227,123,99,125,20,212,220,224,172,233,6,127,232,37,210,27,164,203,119,68,52,194,210,216,36,210,33,32,146,63,75,31,202,152,93,75,190,241,95,189,88,9,16,45,105,123,95,218,177,29,71,253,109,227,138,148,231,85,27,191,203,230,87,109,36,173,38,178,130,34,93,8,227,54,19,141,245,185,126,1,233,70,148,228,0,0,0,0,0,0,0,0"
        selection18 = selection18 & ",Type=1"

        selection19 = "35,29,213,113,218,129,72,162,168,88,152,178,27,137,239,153,33,2,0,0,79,1,0,0,120,1,101,81,205,74,2,81,20,254,76,212,34,90,100,145,237,163,109,96,9,133,208,202,18,5,65,25,13,92,8,195,116,189,147,99,211,117,112,102,34,130,192,71,104,209,107,180,105,209,11,244,70,61,128,211,119,154,52,172,11,247,252,126,231,59,247,158,243,94,4,178,0,146,121,66,73,157,100,176,137,187,73,221,81,218,210,174,173,50,223,97,32,47,90,144,60,79,31,47,135,175,205,183,222,66,167,101,59,82,230,249,190,142,186,241,212,109,14,45,29,216,42,77,229,37,101,217,74,216,183,104,95,62,68,237,235,177,86,81,26,218,102,168,214,141,166,158,185,105,56,102,232,107,134,231,73,181,134,42,6,184,66,8,141,41,229,0,247,212,14,30,233,27,140,233,95,208,10,113,139,8,19,4,244,3,230,39,204,104,40,198,164,162,140,83,84,112,76,109,163,142,14,239,128,12,1,60,234,212,63,66,23,45,50,117,96,161,135,141,25,59,103,211,204,26,240,185,215,111,33,151,254,122,41,137,40,72,103,151,76,49,124,118,90,156,50,141,115,222,231,82,191,37,3,203,2"
        selection19 = selection19 & "06,128,220,108,125,25,19,38,153,65,137,31,238,141,60,211,118,221,240,207,184,4,126,64,216,46,41,248,128,127,20,133,31,138,34,41,58,177,81,163,149,97,75,245,25,17,33,171,165,209,190,12,219,12,101,155,39,77,179,186,24,193,86,136,109,16,187,216,50,93,72,215,223,243,5,111,127,126,222,0,0,0,0,0,0,0,0"
        selection19 = selection19 & ",Type=1"

        selection20 = "35,29,213,113,218,129,72,162,168,88,152,178,27,137,239,153,89,2,0,0,96,1,0,0,120,1,133,80,205,74,2,81,20,254,76,52,35,90,100,161,65,235,182,129,253,80,8,173,252,65,65,72,102,12,92,8,131,221,185,214,232,56,51,140,163,68,16,204,35,180,232,53,218,180,232,5,122,163,30,192,233,187,222,134,10,23,29,184,247,252,127,223,57,231,189,8,100,1,36,203,132,63,117,146,193,54,166,126,115,40,164,33,71,150,200,172,194,64,78,105,85,73,121,250,120,57,122,109,191,245,82,173,219,138,108,235,206,61,113,111,206,195,81,219,54,100,96,9,157,201,43,64,195,18,10,124,135,118,227,33,186,190,29,75,17,233,208,46,67,53,51,10,29,239,174,53,244,108,87,50,188,76,170,53,84,49,192,13,102,144,8,249,15,176,160,30,226,145,190,135,49,253,58,173,25,38,136,224,35,160,31,48,239,51,35,33,24,83,29,21,92,224,12,39,212,22,154,232,242,13,136,16,192,161,214,254,49,76,116,136,212,133,129,30,182,98,50,103,117,102,3,248,44,245,59,122,115,189,248,234,103,197,166,98,30,17,105,14,151,76,169,84,104,92,242,205,202,253,142,218,2"
        selection20 = selection20 & "45,64,237,234,217,234,150,167,109,47,250,115,151,92,92,224,100,64,139,181,233,141,21,14,89,145,141,121,111,230,127,99,237,19,171,46,67,103,33,237,53,156,115,246,244,190,57,15,89,215,12,253,169,57,137,26,94,244,47,109,66,97,247,74,20,181,26,123,79,65,56,174,43,215,39,190,98,201,51,153,242,212,229,88,79,153,198,10,140,253,200,23,242,252,144,27,0,0,0,0,0,0,0,0"
        selection20 = selection20 & ",Type=1"

        selection21 = "35,29,213,113,218,129,72,162,168,88,152,178,27,137,239,153,191,1,0,0,38,1,0,0,120,1,93,80,203,74,195,64,20,61,53,216,86,196,133,15,244,11,92,184,17,42,130,80,112,99,181,88,8,88,146,22,186,8,132,56,153,72,106,76,66,58,21,17,132,124,130,11,127,195,141,11,127,192,63,242,3,26,207,100,136,160,23,230,158,123,207,185,15,230,126,238,0,22,128,106,85,209,19,171,22,54,241,144,13,3,33,29,25,249,162,85,211,192,186,70,93,73,123,249,122,59,124,31,125,76,26,52,109,187,186,45,78,18,169,220,101,17,141,66,71,230,190,48,82,91,75,142,47,244,244,45,198,87,79,234,230,118,46,133,50,212,54,169,129,171,138,56,189,187,14,210,48,145,164,87,85,127,128,62,60,76,177,128,68,65,239,225,145,24,224,153,121,138,57,243,75,70,11,220,67,33,67,206,60,167,158,81,145,16,228,116,71,15,103,56,197,9,209,199,16,99,62,143,19,114,196,68,147,31,195,133,205,73,99,56,152,96,163,228,102,203,40,107,192,247,254,204,54,95,55,63,175,61,43,58,122,115,196,73,75,36,220,212,88,143,193,57,223,235,193,204,238,16,173,146,135,43,1"
        selection21 = selection21 & "87,191,92,155,156,190,129,62,213,52,189,144,105,248,231,84,186,244,136,37,123,108,39,212,246,127,68,183,17,106,252,1,7,155,101,58,0,0,0,0,0,0,0,0"
        selection21 = selection21 & ",Type=1"

        selection22 = "35,29,213,113,218,129,72,162,168,88,152,178,27,137,239,153,33,2,0,0,80,1,0,0,120,1,93,81,93,75,2,81,16,61,38,126,68,244,144,69,246,30,189,6,150,80,8,61,89,162,32,40,171,129,15,194,98,215,187,185,182,93,23,119,55,34,8,252,9,61,244,55,122,233,161,63,208,63,234,7,184,157,113,83,210,129,123,103,230,204,153,51,220,185,95,5,32,13,32,158,199,188,233,227,20,118,240,56,169,13,148,182,180,99,171,212,2,6,178,226,133,73,123,253,126,63,249,104,124,118,151,62,105,219,151,54,215,243,116,216,137,166,78,99,104,105,223,86,73,41,43,37,203,86,162,190,203,248,230,57,108,221,141,181,10,19,104,143,80,181,19,78,93,115,95,31,152,161,167,9,207,227,74,21,21,244,113,139,0,26,83,222,125,60,209,15,240,194,220,96,204,252,154,81,128,7,132,152,192,103,238,179,62,97,69,67,17,147,142,18,46,80,198,25,189,141,26,218,60,125,42,248,112,233,147,252,20,29,52,169,212,134,133,46,182,103,156,156,78,42,91,192,207,97,175,137,76,242,234,213,77,70,78,38,59,84,138,224,113,210,210,74,12,174,120,222,138,189,102,158,62"
        selection22 = selection22 & ",61,3,50,179,252,10,203,17,147,29,20,249,224,238,200,53,45,199,9,54,214,37,244,99,210,14,40,33,187,223,148,16,76,36,10,148,104,71,70,141,214,150,45,221,151,100,4,236,22,214,145,44,219,12,229,55,207,27,102,253,99,132,91,38,183,254,55,137,225,194,248,236,127,246,11,111,79,126,219,0,0,0,0,0,0,0,0"
        selection22 = selection22 & ",Type=1"

        'Store constants in a collection
        PIDCollection.Add(selection1, "selection1")
        PIDCollection.Add(selection2,
"selection2")
        PIDCollection.Add(selection3,
"selection3")
        PIDCollection.Add(selection4,
"selection4")
        PIDCollection.Add(selection5,
"selection5")
        PIDCollection.Add(selection6,
"selection6")
        PIDCollection.Add(selection7,
"selection7")
        PIDCollection.Add(selection8,
"selection8")
        PIDCollection.Add(selection9,
"selection9")
        PIDCollection.Add(selection10,
"selection10")
        PIDCollection.Add(selection11,
"selection11")
        PIDCollection.Add(selection12,
"selection12")
        PIDCollection.Add(selection13,
"selection13")
        PIDCollection.Add(selection14,
"selection14")
        PIDCollection.Add(selection15,
"selection15")
        PIDCollection.Add(selection16,
"selection16")
        PIDCollection.Add(selection17,
"selection17")
        PIDCollection.Add(selection18,
"selection18")
        PIDCollection.Add(selection19,
"selection19")
        PIDCollection.Add(selection20,
"selection20")
        PIDCollection.Add(selection21,
"selection21")
        PIDCollection.Add(selection22,
"selection22")

        
'Pass this back
        PIDInitializer = PIDCollection

    
End Function

    Function SelectByPID(ByVal SwApp As SldWorks, ByVal Part As ModelDoc2, ByVal PIDName As String, ByVal PIDCollection As Collection, Optional ByVal Mark As Long = 0, Optional ByVal Append As Boolean = False) As Boolean

        Dim SelObj As Object
        Dim PID() As Byte
        Dim PIDVariant As Object
        Dim PIDString As String
        Dim EntityType As Long
        Dim i As Integer
        Dim boolstatus As Boolean

        'Get the string from the collection
        PIDString = ""
        PIDString = PIDCollection.Item(PIDName)

        
'Parse the string into an array
        PIDVariant = Split(PIDString, ",")
        
ReDim PID(UBound(PIDVariant))

        
'Change to a byte array
        For i = 0 To (UBound(PIDVariant) - 1)
            PID(i) = PIDVariant(i)
        
Next i

        
        SelObj = Part.Extension.GetObjectByPersistReference((PID))

        
'Get the entity type
        EntityType = Right(PIDVariant(UBound(PIDVariant)), 1)

        
If EntityType = 1 Then boolstatus = SelObj.Select2(Append, Mark)
        
If EntityType = 2 Then boolstatus = SelObj.Annotation.Select3(Append, Mark)
        
If EntityType = 3 Then boolstatus = SelObj.Select(Append, Mark)

        SelectByPID = boolstatus
    
End Function

    
    
Public swApp As SldWorks


End Class



Provide feedback on this topic

SOLIDWORKS welcomes your feedback concerning the presentation, accuracy, and thoroughness of the documentation. Use the form below to send your comments and suggestions about this topic directly to our documentation team. The documentation team cannot answer technical support questions. Click here for information about technical support.

* Required

 
*Email:  
Subject:   Feedback on Help Topics
Page:   Exclude Faces Before Flattening Example (VB.NET)
*Comment:  
*   I acknowledge I have read and I hereby accept the privacy policy under which my Personal Data will be used by Dassault Systèmes

Print Topic

Select the scope of content to print:



x

We have detected you are using a browser version older than Internet Explorer 7. For optimized display, we suggest upgrading your browser to Internet Explorer 7 or newer.

 Never show this message again
x

Web Help Content Version: API Help (English only) 2016 SP05

To disable Web help from within SOLIDWORKS and use local help instead, click Help > Use SOLIDWORKS Web Help.

To report problems encountered with the Web help interface and search, contact your local support representative. To provide feedback on individual help topics, use the “Feedback on this topic” link on the individual topic page.