'
---------------------------------------------------------------------------
' 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:\Users\Public\Documents\SOLIDWORKS\SOLIDWORKS
2018\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