iLogic-Development/I-LOGIC ROUND SOLID.ILOGICVB at main · TeeVar/iLogic-Development · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
Select Case iProperties.Material

Case "ALM-008"
iProperties.Value("Project", "Description")="ALUM-ROUND SOLID-1/4x12ft"
Parameter("SOLIDDIA") = 0.25 in
Parameter.UpdateAfterChange = True
Parameter("RAWLENGTH") = 12 ft
MessageBox.Show("raw material is 12 ft length" , "Note")

Case "ALM-009"
iProperties.Value("Project", "Description")="ALUM-ROUND SOLID-3/8x12ft"
Parameter("SOLIDDIA") = 0.375 in
Parameter.UpdateAfterChange = True
Parameter("RAWLENGTH") = 12 ft
MessageBox.Show("raw material is 12 ft length" , "Note")

Case "ALM-010"
iProperties.Value("Project", "Description")="ALUM-ROUND SOLID-1/2x12ft"
Parameter("SOLIDDIA") = 0.5 in
Parameter.UpdateAfterChange = True
Parameter("RAWLENGTH") = 12 ft
MessageBox.Show("raw material is 12 ft length" , "Note")

Case "ALM-011"
iProperties.Value("Project", "Description")="ALUM-ROUND SOLID-3/4x12ft"
Parameter("SOLIDDIA") = 0.75 in
Parameter.UpdateAfterChange = True
Parameter("RAWLENGTH") = 12 ft
MessageBox.Show("raw material is 12 ft length" , "Note")

Case "ALM-012"
iProperties.Value("Project", "Description")="ALUM-ROUND SOLID-1x12ft"
Parameter("SOLIDDIA") = 1.0 in
Parameter.UpdateAfterChange = True
Parameter("RAWLENGTH") = 12 ft
MessageBox.Show("raw material is 12 ft length" , "Note")

Case "ALM-013"
iProperties.Value("Project", "Description")="ALUM-ROUND SOLID-1-1/4x12ft"
Parameter("SOLIDDIA") = 1.25 in
Parameter.UpdateAfterChange = True
Parameter("RAWLENGTH") = 12 ft
MessageBox.Show("raw material is 12 ft length" , "Note")

Case "ALM-014"
iProperties.Value("Project", "Description")="ALUM-ROUND SOLID-1-3/8x12ft"
Parameter("SOLIDDIA") = 1.375 in
Parameter.UpdateAfterChange = True
Parameter("RAWLENGTH") = 12 ft
MessageBox.Show("raw material is 12 ft length" , "Note")

Case "ALM-040"
iProperties.Value("Project", "Description")="ALUM-ROUND SOLID-1-1/8x12ft"
Parameter("SOLIDDIA") = 1.125 in
Parameter.UpdateAfterChange = True
Parameter("RAWLENGTH") = 12 ft
MessageBox.Show("raw material is 12 ft length" , "Note")

Case "PLX-057"
iProperties.Value("Project", "Description")="CLEAR ACRYLIC ROD-1/2 X 4 FT"
Parameter("SOLIDDIA") = 0.5 in
Parameter.UpdateAfterChange = True
Parameter("RAWLENGTH") = 4 ft
MessageBox.Show("raw material is 4 ft length" , "Note")

Case "PLX-066"
iProperties.Value("Project", "Description")="CLEAR ACRYLIC ROD-2in X 6 FT"
Parameter("SOLIDDIA") = 2 in
Parameter.UpdateAfterChange = True
Parameter("RAWLENGTH") = 6 ft
MessageBox.Show("raw material is 6 ft length" , "Note")

Case "STE-014"
iProperties.Value("Project", "Description")="STEEL-ROUND SOLID-3/4 X 12 FT"
Parameter("SOLIDDIA") = 0.75 in
Parameter.UpdateAfterChange = True
Parameter("RAWLENGTH") = 12 ft
MessageBox.Show("raw material is 12 ft length" , "Note")

Case "STE-031"
iProperties.Value("Project", "Description")="STAINLESS STEEL 5/16-18 THREADED ROD X 4FT"
Parameter("SOLIDDIA") = 0.3125 in
Parameter.UpdateAfterChange = True
Parameter("RAWLENGTH") = 4 ft
MessageBox.Show("raw material is 4 ft length" , "Note")


Case Else
iProperties.Value("Project", "Description")="need description"

MessageBox.Show("not round solid material, description not updated" , "Warning")

End Select