Select Case Type_of_Flange Case "1 KOO 40 / 7x10" Shell_Dia = 40 Shell_THK = 1.5 Main_Dia = 110 Width = 100 Mtg_PCD =85 Pattern1 =6 PCD_1 = 23.80 TubeDia = 10.2 Feature.IsActive("CenterHole") = True Feature.IsActive("CenterTube") = True ' Pattern2 FALSE 'PCD_2 FALSE 'Pattern3 FALSE 'PCD_3 FALSE 'Mtg_PCD_Hole M14 Dia_A=49.7 Dia_B=38 Dia_C=36.2 Dia_D=41.2 THICK_E=18 CUT_F = 3 Feature.IsActive("Pattern2Hole") = False Feature.IsActive("Tube2") = False Feature.IsActive("Tube2Pattern") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.ThreadDesignation("Hole1") = "M14x2" d16 = 16 mm Case "1 KOO 40 / 3x12" Shell_Dia = 40 Shell_THK = 1.5 Main_Dia = 110 Width = 100 Mtg_PCD =85 Pattern1 =3 PCD_1 = 20.5 TubeDia = 12.2 Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False ' Pattern2 FALSE 'PCD_2 FALSE 'Pattern3 FALSE 'PCD_3 FALSE 'Mtg_PCD_Hole M14 Dia_A=49.7 Dia_B=38 Dia_C=36.2 Dia_D=41.2 THICK_E=18 CUT_F = 3 Feature.IsActive("Pattern2Hole") = False Feature.IsActive("Tube2") = False Feature.IsActive("Tube2Pattern") = False Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.ThreadDesignation("Hole1") = "M14x2" d16 = 16 mm Case "1 KOO 40 / 4x12" Shell_Dia = 40 Shell_THK = 1.5 Main_Dia = 110 Width = 100 Mtg_PCD =85 'CenterHole FALSE 'DiaofCenterHole Pattern1 =4 PCD_1 = 20.5 TubeDia =12.2 ' Pattern2 FALSE 'PCD_2 FALSE 'Pattern3 FALSE 'PCD_3 FALSE 'Mtg_PCD_Hole M14 Dia_A=49.7 Dia_B=38 Dia_C=36.2 Dia_D=41.2 THICK_E=18 CUT_F = 3 Feature.IsActive("Pattern2Hole") = False Feature.IsActive("Tube2") = False Feature.IsActive("Tube2Pattern") = False Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M14x2" d16 = 16 mm Case "1 KOO 44 / 6x10" Shell_Dia = 44 Shell_THK = 1.5 Main_Dia= 110 Width= 100 Mtg_PCD=85 ' CenterHole False ' DiaofCenterHole Pattern1=6 PCD_1=25.50 TubeDia=10.2 ' Pattern2 False ' PCD_2 False ' Pattern3 False ' PCD_3 False ' Mtg_PCD_Hole M14 Dia_A=52.7 Dia_B=41 Dia_C=39.7 Dia_D=45 THICK_E=18 CUT_F = 3 Feature.IsActive("Pattern2Hole") = False Feature.IsActive("Tube2") = False Feature.IsActive("Tube2Pattern") = False Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M14x2" d16 = 16 mm Case "1 KOO 44 / 4x12" Shell_Dia = 44 Shell_THK = 1.5 Main_Dia= 110 Width= 100 Mtg_PCD=85 ' CenterHole False ' DiaofCenterHole Pattern1=4 PCD_1=20.50 TubeDia=12.2 ' Pattern2 False ' PCD_2 False ' Pattern3 False ' PCD_3 False ' Mtg_PCD_Hole M14 Dia_A=52.7 Dia_B=41 Dia_C=39.7 Dia_D=45 THICK_E=18 CUT_F = 3 Feature.IsActive("Pattern2Hole") = False Feature.IsActive("Tube2") = False Feature.IsActive("Tube2Pattern") = False Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M14x2" d16 = 16 mm Case "1 KOO 44 / 5x12" Shell_Dia = 44 Shell_THK = 1.5 Main_Dia= 110 Width= 100 Mtg_PCD=85 ' CenterHole False ' DiaofCenterHole Pattern1=5 PCD_1=22.50 TubeDia=12.2 ' Pattern2 False ' PCD_2 False ' Pattern3 False ' PCD_3 False ' Mtg_PCD_Hole M14 Dia_A=52.7 Dia_B=41 Dia_C=39.7 Dia_D=45 THICK_E=18 CUT_F = 3 Feature.IsActive("Pattern2Hole") = False Feature.IsActive("Tube2") = False Feature.IsActive("Tube2Pattern") = False Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M14x2" d16 = 16 mm Case "1 KOO 44 / 7x12" Shell_Dia = 44 Shell_THK = 1.5 Main_Dia= 110 Width= 100 Mtg_PCD=85 ' CenterHole False ' DiaofCenterHole Pattern1=6 PCD_1=25.50 TubeDia=12.2 ' Pattern2 False ' PCD_2 False ' Pattern3 False ' PCD_3 False ' Mtg_PCD_Hole M14 Dia_A=52.7 Dia_B=41 Dia_C=39.7 Dia_D=45 THICK_E=18 CUT_F = 3 Feature.IsActive("Pattern2Hole") = False Feature.IsActive("Tube2") = False Feature.IsActive("Tube2Pattern") = False Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = True Feature.IsActive("CenterTube") = True Feature.ThreadDesignation("Hole1") = "M14x2" d16 = 16 mm Case "1 KOO 44 / 3x14" Shell_Dia = 44 Shell_THK = 1.5 Main_Dia= 110 Width= 100 Mtg_PCD=85 ' CenterHole False ' DiaofCenterHole Pattern1=3 PCD_1=22.50 TubeDia=14.2 ' Pattern2 False ' PCD_2 False ' Pattern3 False ' PCD_3 False ' Mtg_PCD_Hole M14 Dia_A=52.7 Dia_B=41 Dia_C=39.7 Dia_D=45 THICK_E=18 CUT_F = 3 Feature.IsActive("Pattern2Hole") = False Feature.IsActive("Tube2") = False Feature.IsActive("Tube2Pattern") = False Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M14x2" d16 = 16 mm Case "1 KOO 44 / 4x14" Shell_Dia = 44 Shell_THK = 1.5 Main_Dia= 110 Width= 100 Mtg_PCD=85 ' CenterHole False ' DiaofCenterHole Pattern1=4 PCD_1=22.50 TubeDia=14.2 ' Pattern2 False ' PCD_2 False ' Pattern3 False ' PCD_3 False ' Mtg_PCD_Hole M14 Dia_A=52.7 Dia_B=41 Dia_C=39.7 Dia_D=45 THICK_E=18 CUT_F = 3 Feature.IsActive("Pattern2Hole") = False Feature.IsActive("Tube2") = False Feature.IsActive("Tube2Pattern") = False Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M14x2" d16 = 16 mm Case "1 KOO 48 / 3x16" Shell_Dia = 48 Shell_THK = 1.5 Main_Dia=120 Width=100 Mtg_PCD= 95 ' CenterHole False ' DiaofCenterHole Pattern1= 3 PCD_1= 24.5 TubeDia= 16.2 ' Pattern2 False ' PCD_2 False ' Pattern3 False ' PCD_3 False ' Mtg_PCD_Hole M14 Dia_A= 56.7 Dia_B= 45 Dia_C= 43.2 Dia_D= 48.8 THICK_E= 18 CUT_F = 3 Feature.IsActive("Pattern2Hole") = False Feature.IsActive("Tube2") = False Feature.IsActive("Tube2Pattern") = False Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M14x2" d16 = 16 mm Case "1 KOO 52 / 7x14" Shell_Dia = 52 Shell_THK = 1.5 Main_Dia= 120 Width= 100 Mtg_PCD= 95 'CenterHole False 'DiaofCenterHole Pattern1= 6 PCD_1= 31.25 TubeDia= 14.2 'Pattern2 False 'PCD_2 False 'Pattern3 False 'PCD_3 False 'Mtg_PCD_Hole M14 Dia_A= 61.7 Dia_B= 50 Dia_C= 47.2 Dia_D= 52.5 THICK_E= 18 CUT_F = 3 Feature.IsActive("Pattern2Hole") = False Feature.IsActive("Tube2") = False Feature.IsActive("Tube2Pattern") = False Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = True Feature.IsActive("CenterTube") = True Feature.ThreadDesignation("Hole1") = "M14x2" d16 = 16 mm Case "1 KOO 52 / 5x14" Shell_Dia = 52 Shell_THK = 1.5 Main_Dia= 120 Width= 100 Mtg_PCD= 95 'CenterHole False 'DiaofCenterHole Pattern1= 5 PCD_1= 31.25 TubeDia= 14.2 'Pattern2 False 'PCD_2 False 'Pattern3 False 'PCD_3 False 'Mtg_PCD_Hole M14 Dia_A= 61.7 Dia_B= 50 Dia_C= 47.2 Dia_D= 52.5 THICK_E= 18 CUT_F = 3 Feature.IsActive("Pattern2Hole") = False Feature.IsActive("Tube2") = False Feature.IsActive("Tube2Pattern") = False Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M14x2" d16 = 16 mm Case "1 KOO 52 / 4x16" Shell_Dia = 52 Shell_THK = 1.5 Main_Dia= 120 Width= 100 Mtg_PCD= 95 'CenterHole False 'DiaofCenterHole Pattern1= 4 PCD_1= 31.25 TubeDia= 16.2 'Pattern2 False 'PCD_2 False 'Pattern3 False 'PCD_3 False 'Mtg_PCD_Hole M14 Dia_A= 61.7 Dia_B= 50 Dia_C= 47.2 Dia_D= 52.5 THICK_E= 18 CUT_F = 3 Feature.IsActive("Pattern2Hole") = False Feature.IsActive("Tube2") = False Feature.IsActive("Tube2Pattern") = False Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M14x2" d16 = 16 mm Case "1 KOO 60 / 6x16" Shell_Dia = 60 Shell_THK = 2 Main_Dia= 130 Width= 120 Mtg_PCD= 105 ' CenterHole ' DiaofCenterHole Pattern1= 6 PCD_1= 36 TubeDia= 16.2 'Pattern2 False 'PCD_2 False 'Pattern3 False 'PCD_3 False 'Mtg_PCD_Hole M14 Dia_A= 68.7 Dia_B= 57 Dia_C= 54.5 Dia_D= 60.8 THICK_E= 18 CUT_F = 3 Feature.IsActive("Pattern2Hole") = False Feature.IsActive("Tube2") = False Feature.IsActive("Tube2Pattern") = False Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M14x2" d16 = 16 mm Case "1 KOO 60 / 7x14" Shell_Dia = 60 Shell_THK = 2 Main_Dia= 130 Width= 120 Mtg_PCD= 105 ' CenterHole ' DiaofCenterHole Pattern1= 6 PCD_1= 36 TubeDia= 14.2 'Pattern2 False 'PCD_2 False 'Pattern3 False 'PCD_3 False 'Mtg_PCD_Hole M14 Dia_A= 68.7 Dia_B= 57 Dia_C= 54.5 Dia_D= 60.8 THICK_E= 18 CUT_F = 3 Feature.IsActive("Pattern2Hole") = False Feature.IsActive("Tube2") = False Feature.IsActive("Tube2Pattern") = False Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = True Feature.IsActive("CenterTube") = True Feature.ThreadDesignation("Hole1") = "M14x2" d16 = 16 mm Case "1 KOO 60 / 12x12" Shell_Dia = 60 Shell_THK = 2 Main_Dia= 130 Width= 120 Mtg_PCD= 105 ' CenterHole ' DiaofCenterHole Pattern1= 3 PCD_1= 16 TubeDia= 12.2 Pattern2 = 9 PCD_2 = 40 'Pattern3 False 'PCD_3 False 'Mtg_PCD_Hole M14 Dia_A= 68.7 Dia_B= 57 Dia_C= 54.5 Dia_D= 60.8 THICK_E= 18 CUT_F= 3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M14x2" d16 = 16 mm Case "1 KOO 70 / 12x12" Shell_Dia = 70 Shell_THK = 2 Main_Dia=145 Width=120 Mtg_PCD=115 'CenterHole= 'DiaofCenterHole= Pattern1=3 PCD_1=18 TubeDia=12.2 Pattern2=9 PCD_2=47 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=77.7 Dia_B=66 Dia_C=64.2 Dia_D=70.6 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 70 / 12x14" Shell_Dia = 70 Shell_THK = 2 Main_Dia=145 Width=120 Mtg_PCD=115 'CenterHole= 'DiaofCenterHole= Pattern1=3 PCD_1=19 TubeDia=14.2 Pattern2=9 PCD_2=48 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=77.7 Dia_B=66 Dia_C=64.2 Dia_D=70.6 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 70 / 16x12" Shell_Dia = 70 Shell_THK = 2 Main_Dia=145 Width=120 Mtg_PCD=115 'CenterHole= 'DiaofCenterHole= Pattern1=4 PCD_1=20 TubeDia=12.2 Pattern2=12 PCD_2=50 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=77.7 Dia_B=66 Dia_C=64.2 Dia_D=70.6 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 70 / 7x16" Shell_Dia = 70 Shell_THK = 2 Main_Dia=145 Width=120 Mtg_PCD=115 'CenterHole= 'DiaofCenterHole= Pattern1=6 PCD_1=36 TubeDia=16.2 'Pattern2=12 'PCD_2=47 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=77.7 Dia_B=66 Dia_C=64.2 Dia_D=70.6 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = False Feature.IsActive("Tube2") = False Feature.IsActive("Tube2Pattern") = False Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = True Feature.IsActive("CenterTube") = True Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 70 / 7x18" Shell_Dia = 70 Shell_THK = 2 Main_Dia=145 Width=120 Mtg_PCD=115 'CenterHole= 'DiaofCenterHole= Pattern1=6 PCD_1=40 TubeDia=18.2 'Pattern2=12 'PCD_2=47 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=77.7 Dia_B=66 Dia_C=64.2 Dia_D=70.6 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = False Feature.IsActive("Tube2") = False Feature.IsActive("Tube2Pattern") = False Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = True Feature.IsActive("CenterTube") = True Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 70 / 4x22" Shell_Dia = 70 Shell_THK = 2 Main_Dia=145 Width=120 Mtg_PCD=115 'CenterHole= 'DiaofCenterHole= Pattern1=4 PCD_1=36 TubeDia=22.2 Pattern2=12 'PCD_2=48 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=77.7 Dia_B=66 Dia_C=64.2 Dia_D=70.6 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = False Feature.IsActive("Tube2") = False Feature.IsActive("Tube2Pattern") = False Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 76 / 14x12" Shell_Dia = 76 Shell_THK = 2 Main_Dia=155 Width=140 Mtg_PCD=125 'CenterHole= 'DiaofCenterHole= Pattern1=3 PCD_1=23 TubeDia=14.2 Pattern2=9 PCD_2=55 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=83.7 Dia_B=72 Dia_C=70.3 Dia_D=76.8 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 76 / 15x12" Shell_Dia = 76 Shell_THK = 2 Main_Dia=155 Width=140 Mtg_PCD=125 'CenterHole= 'DiaofCenterHole= Pattern1=4 PCD_1=23 TubeDia=14.2 Pattern2=9 PCD_2=55 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=83.7 Dia_B=72 Dia_C=70.3 Dia_D=76.8 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 76 / 19x12" Shell_Dia = 76 Shell_THK = 2 Main_Dia=155 Width=140 Mtg_PCD=125 'CenterHole= 'DiaofCenterHole= Pattern1=6 PCD_1=28 TubeDia=12.2 Pattern2=12 PCD_2=54 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=83.7 Dia_B=72 Dia_C=70.3 Dia_D=76.8 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = True Feature.IsActive("CenterTube") = True Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 76 / 7x20" Shell_Dia = 76 Shell_THK = 2 Main_Dia=155 Width=140 Mtg_PCD=125 'CenterHole= 'DiaofCenterHole= Pattern1=6 PCD_1=42 TubeDia=20.2 'Pattern2=12 'PCD_2=54 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=83.7 Dia_B=72 Dia_C=70.3 Dia_D=76.8 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = False Feature.IsActive("Tube2") = False Feature.IsActive("Tube2Pattern") = False Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = True Feature.IsActive("CenterTube") = True Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 76 / 12x14" Shell_Dia = 76 Shell_THK = 2 Main_Dia=155 Width=140 Mtg_PCD=125 'CenterHole= 'DiaofCenterHole= Pattern1=4 PCD_1=23 TubeDia=14.2 Pattern2=8 PCD_2=55 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=83.7 Dia_B=72 Dia_C=70.3 Dia_D=76.8 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 76 / 5x22" Shell_Dia = 76 Shell_THK = 2 Main_Dia=155 Width=140 Mtg_PCD=125 'CenterHole= 'DiaofCenterHole= Pattern1=5 PCD_1=44 TubeDia=22.2 'Pattern2=12 'PCD_2=54 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=83.7 Dia_B=72 Dia_C=70.3 Dia_D=76.8 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = False Feature.IsActive("Tube2") = False Feature.IsActive("Tube2Pattern") = False Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 76 / 12x14" Shell_Dia = 76 Shell_THK = 2 Main_Dia=155 Width=140 Mtg_PCD=125 'CenterHole= 'DiaofCenterHole= Pattern1=5 PCD_1=24 TubeDia=14.2 Pattern2=9 PCD_2=56 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=83.7 Dia_B=72 Dia_C=70.3 Dia_D=76.8 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 85 / 19x14" Shell_Dia = 85 Shell_THK = 2 Main_Dia=165 Width=140 Mtg_PCD=135 'CenterHole= 'DiaofCenterHole= Pattern1=6 PCD_1=32.5 TubeDia=14.2 Pattern2=12 PCD_2=63 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=92.7 Dia_B=81 Dia_C=79.2 Dia_D=85.9 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = True Feature.IsActive("CenterTube") = True Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 85 / 19x12" Shell_Dia = 85 Shell_THK = 2 Main_Dia=165 Width=140 Mtg_PCD=135 'CenterHole= 'DiaofCenterHole= Pattern1=6 PCD_1=30.5 TubeDia=12.2 Pattern2=12 PCD_2=61 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=92.7 Dia_B=81 Dia_C=79.2 Dia_D=85.9 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = True Feature.IsActive("CenterTube") = True Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 85 / 14x14" Shell_Dia = 85 Shell_THK = 2 Main_Dia=165 Width=140 Mtg_PCD=135 'CenterHole= 'DiaofCenterHole= Pattern1=4 PCD_1=31 TubeDia=14.2 Pattern2=10 PCD_2=62 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=92.7 Dia_B=81 Dia_C=79.2 Dia_D=85.9 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 85 / 15x14" Shell_Dia = 85 Shell_THK = 2 Main_Dia=165 Width=140 Mtg_PCD=135 'CenterHole= 'DiaofCenterHole= Pattern1=5 PCD_1=32 TubeDia=14.2 Pattern2=10 PCD_2=62 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=92.7 Dia_B=81 Dia_C=79.2 Dia_D=85.9 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 85 / 16x14" Shell_Dia = 85 Shell_THK = 2 Main_Dia=165 Width=140 Mtg_PCD=135 'CenterHole= 'DiaofCenterHole= Pattern1=4 PCD_1=32 TubeDia=14.2 Pattern2=12 PCD_2=62 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=92.7 Dia_B=81 Dia_C=79.2 Dia_D=85.9 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 85 / 12x16" Shell_Dia = 85 Shell_THK = 2 Main_Dia=165 Width=140 Mtg_PCD=135 'CenterHole= 'DiaofCenterHole= Pattern1=3 PCD_1=32.5 TubeDia=16.2 Pattern2=9 PCD_2=63 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=92.7 Dia_B=81 Dia_C=79.2 Dia_D=85.9 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 85 / 14x16" Shell_Dia = 85 Shell_THK = 2 Main_Dia=165 Width=140 Mtg_PCD=135 'CenterHole= 'DiaofCenterHole= Pattern1=4 PCD_1=32.5 TubeDia=16.2 Pattern2=10 PCD_2=63 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=92.7 Dia_B=81 Dia_C=79.2 Dia_D=85.9 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 85 / 7x22" Shell_Dia = 85 Shell_THK = 2 Main_Dia=165 Width=140 Mtg_PCD=135 'CenterHole= 'DiaofCenterHole= Pattern1=7 PCD_1=42.5 TubeDia=22.2 'Pattern2=10 'PCD_2=63 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=92.7 Dia_B=81 Dia_C=79.2 Dia_D=85.9 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = False Feature.IsActive("Tube2") = False Feature.IsActive("Tube2Pattern") = False Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = True Feature.IsActive("CenterTube") = True Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 85 / 5x25" Shell_Dia = 85 Shell_THK = 2 Main_Dia=165 Width=140 Mtg_PCD=135 'CenterHole= 'DiaofCenterHole= Pattern1=5 PCD_1=40.5 TubeDia=25.2 'Pattern2=10 'PCD_2=63 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=92.7 Dia_B=81 Dia_C=79.2 Dia_D=85.9 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = False Feature.IsActive("Tube2") = False Feature.IsActive("Tube2Pattern") = False Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case “1 KOO 88 / 16x14” Shell_Dia = 88 Shell_THK = 2 Main_Dia=165 Width=140 Mtg_PCD=135 'CenterHole= 'DiaofCenterHole= Pattern1=4 PCD_1=28.5 TubeDia=16.2 Pattern2=12 PCD_2=66.3 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M18 Dia_A=95.7 Dia_B=84 Dia_C=83.1 Dia_D=90 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case “1 KOO 88 / 19x14” Shell_Dia = 88 Shell_THK = 2 Main_Dia=165 Width=140 Mtg_PCD=135 'CenterHole= 'DiaofCenterHole= Pattern1=6 PCD_1=36 TubeDia=16.2 Pattern2=12 PCD_2=65 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M18 Dia_A=95.7 Dia_B=84 Dia_C=83.1 Dia_D=90 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = True Feature.IsActive("CenterTube") = True Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case “1 KOO 88 / 12x16” Shell_Dia = 88 Shell_THK = 2 Main_Dia=165 Width=140 Mtg_PCD=135 'CenterHole= 'DiaofCenterHole= Pattern1=3 PCD_1=25 TubeDia=16.2 Pattern2=9 PCD_2=62 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M18 Dia_A=95.7 Dia_B=84 Dia_C=83.1 Dia_D=90 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case “1 KOO 88 / 15x16” Shell_Dia = 88 Shell_THK = 2 Main_Dia=165 Width=140 Mtg_PCD=135 'CenterHole= 'DiaofCenterHole= Pattern1=5 PCD_1=30.5 TubeDia=16.2 Pattern2=10 PCD_2=64.3 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M18 Dia_A=95.7 Dia_B=84 Dia_C=83.1 Dia_D=90 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case “1 KOO 88 / 16x16” Shell_Dia = 88 Shell_THK = 2 Main_Dia=165 Width=140 Mtg_PCD=135 'CenterHole= 'DiaofCenterHole= Pattern1=4 PCD_1=30 TubeDia=16.2 Pattern2=12 PCD_2=64 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M18 Dia_A=95.7 Dia_B=84 Dia_C=83.1 Dia_D=90 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case “1 KOO 88 / 04x28” Shell_Dia = 88 Shell_THK = 2 Main_Dia=165 Width=140 Mtg_PCD=135 'CenterHole= 'DiaofCenterHole= Pattern1=4 PCD_1=48 TubeDia=28.2 'Pattern2=12 'PCD_2=65 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M18 Dia_A=95.7 Dia_B=84 Dia_C=83.1 Dia_D=90 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = False Feature.IsActive("Tube2") = False Feature.IsActive("Tube2Pattern") = False Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 104 / 16x16" Shell_Dia = 104 Shell_THK = 2 Main_Dia=185 Width=160 Mtg_PCD=155 'CenterHole=True 'DiaofCenterHole= Pattern1=4 PCD_1=39.5 TubeDia=16.2 Pattern2=12 PCD_2=78 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=111.7 Dia_B=100 Dia_C=98.2 Dia_D=105 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 104 / 19x16" Shell_Dia = 104 Shell_THK = 2 Main_Dia=185 Width=160 Mtg_PCD=155 'CenterHole=True 'DiaofCenterHole= Pattern1=6 PCD_1=39.5 TubeDia=16.2 Pattern2=12 PCD_2=78 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=111.7 Dia_B=100 Dia_C=98.2 Dia_D=105 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = True Feature.IsActive("CenterTube") = True Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 104 / 15x18" Shell_Dia = 104 Shell_THK = 2 Main_Dia=185 Width=160 Mtg_PCD=155 'CenterHole=True 'DiaofCenterHole= Pattern1=5 PCD_1=38 TubeDia=18.2 Pattern2=10 PCD_2=76 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=111.7 Dia_B=100 Dia_C=98.2 Dia_D=105 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "1 KOO 104 / 16x18" Shell_Dia = 104 Shell_THK = 2 Main_Dia=185 Width=160 Mtg_PCD=155 'CenterHole=True 'DiaofCenterHole= Pattern1=6 PCD_1=42.5 TubeDia=18.2 Pattern2=10 PCD_2=80 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M16 Dia_A=111.7 Dia_B=100 Dia_C=98.2 Dia_D=105 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = False Feature.IsActive("CenterTube") = False Feature.ThreadDesignation("Hole1") = "M16x2" d16 = 18 mm Case "114" Shell_Dia = 114 Shell_THK = 2.6 Main_Dia=185 Width=170 Mtg_PCD=155 'CenterHole=True 'DiaofCenterHole= Pattern1=6 PCD_1=42 TubeDia=16.2 Pattern2=12 PCD_2=84 'Pattern3 = False 'PCD_3 = False 'Mtg_PCD_Hole=M16 Dia_A=120.7 Dia_B=109 Dia_C=107.5 Dia_D=115.5 THICK_E=23 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False 'Feature.ThreadDesignation("Hole1") = "M16x2" 'd16 = 18 mm Case "129" Shell_Dia = 129 Shell_THK = 2 Main_Dia=225 Width=200 Mtg_PCD=185 'CenterHole=True 'DiaofCenterHole= Pattern1=6 PCD_1=48 TubeDia=16.2 Pattern2=12 PCD_2=93 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M22 Dia_A=136.7 Dia_B=125 Dia_C=124.5 Dia_D=130.5 THICK_E=28 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False 'Feature.ThreadDesignation("Hole1") = "M22x2" 'd16 = 24 mm Case "1 KOO 133 / 19x22" Shell_Dia = 133 Shell_THK = 2 Main_Dia=225 Width=200 Mtg_PCD=185 'CenterHole=True 'DiaofCenterHole= Pattern1=6 PCD_1=50 TubeDia=19.2 Pattern2=12 PCD_2=99 'Pattern3=False 'PCD_3=False 'Mtg_PCD_Hole=M23 Dia_A=136.7 Dia_B=125 Dia_C=126.5 Dia_D=134.5 THICK_E=28 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = True Feature.IsActive("CenterTube") = True 'Feature.ThreadDesignation("Hole1") = "M22x2" 'd16 = 24 mm Case "1 KOO 139 / 37x16" Shell_Dia = 139 Shell_THK = 2.6 Main_Dia=225 Width=200 Mtg_PCD=185 'CenterHole=True 'DiaofCenterHole= Pattern1=6 PCD_1=37 TubeDia=16.2 Pattern2=12 PCD_2=72 Pattern3=18 PCD_3=109 'Mtg_PCD_Hole=M23 Dia_A=141.7 Dia_B=130 Dia_C=129 Dia_D=141.5 THICK_E=28 CUT_F=3 Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = True Feature.IsActive("Tube3") = True Feature.IsActive("Pattern3Hole") = True Feature.IsActive("CenterHole") = True Feature.IsActive("CenterTube") = True Feature.IsActive("Hole1") = True Case "1 KOO 139 / 19x22" Shell_Dia = 139 Shell_THK = 2 Main_Dia=225 Width=200 Mtg_PCD=185 'CenterHole=True 'DiaofCenterHole= Pattern1=7 PCD_1=52 TubeDia=19.2 Pattern2=15 PCD_2=101 'Pattern3=18 'PCD_3=109 'Mtg_PCD_Hole=M23 Dia_A=141.7 Dia_B=130 Dia_C=129 Dia_D=141.5 THICK_E=28 CUT_F=3 'Feature.ThreadDesignation("Hole1") = "M22x2" 'd16 = 24 mm Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = True Feature.IsActive("CenterTube") = True Feature.IsActive("Hole1") = True Case "1 KOO 154 / 37x18" Shell_Dia = 154 Shell_THK = 2 Main_Dia=250 Width=235 Mtg_PCD=210 'CenterHole=True 'DiaofCenterHole= Pattern1=6 PCD_1=44 TubeDia=18.2 Pattern2=12 PCD_2=85 Pattern3=18 PCD_3=126 'Mtg_PCD_Hole=M23 Dia_A=161.7 Dia_B=150 Dia_C=148 Dia_D=155.5 THICK_E=28 CUT_F = 3 'Feature.ThreadDesignation("Hole1") = "M22x2" 'd16 = 24 mm Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = True Feature.IsActive("Tube3") = True Feature.IsActive("Pattern3Hole") = True Feature.IsActive("CenterHole") = True Feature.IsActive("CenterTube") = True Case "1 KOO 154 / 15x28" Shell_Dia = 154 Shell_THK = 2 Main_Dia=250 Width=235 Mtg_PCD=210 'CenterHole=True 'DiaofCenterHole= Pattern1=8 PCD_1=53 TubeDia=15.2 Pattern2=16 PCD_2=102 'Pattern3=16 'PCD_3=110 'Mtg_PCD_Hole=M23 Dia_A=161.7 Dia_B=150 Dia_C=148 Dia_D=155.5 THICK_E=28 CUT_F = 3 'Feature.ThreadDesignation("Hole1") = "M22x2" 'd16 = 24 mm Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = False Feature.IsActive("Tube3") = False Feature.IsActive("Pattern3Hole") = False Feature.IsActive("CenterHole") = True Feature.IsActive("CenterTube") = True Case "1 KOO 168 / 37x20" Shell_Dia = 168 Shell_THK = 2 Main_Dia=265 Width=235 Mtg_PCD=225 'CenterHole=True 'DiaofCenterHole= Pattern1=6 PCD_1=45 TubeDia=20.2 Pattern2=12 PCD_2=89 Pattern3=18 PCD_3=132 'Mtg_PCD_Hole=M23 Dia_A=173.7 Dia_B=162 Dia_C=162.5 Dia_D=169.5 THICK_E=28 CUT_F = 3 'Feature.ThreadDesignation("Hole1") = "M22x2" 'd16 = 24 mm Feature.IsActive("Pattern2Hole") = True Feature.IsActive("Tube2") = True Feature.IsActive("Tube2Pattern") = True Feature.IsActive("Tube3Pattern") = True Feature.IsActive("Tube3") = True Feature.IsActive("Pattern3Hole") = True Feature.IsActive("CenterHole") = True Feature.IsActive("CenterTube") = True End Select