API tools faq
paste
View difference between Paste ID: vg4Bixzq and sjkCbENn
SHOW: | | - or go back to the newest paste.
1-
'Entrance
1+
'Nuovi Moduli
2
3-
Sub S_1036865A(ByVal NND As Integer)

3+
Sub S_10357360(ByVal NND As Integer)

4-
ACT_MOD = "1036865"

4+
ACT_MOD = "1035736"

5
6
7
8
L = INPUT_NUM(NND, "L", L, ACT_MOD)

9
H = INPUT_NUM(NND, "H", H, ACT_MOD)

10
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

11
12-
EN_ASL = 10

12+
13-
R01 = T_HEX(63.3, L / 2, 11) & T_HEX(63.3 + 132, L / 2, 11)

13+
R01 = T_SMUS(-0.2, -0.2) & T_SMUS(H + 0.2, -0.2) & T_SMUS(L + 0.2, -0.2) & T_SMUS(H + 0.2, L + 0.2)

14-
R02 = T_SLOT(M1, 13.5, 16, EN_ASL, 0) & T_SLOT(M1, L - 13.5, 16, EN_ASL, 0)

14+
15-
R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)

15+
fn = R01

16-
R04 = T_RECT1(-2.5, 7.5, 27, L - 27)

16+
17-
R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)

17+
18
P1 = 250

19
P2 = H - 400

20
MVAL = 500

21
STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn

22
Call SAVE_SUB(NND, STRINGA)

23
24
POSINTAB = def_posintab(NND)

25
Call CUT_END_S(H, L, "0", POSINTAB)

26
Call FVTPT(3, NND, "")

27
Call CUT_END_S(H, L, "B", POSINTAB)

28
Call FVTPT(3, NND, "B")

29
Call CUT_END_S(H, L, "C", POSINTAB)

30
Call FVTPT(3, NND, "C")

31
32
33-
Call CUT_END_T_special(H, L, 0, 0, "C", POSINTAB)

33+
34
35
36
37
Sub S_10229750(ByVal NND As Integer)

38-
Sub S_1036865B(ByVal NND As Integer)

38+
ACT_MOD = "1022975"

39-
ACT_MOD = "1036865"

39+
40
41
42
L = INPUT_NUM(NND, "L", L, ACT_MOD)

43
H = INPUT_NUM(NND, "H", H, ACT_MOD)

44
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

45
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)

46-
If L <> 156.6 Then MsgBox ("ERRORE NELLO SVILUPPO DEL COMPONENTE " & ACT_MOD)

46+
47
48-
EN_ASL = 10

48+
49-
R01 = T_HEX(63.3, L / 2, 11) & T_HEX(63.3 + 132, L / 2, 11)

49+
50-
R02 = T_SLOT(M1, 13.75, 16, EN_ASL, 0) & T_SLOT(M1, L - 13.75, 16, EN_ASL, 0)

50+
R01 = T_SLOT(30, L - 51.7, 10, 5, 90)

51-
R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)

51+
R01 = R01 & T_SLOT(30 + M1, L - 51.7, 10, 5, 90)

52-
R04 = T_RECT1(-2.5, 7.5, 27.5, L - 27.5)

52+
R01 = R01 & T_SLOT(30 + 2 * M1, L - 51.7, 10, 5, 90)

53-
R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)

53+
R01 = R01 & T_SLOT(30 + 3 * M1, L - 51.7, 10, 5, 90)

54
R01 = R01 & T_SLOT(30 + 4 * M1, L - 51.7, 10, 5, 90)

55
R01 = R01 & T_SLOT(30 + 5 * M1, L - 51.7, 10, 5, 90)

56
57
58
R02 = T_CIRC(30, L - 3.75, 14)

59
R02 = R02 & T_CIRC(30 + M1, L - 3.75, 14)

60
R02 = R02 & T_CIRC(30 + 2 * M1, L - 3.75, 14)

61
R02 = R02 & T_CIRC(30 + 3 * M1, L - 3.75, 14)

62
R02 = R02 & T_CIRC(30 + 4 * M1, L - 3.75, 14)

63
R02 = R02 & T_CIRC(30 + 5 * M1, L - 3.75, 14)

64
65
' GLI SMUSSI

66
67
R03 = T_SMUS(30 + 6.25, L)

68
R03 = R03 & T_SMUS(30 - 6.25, L)

69-
Call CUT_END_T_special(H, L, 0, 0, "C", POSINTAB)

69+
70
R03 = R03 & T_SMUS(30 + M1 + 6.25, L)

71
R03 = R03 & T_SMUS(30 + M1 - 6.25, L)

72
73
R03 = R03 & T_SMUS(30 + 2 * M1 + 6.25, L)

74-
Sub S_1036865C(ByVal NND As Integer)

74+
R03 = R03 & T_SMUS(30 + 2 * M1 - 6.25, L)

75-
ACT_MOD = "1036865"

75+
76
R03 = R03 & T_SMUS(30 + 3 * M1 + 6.25, L)

77
R03 = R03 & T_SMUS(30 + 3 * M1 - 6.25, L)

78
79
R03 = R03 & T_SMUS(30 + 4 * M1 + 6.25, L)

80
R03 = R03 & T_SMUS(30 + 4 * M1 - 6.25, L)

81
82
R03 = R03 & T_SMUS(30 + 5 * M1 + 6.25, L)

83-
If L <> 156.6 Then MsgBox ("ERRORE NELLO SVILUPPO DEL COMPONENTE " & ACT_MOD)

83+
R03 = R03 & T_SMUS(30 + 5 * M1 - 6.25, L)

84
85
86
fn = R01 & R02 & R03

87
88-
EN_ASL = 10

88+
89-
R01 = T_HEX(63.3, L / 2, 11) & T_HEX(63.3 + 132, L / 2, 11)

89+
90-
R02 = T_SLOT(M1, 13.75, 16, EN_ASL, 0) & T_SLOT(M1, L - 13.75, 16, EN_ASL, 0)

90+
91-
R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)

91+
92-
R04 = T_RECT1(-2.5, 7.5, 27.5, L - 27.5)

92+
93-
R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)

93+
94
Call SAVE_SUB(NND, STRINGA)

95-
EN_ASL = 10

95+
96-
R01 = T_HEX(63.3, L / 2, 11) & T_HEX(63.3 + 132, L / 2, 11)

96+
97-
R02 = T_SLOT(M1, 13.75, 16, EN_ASL, 0) & T_SLOT(M1, L - 13.75, 16, EN_ASL, 0)

97+
98-
R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)

98+
99-
R04 = T_RECT1(-2.5, 7.5, 27.5, L - 27.5)

99+
100-
R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)

100+
101-
Case 3

101+
102-
EN_ASL = 10

102+
103-
R01 = T_HEX(63.3, L / 2, 11) & T_HEX(63.3 + 132, L / 2, 11)

103+
104-
R02 = T_SLOT(H - 28.3, 13.75, 16, EN_ASL, 0) & T_SLOT(H - 28.3, L - 13.75, 16, EN_ASL, 0)

104+
105-
R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)

105+
106-
R04 = T_RECT1(-2.5, 7.5, 27.5, L - 27.5)

106+
107-
R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)

107+
108
Sub S_3201155358(ByVal NND As Integer)

109
ACT_MOD = "3201155358"

110-
'R06 = T_DATAMATRIX(ODP, L / 2 + 20, 70, "O") 'SASSI AGGIUNTA DATAMATRIX 30.06.22

110+
111
112-
fn = R01 & R02 & R03 & R04 & R05 '& R06 'SASSI AGGIUNTA DATAMATRIX 30.06.22

112+
113
L = INPUT_NUM(NND, "L", L, ACT_MOD)

114
H = INPUT_NUM(NND, "H", H, ACT_MOD)

115
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

116
117
ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)

118
119
120
121-
Call CUT_END_T_special(H, L, 0, 0, "C", POSINTAB)

121+
fn = ""

122
123
124
125
P1 = 250

126
P2 = H - 400

127
MVAL = 500

128-
Sub S_10429030(ByVal NND As Integer)

128+
129-
ACT_MOD = "1042903"

129+
130
131
POSINTAB = def_posintab(NND)

132
Call CUT_END_S(H, L, "0", POSINTAB)

133
Call FVTPT(3, NND, "")

134
Call CUT_END_S(H, L, "B", POSINTAB)

135
Call FVTPT(3, NND, "B")

136
Call CUT_END_S(H, L, "C", POSINTAB)

137
Call FVTPT(3, NND, "C")

138
139-
'If L <> 156.6 Then MsgBox ("ERRORE NELLO SVILUPPO DEL COMPONENTE " & ACT_MOD)

139+
140
141-
EN_ASL = 10

141+
142-
R01 = T_HEX(63.3, L - 77.8, 11) & T_HEX(63.3 + 132, L - 77.8, 11)

142+
143-
R02 = T_SLOT(M2, 13.5, 16, EN_ASL, 0) & T_SLOT(36.3, 13.5, 16, EN_ASL, 0) & T_SLOT(M2, L - 13.5, 16, EN_ASL, 0)

143+
144-
R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)

144+
Sub S_1026716A(ByVal NND As Integer)

145-
R04 = T_RECT1(-2.5, 7.5, 27, L - 27)

145+
ACT_MOD = "1026716"

146
CLAMP = 0

147-
R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)

147+
148
149
L = INPUT_NUM(NND, "L", L, ACT_MOD)

150
H = INPUT_NUM(NND, "H", H, ACT_MOD)

151
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

152
ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)

153
154
RGR = 0.2

155
agsp = 2

156
R01 = T_RECT1(MR_X(1321, H, agsp), MR_X(1321 + 445, H, agsp), L - 31.4, L + 6)

157
R02 = T_CIRC(MR_X(28, H, agsp), 6, 3.3)

158
R03 = T_SMUS(-RGR, -RGR) & T_SMUS(-RGR, L + RGR) & T_SMUS(H + RGR, -RGR) & T_SMUS(H + RGR, L + RGR)

159
160
fn = R01 & R02 & R03

161
162
163-
Call CUT_END_T_special(H, L, 0, 0, "C", POSINTAB)

163+
164
P2 = H - 400

165
MVAL = 500

166
STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn

167
Call SAVE_SUB(NND, STRINGA)

168-
Sub S_1042903B(ByVal NND As Integer)

168+
169-
ACT_MOD = "1042903"

169+
170
Call CUT_END_S(H, L, "0", POSINTAB)

171
Call FVTPT(3, NND, "")

172
Call CUT_END_S(H, L, "C", POSINTAB)

173
Call FVTPT(3, NND, "C")

174
175
176
End Sub

177
178
179-
VV = INPUT_NUM(NND, "VER", VV, ACT_MOD)

179+
Sub S_10280840(ByVal NND As Integer)

180
ACT_MOD = "1028084"

181
CLAMP = 0

182
183-
EN_ASL = 10

183+
184-
R01 = T_HEX(63.3, L - 77.8, 11) & T_HEX(63.3 + 132, L - 77.8, 11)

184+
185-
R02 = T_SLOT(M2, 13.5, 16, EN_ASL, 0) & T_SLOT(36.3, 13.5, 16, EN_ASL, 0) & T_SLOT(M2, L - 13.5, 16, EN_ASL, 0)

185+
186-
R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)

186+
187-
R04 = T_RECT1(-2.5, 7.5, 27, L - 27)

187+
188-
R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)

188+
189
R01 = T_CIRC(100, 38.5, 8.5) & T_CIRC(H - 100, 38.5, 8.5)

190-
EN_ASL = 10

190+
inter = (H - 200) / 5

191-
R01 = T_HEX(63.3, L - 77.8, 11) & T_HEX(63.3 + 132, L - 77.8, 11)

191+
R02 = T_CIRC(100 + inter, 38.5, 8.5) & T_CIRC(100 + 2 * inter, 38.5, 8.5) & T_CIRC(100 + 3 * inter, 38.5, 8.5) & T_CIRC(100 + 4 * inter, 38.5, 8.5)

192-
R02 = T_SLOT(M2, 13.5, 16, EN_ASL, 0) & T_SLOT(36.3, 13.5, 16, EN_ASL, 0) & T_SLOT(M2, L - 13.5, 16, EN_ASL, 0)

192+
193-
R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)

193+
194-
R04 = T_RECT1(-2.5, 7.5, 27, L - 27)

194+
195-
R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)

195+
196-
Case 3

196+
197-
EN_ASL = 10

197+
198-
R01 = T_HEX(63.3, L - 77.8, 11) & T_HEX(63.3 + 132, L - 77.8, 11)

198+
199-
R02 = T_SLOT(H - 28.3, 13.5, 16, EN_ASL, 0) & T_SLOT(36.3, 13.5, 16, EN_ASL, 0) & T_SLOT(H - 28.3, L - 13.5, 16, EN_ASL, 0)

199+
200-
R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)

200+
201-
R04 = T_RECT1(-2.5, 7.5, 27, L - 27)

201+
202-
R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)

202+
203
Call CUT_END_S(H, L, "0", POSINTAB)

204-
MsgBox ("ERRORE VERSIONE " & ACT_MOD)

204+
205
Call CUT_END_S(H, L, "B", POSINTAB)

206
Call FVTPT(3, NND, "B")

207
Call CUT_END_S(H, L, "C", POSINTAB)

208
Call FVTPT(3, NND, "C")

209
210
211
End Sub

212
213
214
Sub S_10228760(ByVal NND As Integer)

215
ACT_MOD = "1022876"

216-
Call CUT_END_T_special(H, L, 0, 0, "C", POSINTAB)

216+
217
218
L = INPUT_NUM(NND, "L", L, ACT_MOD)

219
H = INPUT_NUM(NND, "H", H, ACT_MOD)

220
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

221
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)

222
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)

223-
Sub S_10483620(ByVal NND As Integer)

223+
224-
ACT_MOD = "1048362"

224+
225
226
227
R01 = T_CIRC(29, L - 15, 3.3) & T_CIRC(H - 29, L - 15, 3.3)

228
229
For U = 1 To 5

230
R02 = R02 & T_CIRC(H - 29 - (M1 * U), L - 15, 3.3)

231
Next U

232
R03 = T_CIRC(15, 8, 3.3) & T_CIRC(H - 15, 8, 3.3)

233
234
R04 = T_CIRC(79, 8, 7.2) & T_CIRC(H - 79, 8, 7.2)

235-
EN_ASL = 10

235+
236-
R01 = T_HEX(63.3, 77.8, 11) & T_HEX(63.3 + 132, 77.8, 11)

236+
n_for = (H - 79 - 79) / 50

237-
R02 = T_SLOT(M2, 13.5, 16, EN_ASL, 0) & T_SLOT(36.3, L - 13.5, 16, EN_ASL, 0) & T_SLOT(M2, L - 13.5, 16, EN_ASL, 0)

237+
For F = 1 To n_for

238-
R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)

238+
R05 = R05 & T_CIRC(79 + (50 * F), 8, 7.2)

239-
R04 = T_RECT1(-2.5, 7.5, 27, L - 27)

239+
Next F

240
241-
R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)

241+
242
243
P1 = 250

244
P2 = H - 400

245
MVAL = 500

246
STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn

247
248
Call SAVE_SUB(NND, STRINGA)

249
250
POSINTAB = def_posintab(NND)

251
Call CUT_END_S(H, L, "0", POSINTAB)

252
Call FVTPT(3, NND, "")

253-
Call CUT_END_T_special(H, L, 0, 0, "C", POSINTAB)

253+
254
Call FVTPT(3, NND, "B")

255
Call CUT_END_S(H, L, "C", POSINTAB)

256
Call FVTPT(3, NND, "C")

257
258
259-
Sub S_1048362A(ByVal NND As Integer)

259+
260-
ACT_MOD = "1048362"

260+
261
262
Sub S_1026699A(ByVal NND As Integer)

263
ACT_MOD = "1026699"

264
CLAMP = 0

265
266
L = INPUT_NUM(NND, "L", L, ACT_MOD)

267
H = INPUT_NUM(NND, "H", H, ACT_MOD)

268
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

269
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)

270-
VV = INPUT_NUM(NND, "VER", VV, ACT_MOD)

270+
271-
'**********************************

271+
272
H_SPC_VT = L - 11.8 - 22.6 - 8.5 + 4 * 1.8

273
274
275-
EN_ASL = 10

275+
R01A = T_CIRC(28, 22.8, 3.3) & T_CIRC(28 + 425, 22.8, 3.3) & T_CIRC(28 + 2 * 425, 22.8, 3.3) & T_CIRC(28 + 3 * 425, 22.8, 3.3)

276-
R01 = T_HEX(63.3, 77.8, 11) & T_HEX(63.3 + 132, 77.8, 11)

276+
R01B = T_CIRC(H - 30, 22.8, 3.3) & T_CIRC(H - 30 - M1, 22.8, 3.3)

277-
R02 = T_SLOT(M2, 13.5, 16, EN_ASL, 0) & T_SLOT(36.3, L - 13.5, 16, EN_ASL, 0) & T_SLOT(M2, L - 13.5, 16, EN_ASL, 0)

277+
278-
R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)

278+
R02A = T_CIRC(7, L - 8, 7) & T_CIRC(7 + 50, L - 8, 7)

279-
R04 = T_RECT1(-2.5, 7.5, 27, L - 27)

279+
R02B = T_CIRC(107, L - 8, 7) & T_CIRC(107, L - 8 + 1.4, 7) & T_CIRC(107, L - 8 - 1.4, 7)

280-
R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)

280+
R02C = T_CIRC(157, L - 8, 7) & T_CIRC(157, L - 8 + 1.4, 7) & T_CIRC(157, L - 8 - 1.4, 7)

281
R02 = R02A & R02B & R02C

282-
EN_ASL = 10

282+
R03A = T_RECT1(H - 20, H + 6, L - 26, L + 6)

283-
R01 = T_HEX(63.3, 77.8, 11) & T_HEX(63.3 + 132, 77.8, 11)

283+
R03B = T_SMUS(H - (15 - 5) - 20, L + (0.5)) & T_SMUS(H - (-0.5) - 20, L - (15 - 5)) & T_SMUS(H - (7.5 - 2.75) - 20, L - (7.5 - 2.75)) & T_CIRC(H - 20 - 1, L - 1, 7.2)

284-
R02 = T_SLOT(M2, 13.5, 16, EN_ASL, 0) & T_SLOT(36.3, L - 13.5, 16, EN_ASL, 0) & T_SLOT(M2, L - 13.5, 16, EN_ASL, 0)

284+
285-
R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)

285+
286-
R04 = T_RECT1(-2.5, 7.5, 27, L - 27)

286+
287-
R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)

287+
For U = 0 To 21

288-
Case 3

288+
R04 = R04 & T_CIRC(207 + 50 * U, L - 8, 7)

289-
EN_ASL = 10

289+
Next U

290-
R01 = T_HEX(63.3, 77.8, 11) & T_HEX(63.3 + 132, 77.8, 11)

290+
R04 = R04 & T_CIRC(1322 - 15, L - 8, 7)

291-
R02 = T_SLOT(36.3, L - 13.5, 16, EN_ASL, 0) & T_SLOT(H - 28.3, L - 13.5, 16, EN_ASL, 0) & T_SLOT(H - 28.3, 13.5, 16, EN_ASL, 0)

291+
292-
R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)

292+
293-
R04 = T_RECT1(-2.5, 7.5, 27, L - 27)

293+
294-
R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)

294+
295
Case 1, 2, 3, 4

296-
MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)

296+
R05A = T_CIRC(H - 178, L - 8, 7) & T_CIRC(H - 178, L - 8 + 1.4, 7) & T_CIRC(H - 178, L - 8 - 1.4, 7)

297
R05B = T_CIRC(H - 128, L - 8, 7) & T_CIRC(H - 128, L - 8 + 1.4, 7) & T_CIRC(H - 128, L - 8 - 1.4, 7)

298
R05 = R05A & R05B

299-
'**********************************

299+
R06 = T_RECT1(H - 107, H - 107 + 30, L - 12, L + 6) & T_SMUS(H - 107, L) & T_SMUS(H - 107 + 30, L)

300
301
Case 5, 6

302
R05 = ""

303
R06 = ""

304
305
Case Else

306
MsgBox ("ATTENZIONE CONTROLLARE VERSIONE SU " & ACT_MOD)

307
End Select

308
309-
Call CUT_END_T_special(H, L, 0, 0, "C", POSINTAB)

309+
R07 = T_RECT1(1322, 1322 + 443, L - H_SPC_VT, L + 6)

310
311
312
fn = R01 & R02 & R03 & R04 & R05 & R06 & R07

313
314
315-
Sub S_1036629A(ByVal NND As Integer)

315+
316-
ACT_MOD = "1036629"

316+
317
MVAL = 500

318
STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn

319
320
Call SAVE_SUB(NND, STRINGA)

321
322
POSINTAB = def_posintab(NND)

323
Call CUT_END_S(H, L, "0", POSINTAB)

324
Call FVTPT(3, NND, "")

325
Call CUT_END_S(H, L, "B", POSINTAB)

326
Call FVTPT(3, NND, "B")

327
Call CUT_END_S(H, L, "C", POSINTAB)

328
Call FVTPT(3, NND, "C")

329
330-
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)

330+
331-
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)

331+
332-
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)

332+
333-
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)

333+
334-
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)

334+
Sub S_1027588A(ByVal NND As Integer)

335-
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)

335+
ACT_MOD = "1027588"

336-
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)

336+
337-
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)

337+
338-
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)

338+
339-
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)

339+
340-
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)

340+
341
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)

342
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)

343
ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)

344-
EN_ASL = 10

344+
H_SPC_VT = L - 12 - 8 + 1.8 * 2

345-
If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)

345+
346
347
R01A = T_CIRC(7, L - 8, 7) & T_CIRC(7 + 50, L - 8, 7) & T_CIRC(1322 - 15, L - 8, 7)

348
R01B = T_CIRC(107, L - 8, 7) & T_CIRC(107, L - 8 + 1.4, 7) & T_CIRC(107, L - 8 - 1.4, 7)

349
R01C = T_CIRC(157, L - 8, 7) & T_CIRC(157, L - 8 + 1.4, 7) & T_CIRC(157, L - 8 - 1.4, 7)

350-
AGG = 1

350+
If H = 1908 Then

351
R01D = T_CIRC(178, L - 8, 7) & T_CIRC(178, L - 8 + 1.4, 7) & T_CIRC(178, L - 8 - 1.4, 7)

352-
AGG = 2

352+
R01E = T_CIRC(128, L - 8, 7) & T_CIRC(128, L - 8 + 1.4, 7) & T_CIRC(128, L - 8 - 1.4, 7)

353
Else

354-
MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)

354+
R01D = ""

355
R01E = ""

356
End If

357-
R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)

357+
R01 = R01A & R01B & R01C & R01D & R01E

358-
R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)

358+
359-
If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""

359+
360-
If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""

360+
For U = 0 To 21

361-
If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""

361+
R02 = R02 & T_CIRC(207 + 50 * U, L - 8, 7)

362-
If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""

362+
Next U

363
364-
R01 = R01A & R01B & R01C & R01D & R01E & R01F

364+
R03 = T_CIRC(28, 23.2, 3.3) & T_CIRC(28 + 425, 23.2, 3.3) & T_CIRC(28 + 2 * 425, 23.2, 3.3) & T_CIRC(28 + 3 * 425, 23.2, 3.3)

365
R04 = T_CIRC(H - 30, 23.2, 3.3) & T_CIRC(H - 30 - M1, 23.2, 3.3)

366-
R02A = T_SLOT(13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90)

366+
367-
If M7 > 0 Then R02B = T_SLOT(13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) Else R02B = ""

367+
368-
R02 = R02A & R02B

368+
R05 = T_RECT1(1322, 1322 + 443, L - H_SPC_VT, L + 6)

369
R06 = T_SMUS(H - (15 - 5), L + 0.5) & T_SMUS(H - (-0.5), L - 15 + 5) & T_SMUS(H - (7.5 - 2.75), L - 7.5 + 2.75) & T_CIRC(H - (1), L - 1, 7.2)

370-
R03A = T_SLOT(M15, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

370+
371-
R03B = T_SLOT(M5 + M6 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 / 2, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

371+
372-
R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

372+
373-
R03 = R03A & R03B & R03C

373+
374
P1 = 250

375-
DIM_ASL = 6.5

375+
376-
R04A = T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

376+
377-
R04B = T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

377+
378-
R04C = T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

378+
379-
R04D = T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

379+
380-
R04E = T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

380+
381-
R04F = T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

381+
382-
R04 = R04A & R04B & R04C & R04D & R04E & R04F

382+
383
Call FVTPT(3, NND, "")

384-
R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)

384+
385-
'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)

385+
386
Call CUT_END_S(H, L, "C", POSINTAB)

387
Call FVTPT(3, NND, "C")

388-
R07 = T_SLOT(M3 - 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90) & T_SLOT(M3 + M2 + 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90)

388+
389
390-
R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)

390+
391
392-
R09A = T_SMUS(20 - 5.25, L - 20) & T_SMUS(0, L - 20 - 20 + 5.25) & T_SMUS(5, L - 20 - 20 + 5.25 + 5) & T_SMUS(10, L - 20 - 20 + 5.25 + 10)

392+
393-
R09B = T_SMUS(H - (20 - 5.25), L - 20) & T_SMUS(H, L - 20 - 20 + 5.25) & T_SMUS(H - 5, L - 20 - 20 + 5.25 + 5) & T_SMUS(H - 10, L - 20 - 20 + 5.25 + 10)

393+
394-
R09C = T_CIRC(0, L - 20, 20.2) & T_CIRC(H, L - 20, 20.2)

394+
Sub S_1027588C(ByVal NND As Integer)

395-
R09 = R09A & R09B & R09C

395+
ACT_MOD = "1027588"

396
CLAMP = 0

397-
R10 = T_RECT2(17.5, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)

397+
398-
R_MS = 0.7

398+
399-
R11 = T_SMUS(-R_MS, 23 - R_MS) & T_SMUS(M3 - R_MS, -R_MS) & T_SMUS(M3 + M2 + R_MS, -R_MS) & T_SMUS(H + R_MS, 23 - R_MS)

399+
400
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

401
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)

402-
fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11

402+
403
ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)

404
H_SPC_VT = L - 12 - 8 + 1.8 * 2

405
406
407
R01A = T_CIRC(7, L - 8, 7) & T_CIRC(7 + 50, L - 8, 7) & T_CIRC(1322 - 15, L - 8, 7)

408
R01B = T_CIRC(107, L - 8, 7) & T_CIRC(107, L - 8 + 1.4, 7) & T_CIRC(107, L - 8 - 1.4, 7)

409
R01C = T_CIRC(157, L - 8, 7) & T_CIRC(157, L - 8 + 1.4, 7) & T_CIRC(157, L - 8 - 1.4, 7)

410
If H <> 1908 Then

411
R01D = T_CIRC(178, L - 8, 7) & T_CIRC(178, L - 8 + 1.4, 7) & T_CIRC(178, L - 8 - 1.4, 7)

412
R01E = T_CIRC(128, L - 8, 7) & T_CIRC(128, L - 8 + 1.4, 7) & T_CIRC(128, L - 8 - 1.4, 7)

413
Else

414
R01D = ""

415
R01E = ""

416
End If

417
R01 = R01A & R01B & R01C & R01D & R01E

418-
    STR_OUT(2) = TL_CLN

418+
419-
    STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"

419+
420-
    STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"

420+
For U = 0 To 21

421-
    STR_OUT(5) = TL_CUT_O

421+
R02 = R02 & T_CIRC(207 + 50 * U, L - 8, 7)

422-
    STR_OUT(6) = "TOOLANGLE(0)"

422+
Next U

423-
    STR_OUT(7) = "MIDCUT(N)"

423+
424-
    STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)

424+
R03 = T_CIRC(28, 23.2, 3.3) & T_CIRC(28 + 425, 23.2, 3.3) & T_CIRC(28 + 2 * 425, 23.2, 3.3) & T_CIRC(28 + 3 * 425, 23.2, 3.3)

425-
    STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"

425+
R04 = T_CIRC(H - 30, 23.2, 3.3) & T_CIRC(H - 30 - M1, 23.2, 3.3)

426-
    STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)

426+
427-
    STR_OUT(11) = "'FINE BLOCCO"

427+
428
R05 = T_RECT1(1322, 1322 + 443, L - H_SPC_VT, L + 6)

429
430
431
'R06 = T_SMUS(H - (15 - 5), L + 0.5) & T_SMUS(H - (-0.5), L - 15 + 5) & T_SMUS(H - (7.5 - 2.75), L - 7.5 + 2.75)

432
R06 = T_SMUS(H - (-0.5), L - 15 + 5)

433
R07 = T_RECT1(H - 70, H + 6, L - 10, L + 5)

434-
    STR_OUT(2) = TL_CLN

434+
R08 = T_SMUS(H - (15 - 5) - 70, L + 0.5 + 5) & T_SMUS(H - (-0.5) - 70, L - 15 + 5 + 5) & T_SMUS(H - (7.5 - 2.75) - 70, L - 7.5 + 2.75 + 5)

435-
    STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"

435+
R08 = T_SMUS(H - (-0.5) - 70, L - 15 + 5 + 5) & T_SMUS(H - (7.5 - 2.75) - 70, L - 7.5 + 2.75 + 5)

436-
    STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"

436+
'-70 + 5

437-
    STR_OUT(5) = TL_CUT_V

437+
fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08

438-
    STR_OUT(6) = "TOOLANGLE(90)"

438+
439-
    STR_OUT(7) = "MIDCUT(N)"

439+
440-
    STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"

440+
441-
    STR_OUT(9) = TL_CUT_O

441+
442-
    STR_OUT(10) = "TOOLANGLE(0)"

442+
443-
    STR_OUT(11) = "MIDCUT(N)"

443+
444-
    STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)

444+
445-
    STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"

445+
446-
    STR_OUT(14) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)

446+
447-
    STR_OUT(15) = "'FINE BLOCCO"

447+
448
Call CUT_END_S(H, L, "0", POSINTAB)

449
Call FVTPT(3, NND, "")

450
Call CUT_END_S(H, L, "B", POSINTAB)

451
Call FVTPT(3, NND, "B")

452
Call CUT_END_S(H, L, "C", POSINTAB)

453
Call FVTPT(3, NND, "C")

454
455
456
End Sub

457-
Sub S_1036629D(ByVal NND As Integer)

457+
458-
ACT_MOD = "1036629"

458+
459
Sub S_1020085B(ByVal NND As Integer)

460
ACT_MOD = "1020085"

461
CLAMP = 0

462
463
464
L = INPUT_NUM(NND, "L", L, ACT_MOD)

465
H = INPUT_NUM(NND, "H", H, ACT_MOD)

466
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

467
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)

468
VV = INPUT_NUM(NND, "VER.", ver, ACT_MOD)

469
470
SCS = 6

471
472-
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)

472+
473-
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)

473+
R01 = T_RECT1(30, H - 30, -3.6, 29) & T_RECT1(30, H - 30, L - 29, L + 3.6)

474-
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)

474+
R02 = T_CIRC(14, 11, 5.5) & T_CIRC(H - 14, 11, 5.5) & T_CIRC(14, L - 11, 5.5) & T_CIRC(H - 14, L - 11, 5.5)

475-
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)

475+
476-
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)

476+
477-
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)

477+
R03 = T_SMUS(-0.5, -0.5)

478-
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)

478+
R03 = R03 & T_SMUS(30 + 0.5, -0.5)

479-
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)

479+
R03 = R03 & T_SMUS(H + 0.5, -0.5)

480-
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)

480+
R03 = R03 & T_SMUS(H - 30.5, -0.5)

481-
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)

481+
R03 = R03 & T_SMUS(-0.5, L + 0.5)

482-
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)

482+
R03 = R03 & T_SMUS(30 + 0.5, L + 0.5)

483-
M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)

483+
R03 = R03 & T_SMUS(H + 0.5, L + 0.5)

484-
M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)

484+
R03 = R03 & T_SMUS(H - 30.5, L + 0.5)

485-
M22 = INPUT_NUM(NND, "M22", M22, ACT_MOD)

485+
486
fn = R01 & R02 & R03

487
488-
ODP = INFO_DAT(NND, 0, 5)

488+
489
P2 = H - 400

490
MVAL = 500

491-
EN_ASL = 10

491+
492-
If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)

492+
493
Call SAVE_SUB(NND, STRINGA)

494
495
POSINTAB = def_posintab(NND)

496
Call CUT_END_S(H, L, "0", POSINTAB)

497-
AGG = 1

497+
498
Call CUT_END_S(H, L, "B", POSINTAB)

499-
AGG = 2

499+
500
Call CUT_END_S(H, L, "C", POSINTAB)

501-
MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)

501+
502
503
504-
R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)

504+
505-
R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)

505+
506-
If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""

506+
507-
If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""

507+
508-
If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""

508+
Sub S_1019999A(ByVal NND As Integer)

509-
If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""

509+
ACT_MOD = "1019999"

510
CLAMP = 0

511-
R01 = R01A & R01B & R01C & R01D & R01E & R01F

511+
512
513-
R02A = T_SLOT(13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90)

513+
514-
If M7 > 0 Then R02B = T_SLOT(13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) Else R02B = ""

514+
515-
R02 = R02A & R02B

515+
516
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)

517-
R03A = T_SLOT(M15, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

517+
518-
R03B = T_SLOT(M5 + M6 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 / 2, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

518+
519-
R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

519+
520-
R03 = R03A & R03B & R03C

520+
VV = INPUT_NUM(NND, "VER.", ver, ACT_MOD)

521
522-
DIM_ASL = 6.5

522+
523-
R04A = T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

523+
524-
R04B = T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

524+
525-
R04C = T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

525+
R01 = T_CIRC(H / 2 - M2 / 2, L / 2 - M4 / 2, 5) & T_CIRC(H / 2 + M2 / 2, L / 2 - M4 / 2, 5) & T_CIRC(H / 2 + M2 / 2, L / 2 + M4 / 2, 5) & T_CIRC(H / 2 - M2 / 2, L / 2 + M4 / 2, 5)

526-
R04D = T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

526+
527-
R04E = T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

527+
fn = R01

528-
R04F = T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

528+
529-
R04 = R04A & R04B & R04C & R04D & R04E & R04F

529+
530
P2 = H - 400

531-
R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)

531+
532-
'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)

532+
533
534
Call SAVE_SUB(NND, STRINGA)

535-
R07 = T_SLOT(M3 - 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90) & T_SLOT(M3 + M2 + 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90)

535+
536
POSINTAB = def_posintab(NND)

537-
R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)

537+
538
Call FVTPT(3, NND, "")

539-
R09A = T_SMUS(20 - 5.25, L - 20) & T_SMUS(0, L - 20 - 20 + 5.25) & T_SMUS(5, L - 20 - 20 + 5.25 + 5) & T_SMUS(10, L - 20 - 20 + 5.25 + 10)

539+
540-
R09B = T_SMUS(H - (20 - 5.25), L - 20) & T_SMUS(H, L - 20 - 20 + 5.25) & T_SMUS(H - 5, L - 20 - 20 + 5.25 + 5) & T_SMUS(H - 10, L - 20 - 20 + 5.25 + 10)

540+
541
Call CUT_END_S(H, L, "C", POSINTAB)

542-
R09C = T_SMUS(5 - 5, L - 20 - 20 + 5.25 + 5 + 5) & T_SMUS(10 - 5, L - 20 - 20 + 5.25 + 10 + 5)

542+
543-
R09D = T_SMUS(H - 10 + 5, L - 20 - 20 + 5.25 + 10 + 5) & T_SMUS(H - 5 + 5, L - 20 - 20 + 5.25 + 5 + 5)

543+
544
End Sub

545-
'R09C = T_CIRC(0, L - 20, 10.5) & T_CIRC(H, L - 20, 10.5)

545+
546-
R09 = R09A & R09B & R09C & R09D

546+
547
548-
R10 = T_RECT2(17.5, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)

548+
549-
R_MS = 0.7

549+
550-
R11 = T_SMUS(-R_MS, 23 - R_MS) & T_SMUS(M3 - R_MS, -R_MS) & T_SMUS(M3 + M2 + R_MS, -R_MS) & T_SMUS(H + R_MS, 23 - R_MS)

550+
Sub S_1006718A(ByVal NND As Integer)

551
ACT_MOD = "1006718"

552-
If M21 > 0 Then R12 = T_SLOT(M21, 13 + 58 + M20 - 4 * SPS, 12, 6.5, 90) Else R12 = ""

552+
553-
If M22 > 0 Then R13 = T_SLOT(H - M22, 13 + 58 + M20 - 4 * SPS, 12, 6.5, 90) Else R13 = ""

553+
554
555-
R14 = T_DATAMATRIX(ODP, H - 10 - 18.5, L - 46.3 - 45, "V")

555+
556
H = INPUT_NUM(NND, "H", H, ACT_MOD)

557-
fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14

557+
558
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)

559
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)

560
ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)

561
562
563
If M1 = 0 Then

564
MsgBox "M1 MANCANTE"

565
If ver = 1 Then M1 = 370

566
If ver = 2 Then M1 = 380

567
If ver = 3 Then M1 = 390

568
If ver = 4 Then M1 = 400

569
If ver = 5 Then M1 = 410

570
If ver = 6 Then M1 = 370

571
If ver = 7 Then M1 = 380

572
If ver = 8 Then M1 = 390

573-
    STR_OUT(2) = TL_CLN

573+
If ver = 9 Then M1 = 400

574-
    STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"

574+
If ver = 10 Then M1 = 410

575-
    STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"

575+
End If

576-
    STR_OUT(5) = TL_CUT_O

576+
577-
    STR_OUT(6) = "TOOLANGLE(0)"

577+
578-
    STR_OUT(7) = "MIDCUT(N)"

578+
579-
    STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)

579+
R01 = T_CIRC(15, 8, 3.3)

580-
    STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"

580+
R01 = R01 & T_CIRC(H - 15, 8, 3.3)

581-
    STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)

581+
582-
    STR_OUT(11) = "'FINE BLOCCO"

582+
'RODITURE CON TONDO DI 7.2

583
R01 = R01 & T_CIRC(79, 8, 7.2)

584
'Print #NF, T_SLOT(79 + 50, 8, 10, 7, 90)

585
'***************************************

586
R01 = R01 & T_CIRC(79 + 50, 8, 7.2)

587
R01 = R01 & T_CIRC(79 + 50, 8 - 1.4, 7.2)

588
R01 = R01 & T_CIRC(79 + 50, 8 + 1.4, 7.2)

589-
    STR_OUT(2) = TL_CLN

589+
'***************************************

590-
    STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"

590+
'Print #NF, T_SLOT(79 + 100, 8, 10, 7, 90)

591-
    STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"

591+
'***************************************

592-
    STR_OUT(5) = TL_CUT_V

592+
R01 = R01 & T_CIRC(79 + 100, 8, 7.2)

593-
    STR_OUT(6) = "TOOLANGLE(90)"

593+
R01 = R01 & T_CIRC(79 + 100, 8 - 1.4, 7.2)

594-
    STR_OUT(7) = "MIDCUT(N)"

594+
R01 = R01 & T_CIRC(79 + 100, 8 + 1.4, 7.2)

595-
    STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"

595+
'***************************************

596-
    STR_OUT(9) = TL_CUT_O

596+
R01 = R01 & T_CIRC(79 + 150, 8, 7.2)

597-
    STR_OUT(10) = "TOOLANGLE(0)"

597+
598-
    STR_OUT(11) = "MIDCUT(N)"

598+
R01 = R01 & T_CIRC(H - 79 - 150, 8, 7.2)

599-
    STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)

599+
'Print #NF, T_SLOT(H - 79 - 100, 8, 10, 7, 90)

600-
    STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"

600+
'***************************************

601-
    STR_OUT(14) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)

601+
R01 = R01 & T_CIRC(H - 79 - 100, 8, 7.2)

602-
    STR_OUT(15) = "'FINE BLOCCO"

602+
R01 = R01 & T_CIRC(H - 79 - 100, 8 - 1.4, 7.2)

603
R01 = R01 & T_CIRC(H - 79 - 100, 8 + 1.4, 7.2)

604
'***************************************

605
'Print #NF, T_SLOT(H - 79 - 50, 8, 10, 7, 90)

606
'***************************************

607
R01 = R01 & T_CIRC(H - 79 - 50, 8, 7.2)

608
R01 = R01 & T_CIRC(H - 79 - 50, 8 - 1.4, 7.2)

609
R01 = R01 & T_CIRC(H - 79 - 50, 8 + 1.4, 7.2)

610
'***************************************

611
R01 = R01 & T_CIRC(H - 79, 8, 7.2)

612-
Sub S_1036629E(ByVal NND As Integer)

612+
613-
ACT_MOD = "1036629"

613+
'***************************************

614
615
R02 = T_SMUS(15 - 5, -0.5) & T_SMUS(-0.5, 15 - 5) & T_SMUS(7.5 - 2.75, 7.5 - 2.75) & T_CIRC(1, 1, 7.2)

616
R03 = T_SMUS(H - (15 - 5), -0.5) & T_SMUS(H - (-0.5), 15 - 5) & T_SMUS(H - (7.5 - 2.75), 7.5 - 2.75) & T_CIRC(H - (1), 1, 7.2)

617
618
'INTAGLI DA 15 PER ENTRAMBI I LATI BASSI

619
'SDF = 5

620
''Print #NF, T_CIRC(0, SDF, 10.5) 'DA RIVEDERE

621
''Print #NF, T_CIRC(SDF, 0, 10.5)

622
''Print #NF, T_CIRC(H - SDF, 0, 10.5)

623
''Print #NF, T_CIRC(H, SDF, 10.5)

624
''Print #NF, T_BLQ(15, 0, 0, 15, 1, 1)

625
''Print #NF, T_BLQ(H, 15, H - 15, 0, 1, 1)

626
'MsgBox ("ATTENZIONE CONTROLLARE GLI INTAGLI DA 15 PER ENTRAMBI I LATI BASSI SUL CODICE " & ACT_MOD)

627-
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)

627+
'***************************************

628-
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)

628+
629-
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)

629+
XXR = 279

630-
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)

630+
AAA:

631-
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)

631+
R01 = R01 & T_CIRC(XXR, 8, 7.2)

632-
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)

632+
XXR = XXR + 50

633-
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)

633+
If XXR <= H - 279 Then GoTo AAA

634-
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)

634+
635-
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)

635+
636-
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)

636+
XXB = 29

637-
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)

637+
BBB:

638-
M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)

638+
 R01 = R01 & T_CIRC(XXB, L - 15, 3.3)

639-
M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)

639+
XXB = XXB + M1

640-
M22 = INPUT_NUM(NND, "M22", M22, ACT_MOD)

640+
If XXB <= H - 29 Then GoTo BBB

641-
M23 = INPUT_NUM(NND, "M23", M23, ACT_MOD)

641+
642
fn = R01 & R02 & R03

643-
ODP = INFO_DAT(NND, 0, 5)

643+
644
P1 = 250

645
P2 = H - 400

646-
EN_ASL = 10

646+
647-
If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)

647+
648
649
Call SAVE_SUB(NND, STRINGA)

650
651
POSINTAB = def_posintab(NND)

652-
AGG = 1

652+
653
Call FVTPT(3, NND, "")

654-
AGG = 2

654+
655
Call FVTPT(3, NND, "B")

656-
MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)

656+
657
Call FVTPT(3, NND, "C")

658
659-
R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)

659+
660-
R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)

660+
661-
If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""

661+
662-
If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""

662+
663-
If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""

663+
Sub S_1006718B(ByVal NND As Integer)

664-
If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""

664+
ACT_MOD = "1006718"

665
CLAMP = 0

666-
R01 = R01A & R01B & R01C & R01D & R01E & R01F

666+
667
668-
R02A = T_SLOT(13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90)

668+
669-
If M7 > 0 Then R02B = T_SLOT(13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) Else R02B = ""

669+
670-
R02 = R02A & R02B

670+
671
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)

672-
R03A = T_SLOT(M15, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

672+
673-
R03B = T_SLOT(M5 + M6 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 / 2, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

673+
674-
If M16 > 0 Then R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03C = ""

674+
675-
If M23 > 0 Then R03D = T_SLOT(M23, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03D = ""

675+
676-
R03 = R03A & R03B & R03C & R03D

676+
If M1 = 0 Then

677
MsgBox "M1 MANCANTE"

678-
DIM_ASL = 6.5

678+
If ver = 1 Then M1 = 370

679-
R04A = T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

679+
If ver = 2 Then M1 = 380

680-
R04B = T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

680+
If ver = 3 Then M1 = 390

681-
R04C = T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

681+
If ver = 4 Then M1 = 400

682-
R04D = T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

682+
If ver = 5 Then M1 = 410

683-
R04E = T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

683+
If ver = 6 Then M1 = 370

684-
R04F = T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

684+
If ver = 7 Then M1 = 380

685-
R04 = R04A & R04B & R04C & R04D & R04E & R04F

685+
If ver = 8 Then M1 = 390

686
If ver = 9 Then M1 = 400

687-
R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)

687+
If ver = 10 Then M1 = 410

688-
'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)

688+
End If

689
690
691-
R07 = T_SLOT(M3 - 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90) & T_SLOT(M3 + M2 + 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90)

691+
692
R01 = T_CIRC(15, 8, 3.3)

693-
R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)

693+
R01 = R01 & T_CIRC(H - 15, 8, 3.3)

694
695-
R09A = T_SMUS(20 - 5.25, L - 20) & T_SMUS(0, L - 20 - 20 + 5.25) & T_SMUS(5, L - 20 - 20 + 5.25 + 5) & T_SMUS(10, L - 20 - 20 + 5.25 + 10)

695+
'RODITURE CON TONDO DI 7.2

696-
R09B = T_SMUS(H - (20 - 5.25), L - 20) & T_SMUS(H, L - 20 - 20 + 5.25) & T_SMUS(H - 5, L - 20 - 20 + 5.25 + 5) & T_SMUS(H - 10, L - 20 - 20 + 5.25 + 10)

696+
R01 = R01 & T_CIRC(79, 8, 7.2)

697
'Print #NF, T_SLOT(79 + 50, 8, 10, 7, 90)

698-
R09C = T_SMUS(5 - 5, L - 20 - 20 + 5.25 + 5 + 5) & T_SMUS(10 - 5, L - 20 - 20 + 5.25 + 10 + 5)

698+
'***************************************

699-
R09D = T_SMUS(H - 10 + 5, L - 20 - 20 + 5.25 + 10 + 5) & T_SMUS(H - 5 + 5, L - 20 - 20 + 5.25 + 5 + 5)

699+
R01 = R01 & T_CIRC(79 + 50, 8, 7.2)

700
R01 = R01 & T_CIRC(79 + 50, 8 - 1.4, 7.2)

701-
'R09C = T_CIRC(0, L - 20, 10.5) & T_CIRC(H, L - 20, 10.5)

701+
R01 = R01 & T_CIRC(79 + 50, 8 + 1.4, 7.2)

702-
R09 = R09A & R09B & R09C & R09D

702+
'***************************************

703
'Print #NF, T_SLOT(79 + 100, 8, 10, 7, 90)

704-
R10 = T_RECT2(17.5, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)

704+
'***************************************

705-
R_MS = 0.7

705+
R01 = R01 & T_CIRC(79 + 100, 8, 7.2)

706-
R11 = T_SMUS(-R_MS, 23 - R_MS) & T_SMUS(M3 - R_MS, -R_MS) & T_SMUS(M3 + M2 + R_MS, -R_MS) & T_SMUS(H + R_MS, 23 - R_MS)

706+
R01 = R01 & T_CIRC(79 + 100, 8 - 1.4, 7.2)

707
R01 = R01 & T_CIRC(79 + 100, 8 + 1.4, 7.2)

708-
If M21 > 0 Then R12 = T_SLOT(M21, 13 + 58 + M20 - 4 * SPS, 20, 6.5, 90) Else R12 = ""

708+
'***************************************

709-
If M22 > 0 Then R13 = T_SLOT(H - M22, 13 + 58 + M20 - 4 * SPS, 20, 6.5, 90) Else R13 = ""

709+
R01 = R01 & T_CIRC(79 + 150, 8, 7.2)

710
711-
R14 = T_DATAMATRIX(ODP, H - 10 - 18.5, L - 46.3 - 45, "V")

711+
R01 = R01 & T_CIRC(H - 79 - 150, 8, 7.2)

712
'Print #NF, T_SLOT(H - 79 - 100, 8, 10, 7, 90)

713-
fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14

713+
'***************************************

714
R01 = R01 & T_CIRC(H - 79 - 100, 8, 7.2)

715
R01 = R01 & T_CIRC(H - 79 - 100, 8 - 1.4, 7.2)

716
R01 = R01 & T_CIRC(H - 79 - 100, 8 + 1.4, 7.2)

717
'***************************************

718
'Print #NF, T_SLOT(H - 79 - 50, 8, 10, 7, 90)

719
'***************************************

720
R01 = R01 & T_CIRC(H - 79 - 50, 8, 7.2)

721
R01 = R01 & T_CIRC(H - 79 - 50, 8 - 1.4, 7.2)

722
R01 = R01 & T_CIRC(H - 79 - 50, 8 + 1.4, 7.2)

723
'***************************************

724
R01 = R01 & T_CIRC(H - 79, 8, 7.2)

725
726
'***************************************

727
728
R02 = T_SMUS(-0.5, 15 - 5) & T_SMUS(7.5 - 2.75, 7.5 - 2.75)  '& T_CIRC(1, 1, 7.2)

729-
    STR_OUT(2) = TL_CLN

729+
R03 = T_SMUS(H - (-0.5), 15 - 5) & T_SMUS(H - (7.5 - 2.75), 7.5 - 2.75) '& T_CIRC(H - (1), 1, 7.2)

730-
    STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"

730+
'T_SMUS(H - (15 - 5), -0.5)

731-
    STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"

731+
'T_SMUS(15 - 5, -0.5)

732-
    STR_OUT(5) = TL_CUT_O

732+
733-
    STR_OUT(6) = "TOOLANGLE(0)"

733+
XXR = 279

734-
    STR_OUT(7) = "MIDCUT(N)"

734+
AAA:

735-
    STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)

735+
R01 = R01 & T_CIRC(XXR, 8, 7.2)

736-
    STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"

736+
XXR = XXR + 50

737-
    STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)

737+
If XXR <= H - 279 Then GoTo AAA

738-
    STR_OUT(11) = "'FINE BLOCCO"

738+
739
740
XXB = 29

741
BBB:

742
 R01 = R01 & T_CIRC(XXB, L - 15, 3.3)

743
XXB = XXB + M1

744
If XXB <= H - 29 Then GoTo BBB

745-
    STR_OUT(2) = TL_CLN

745+
746-
    STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"

746+
747-
    STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"

747+
R04 = T_RECT1(-40, 70, 5, -1) & T_RECT1(H + 40, H - 70, 5, -1)

748-
    STR_OUT(5) = TL_CUT_V

748+
749-
    STR_OUT(6) = "TOOLANGLE(90)"

749+
750-
    STR_OUT(7) = "MIDCUT(N)"

750+
751-
    STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"

751+
752-
    STR_OUT(9) = TL_CUT_O

752+
753-
    STR_OUT(10) = "TOOLANGLE(0)"

753+
754-
    STR_OUT(11) = "MIDCUT(N)"

754+
755-
    STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)

755+
756-
    STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"

756+
757-
    STR_OUT(14) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)

757+
758-
    STR_OUT(15) = "'FINE BLOCCO"

758+
759
760
Call SAVE_SUB(NND, STRINGA)

761
762
POSINTAB = def_posintab(NND)

763
'Call CUT_END_S(H, L, "0", POSINTAB)

764
'Call FVTPT(3, NND, "")

765
'Call CUT_END_S(H, L, "B", POSINTAB)

766
'Call FVTPT(3, NND, "B")

767-
Sub S_1036629F(ByVal NND As Integer)

767+
768-
ACT_MOD = "1036629"

768+
'Call FVTPT(3, NND, "C")

769
770
771
    STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)

772
    STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"

773
    STR_OUT(2) = "TOOL(RETTANG.,C500,A29,32.6,22.6)"

774
    STR_OUT(3) = "PUN(P" & CNLV_GEO & "(" & "78.8" & "," & Jcdf(L + 12.8) & "))"

775
    STR_OUT(5) = "TOOL(RETTANG.,C500,A-29,32.6,22.6)"

776
    STR_OUT(6) = "PUN(P" & CNLV_GEO & "(" & Jcdf(H - 78.8) & "," & Jcdf(L + 12.8) & "))"

777
    STR_OUT(8) = TL_CUT_O

778
    STR_OUT(9) = "TOOLANGLE(0)"

779
    STR_OUT(10) = "MIDCUT(N)"

780
    STR_OUT(11) = UnloadOutline(110, 6, 0, -6, H, L)

781
    STR_OUT(12) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)

782-
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)

782+
    STR_OUT(13) = "'FINE BLOCCO"

783-
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)

783+
784-
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)

784+
785-
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)

785+
786-
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)

786+
787-
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)

787+
788-
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)

788+
789-
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)

789+
790-
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)

790+
791-
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)

791+
Sub S_10067200(ByVal NND As Integer)

792-
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)

792+
ACT_MOD = "1006720"

793-
'M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)

793+
794-
'M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)

794+
795-
'M22 = INPUT_NUM(NND, "M22", M22, ACT_MOD)

795+
796-
M23 = INPUT_NUM(NND, "M23", M23, ACT_MOD)

796+
797
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

798-
ODP = INFO_DAT(NND, 0, 5)

798+
799
800
fn = ""

801-
EN_ASL = 10

801+
802-
If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)

802+
803
MVAL = 500

804
STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn

805
806
Call SAVE_SUB(NND, STRINGA)

807-
AGG = 1

807+
808
POSINTAB = def_posintab(NND)

809-
AGG = 2

809+
810
Call FVTPT(3, NND, "")

811-
MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)

811+
812
Call FVTPT(3, NND, "B")

813
Call CUT_END_S(H, L, "C", POSINTAB)

814-
R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)

814+
815-
R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)

815+
816-
If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""

816+
817-
If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""

817+
818-
If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""

818+
819-
If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""

819+
Sub S_10068200(ByVal NND As Integer)

820
ACT_MOD = "1006820"

821-
R01 = R01A & R01B & R01C & R01D & R01E & R01F

821+
822
823-
R02A = T_SLOT(13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90)

823+
824-
If M7 > 0 Then R02B = T_SLOT(13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) Else R02B = ""

824+
825-
R02 = R02A & R02B

825+
826
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

827-
R03A = T_SLOT(M15, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

827+
828-
R03B = T_SLOT(M5 + M6 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 / 2, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

828+
829-
If M16 > 0 Then R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03C = ""

829+
830-
If M23 > 0 Then R03D = T_SLOT(M23, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03D = ""

830+
831-
R03 = R03A & R03B & R03C & R03D

831+
R01 = T_CIRC(30, L - 8, 3.3) & T_CIRC(H - 30, L - 8, 3.3)

832
833-
DIM_ASL = 6.5

833+
834-
R04A = T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

834+
835-
R04B = T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

835+
fn = R01

836-
R04C = T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

836+
837-
R04D = T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

837+
838-
R04E = T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

838+
839-
R04F = T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

839+
840-
R04 = R04A & R04B & R04C & R04D & R04E & R04F

840+
841
842-
R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)

842+
843-
'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)

843+
844
POSINTAB = def_posintab(NND)

845
Call CUT_END_S(H, L, "0", POSINTAB)

846-
R07 = T_SLOT(M3 - 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90) & T_SLOT(M3 + M2 + 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90)

846+
847
Call CUT_END_S(H, L, "B", POSINTAB)

848-
R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)

848+
849
Call CUT_END_S(H, L, "C", POSINTAB)

850-
R09A = T_SMUS(20 - 5.25, L - 20) & T_SMUS(0, L - 20 - 20 + 5.25) & T_SMUS(5, L - 20 - 20 + 5.25 + 5) & T_SMUS(10, L - 20 - 20 + 5.25 + 10)

850+
851-
R09B = T_SMUS(H - (20 - 5.25), L - 20) & T_SMUS(H, L - 20 - 20 + 5.25) & T_SMUS(H - 5, L - 20 - 20 + 5.25 + 5) & T_SMUS(H - 10, L - 20 - 20 + 5.25 + 10)

851+
852
853-
R09C = T_SMUS(5 - 5, L - 20 - 20 + 5.25 + 5 + 5) & T_SMUS(10 - 5, L - 20 - 20 + 5.25 + 10 + 5)

853+
854-
R09D = T_SMUS(H - 10 + 5, L - 20 - 20 + 5.25 + 10 + 5) & T_SMUS(H - 5 + 5, L - 20 - 20 + 5.25 + 5 + 5)

854+
855
Sub S_1006820A(ByVal NND As Integer)

856-
'R09C = T_CIRC(0, L - 20, 10.5) & T_CIRC(H, L - 20, 10.5)

856+
ACT_MOD = "1006820"

857-
R09 = R09A & R09B & R09C & R09D

857+
858
859-
R10 = T_RECT2(17.5, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)

859+
860-
R_MS = 0.7

860+
861-
R11 = T_SMUS(-R_MS, 23 - R_MS) & T_SMUS(M3 - R_MS, -R_MS) & T_SMUS(M3 + M2 + R_MS, -R_MS) & T_SMUS(H + R_MS, 23 - R_MS)

861+
862
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

863-
'If M21 > 0 Then R12 = T_SLOT(M21, 13 + 58 + M20 - 4 * SPS, 20, 6.5, 90) Else R12 = ""

863+
864-
'If M22 > 0 Then R13 = T_SLOT(H - M22, 13 + 58 + M20 - 4 * SPS, 20, 6.5, 90) Else R13 = ""

864+
865
866-
R14 = T_DATAMATRIX(ODP, H - 10 - 18.5, L - 46.3 - 45, "V")

866+
R01 = T_CIRC(30, L - 8, 3.3) & T_CIRC(H - 30, L - 8, 3.3)

867
'R02 = T_SPECIAL(8, L - 2, "32,6", "C30.") & T_SPECIAL(16, L + 2.7, "32,6", "C30.")

868-
fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R14  '& R12 & R13

868+
'R03 = T_SPECIAL(H - 8, L - 2, "32,6", "C330.") & T_SPECIAL(H - 16, L + 2.7, "32,6", "C330.")

869
'FARE IL BLOCCO COL TAGLIO

870
fn = R01

871
872
873
P1 = 250

874
P2 = H - 400

875
MVAL = 500

876
STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn

877
878
Call SAVE_SUB(NND, STRINGA)

879
880
POSINTAB = def_posintab(NND)

881
882
883
    STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)

884-
    STR_OUT(2) = TL_CLN

884+
885-
    STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"

885+
    STR_OUT(2) = "TOOL(RETTANG.,C500,A30,32.6,22.6)"

886-
    STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"

886+
    STR_OUT(3) = "PUN(P" & CNLV_GEO & "(8, 59.3))"

887-
    STR_OUT(5) = TL_CUT_O

887+
    STR_OUT(4) = "PUN(P" & CNLV_GEO & "(16, 64))"

888-
    STR_OUT(6) = "TOOLANGLE(0)"

888+
    STR_OUT(5) = "TOOL(RETTANG.,C500,A-30,32.6,22.6)"

889-
    STR_OUT(7) = "MIDCUT(N)"

889+
    STR_OUT(6) = "PUN(P" & CNLV_GEO & "(" & Jcdf(H - 8) & ", 59.3))"

890-
    STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)

890+
    STR_OUT(7) = "PUN(P" & CNLV_GEO & "(" & Jcdf(H - 16) & ", 64))"

891-
    STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"

891+
    STR_OUT(8) = TL_CUT_O

892-
    STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)

892+
    STR_OUT(9) = "TOOLANGLE(0)"

893-
    STR_OUT(11) = "'FINE BLOCCO"

893+
    STR_OUT(10) = "MIDCUT(N)"

894
    STR_OUT(11) = UnloadOutline(110, 6, 0, -6, H, L)

895
    STR_OUT(12) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)

896
    STR_OUT(13) = "'FINE BLOCCO"

897
898
899
'Call CUT_END_S(H, L, "0", POSINTAB)

900-
    STR_OUT(2) = TL_CLN

900+
901-
    STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"

901+
'Call CUT_END_S(H, L, "B", POSINTAB)

902-
    STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"

902+
'Call FVTPT(3, NND, "B")

903-
    STR_OUT(5) = TL_CUT_V

903+
904-
    STR_OUT(6) = "TOOLANGLE(90)"

904+
'Call FVTPT(3, NND, "C")

905-
    STR_OUT(7) = "MIDCUT(N)"

905+
906-
    STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"

906+
907-
    STR_OUT(9) = TL_CUT_O

907+
908-
    STR_OUT(10) = "TOOLANGLE(0)"

908+
909-
    STR_OUT(11) = "MIDCUT(N)"

909+
910-
    STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)

910+
Sub S_1013300C(ByVal NND As Integer)

911-
    STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"

911+
ACT_MOD = "1013300"

912-
    STR_OUT(14) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)

912+
913-
    STR_OUT(15) = "'FINE BLOCCO"

913+
914
L = INPUT_NUM(NND, "L", L, ACT_MOD)

915
H = INPUT_NUM(NND, "H", H, ACT_MOD)

916
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

917
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)

918
VV = INPUT_NUM(NND, "VER.", VV, ACT_MOD)

919
920
921
Select Case VV

922-
Sub S_10414310(ByVal NND As Integer)

922+
Case 4, 5, 6  '********************************************* SPACCO *********************

923-
ACT_MOD = "1041431"

923+
R01 = T_RECT1(H - 250, H + 5, -5, 15)

924
Case Else

925
R01 = ""

926
End Select

927
928
fn = R01

929
930
P1 = 250

931
P2 = H - 400

932
MVAL = 500

933
STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn

934
935
Call SAVE_SUB(NND, STRINGA)

936
937-
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)

937+
938-
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)

938+
939-
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)

939+
940-
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)

940+
941-
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)

941+
942-
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)

942+
943-
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)

943+
944-
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)

944+
945-
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)

945+
946-
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)

946+
947-
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)

947+
948-
M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)

948+
949-
M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)

949+
950-
M22 = INPUT_NUM(NND, "M22", M22, ACT_MOD)

950+
Sub S_10163900(ByVal NND As Integer)

951-
M23 = INPUT_NUM(NND, "M23", M23, ACT_MOD)

951+
ACT_MOD = "1016390"

952-
M24 = INPUT_NUM(NND, "M24", M24, ACT_MOD)

952+
953
954
L = INPUT_NUM(NND, "L", L, ACT_MOD)

955-
ODP = INFO_DAT(NND, 0, 5)

955+
956
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)

957
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)

958-
EN_ASL = 10

958+
959-
If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)

959+
960
961
962
SCS = 6

963
XXX = M3 + 11 - 4

964-
AGG = 1

964+
965
R01 = T_RECT1(H - 15, H + SCS, -SCS, 15)

966-
AGG = 2

966+
R02 = T_SLOT(H - 10, L - XXX, 16, 6.5, 90) & T_SLOT(10, L - XXX, 16, 6.5, 90)

967
968-
MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)

968+
'SMUSSI

969
GSG = 0.2

970
R03 = T_SMUS(-GSG, -GSG)

971-
R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)

971+
R03 = R03 & T_SMUS(-GSG, L + GSG)

972-
R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)

972+
R03 = R03 & T_SMUS(H + GSG, L + GSG)

973-
If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""

973+
R03 = R03 & T_SMUS(H + GSG, 15 - GSG)

974-
If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""

974+
R03 = R03 & T_SMUS(H - 15 + GSG, -GSG)

975-
If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""

975+
976-
If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""

976+
977
fn = R01 & R02 & R03

978-
R01 = R01A & R01B & R01C & R01D & R01E & R01F

978+
979
P2 = H - 400

980-
R02A = T_SLOT(13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90)

980+
981-
If M7 > 0 Then R02B = T_SLOT(13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) Else R02B = ""

981+
982-
R02 = R02A & R02B

982+
983
Call SAVE_SUB(NND, STRINGA)

984-
R03A = T_SLOT(M15, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

984+
985-
If M20 > 0 Then R03A = R03A & T_SLOT(M5 + 50 - M20, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

985+
986-
R03B = T_SLOT(M5 + M6 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 / 2, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

986+
987-
If M21 > 0 Then R03B = R03B & T_SLOT(M5 + M6 - 50 + M21, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

987+
988-
R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

988+
989-
R03 = R03A & R03B & R03C

989+
990
Call CUT_END_S(H, L, "C", POSINTAB)

991-
DIM_ASL = 6.5

991+
992-
R04A = T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

992+
993-
R04B = T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

993+
994-
R04C = T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

994+
995-
R04D = T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

995+
Sub S_1016400A(ByVal NND As Integer)

996-
R04E = T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

996+
ACT_MOD = "1016400"

997-
R04F = T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

997+
998-
R04 = R04A & R04B & R04C & R04D & R04E & R04F

998+
999
L = INPUT_NUM(NND, "L", L, ACT_MOD)

1000-
R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)

1000+
1001-
'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)

1001+
1002
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)

1003
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)

1004-
R07 = T_SLOT(M3 - 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90) & T_SLOT(M3 + M2 + 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90)

1004+
1005
VV = INPUT_STR(NND, "VER", VV, ACT_MOD)

1006-
R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)

1006+
1007
VV = Replace(VV, "H", "")

1008-
R09A = T_SMUS(20 - 5.25, L - 20) & T_SMUS(0, L - 20 - 20 + 5.25) & T_SMUS(5, L - 20 - 20 + 5.25 + 5) & T_SMUS(10, L - 20 - 20 + 5.25 + 10)

1008+
1009-
R09B = T_SMUS(H - (20 - 5.25), L - 20) & T_SMUS(H, L - 20 - 20 + 5.25) & T_SMUS(H - 5, L - 20 - 20 + 5.25 + 5) & T_SMUS(H - 10, L - 20 - 20 + 5.25 + 10)

1009+
1010
SCS = 6

1011-
R09C = T_SMUS(5 - 5, L - 20 - 20 + 5.25 + 5 + 5) & T_SMUS(10 - 5, L - 20 - 20 + 5.25 + 10 + 5)

1011+
1012-
R09D = T_SMUS(H - 10 + 5, L - 20 - 20 + 5.25 + 10 + 5) & T_SMUS(H - 5 + 5, L - 20 - 20 + 5.25 + 5 + 5)

1012+
1013
Case 1

1014-
'R09C = T_CIRC(0, L - 20, 10.5) & T_CIRC(H, L - 20, 10.5)

1014+
1015-
R09 = R09A & R09B & R09C & R09D

1015+
R01 = T_RECT1(-SCS, 17, -2, 3)

1016
R01 = R01 & T_RECT1(-SCS, L - M3 - 8, M2, H + SCS)

1017-
R10 = T_RECT2(17.5, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)

1017+
R01 = R01 & T_RECT1(L - M3 + 8, L + SCS, M2, H + SCS)

1018-
R_MS = 0.7

1018+
'Print #NF, T_CIRC(10, 12, 5)        'VECCHIO

1019-
R11 = T_SMUS(-R_MS, 23 - R_MS) & T_SMUS(M3 - R_MS, -R_MS) & T_SMUS(M3 + M2 + R_MS, -R_MS) & T_SMUS(H + R_MS, 23 - R_MS)

1019+
'Print #NF, T_CIRC(10, 12 + M4, 5)   'VECCHIO

1020
R02 = T_CIRC(6, 12, 5)

1021-
If M22 > 0 Then R12 = T_SLOT(38, 13 + 58 + M22 - 4 * SPS, 12, 6.5, 90) Else R12 = ""

1021+
R02 = R02 & T_CIRC(6, 12 + M4, 5)

1022-
If M23 > 0 Then R13 = T_SLOT(H - 38, 13 + 58 + M23 - 4 * SPS, 12, 6.5, 90) Else R13 = ""

1022+
R02 = R02 & T_CIRC(L - M3, H - 9, 6.5)

1023
R02 = R02 & T_CIRC(L - 4.5, 4.5, 5)

1024-
R14 = T_DATAMATRIX(ODP, H - 10 - 18.5, L - 46.3 - 45, "V")

1024+
R03 = T_SLOT(L - M3 - 8 - 2.5, M2, 15, 5, 90)

1025
R03 = R03 & T_SLOT(L - M3 + 8 + 2.5, M2, 15, 5, 90)

1026-
R15 = T_SLOT(13, L - 16.3 - M24, 6.5, 12, 0) & T_SLOT(H - 13, L - 16.3 - M24, 6.5, 12, 0)

1026+
1027
'SMUSSI

1028-
fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15

1028+
'Print #NF, T_BLQ(L - M3 - 8, H - 2.5, L - M3 - 8 + 2.5, H, 1, 1)

1029
'Print #NF, T_BLQ(L - M3 + 8 - 2.5, H, L - M3 + 8, H - 2.5, 1, 1)

1030
'Print #NF, T_BLQ(L - 2.5, M2, L, M2 - 2.5, 1, 1)

1031
1032
Case 2

1033
R01 = T_RECT1(-SCS, L - M3 - 8, -SCS, H - M2)

1034
R01 = R01 & T_RECT1(L - M3 + 8, L + SCS, -SCS, H - M2)

1035
R01 = R01 & T_RECT1(-SCS, 17, H - 3, H + 2)

1036
'Print #NF, T_CIRC(10, H - 12, 5)       'VECCHIO

1037
'Print #NF, T_CIRC(10, H - 12 - M4, 5)  'VECCHIO

1038
R02 = T_CIRC(6, H - 12, 5)

1039
R02 = R02 & T_CIRC(6, H - 12 - M4, 5)

1040
R02 = R02 & T_CIRC(L - M3, 9, 6.5)

1041
R02 = R02 & T_CIRC(L - 4.5, H - 4.5, 5)

1042
R03 = T_SLOT(L - M3 - 8 - 2.5, H - M2, 15, 5, 90)

1043
R03 = R03 & T_SLOT(L - M3 + 8 + 2.5, H - M2, 15, 5, 90)

1044-
    STR_OUT(2) = TL_CLN

1044+
1045-
    STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"

1045+
'SMUSSI

1046-
    STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"

1046+
'Print #NF, T_BLQ(L, H - M2 + 2.5, L - 2.5, H - M2, 1, 1)

1047-
    STR_OUT(5) = TL_CUT_O

1047+
'Print #NF, T_BLQ(L - M3 + 8, 2.5, L - M3 + 8 - 2.5, 0, 1, 1)

1048-
    STR_OUT(6) = "TOOLANGLE(0)"

1048+
'Print #NF, T_BLQ(L - M3 - 8 + 2.5, 0, L - M3 - 8, 2.5, 1, 1)

1049-
    STR_OUT(7) = "MIDCUT(N)"

1049+
1050-
    STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)

1050+
1051-
    STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"

1051+
1052-
    STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)

1052+
MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical

1053-
    STR_OUT(11) = "'FINE BLOCCO"

1053+
1054
1055
fn = R01 & R02 & R03

1056
1057
P1 = 250

1058
P2 = H - 400

1059
MVAL = 500

1060-
    STR_OUT(2) = TL_CLN

1060+
1061-
    STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"

1061+
1062-
    STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"

1062+
1063-
    STR_OUT(5) = TL_CUT_V

1063+
1064-
    STR_OUT(6) = "TOOLANGLE(90)"

1064+
1065-
    STR_OUT(7) = "MIDCUT(N)"

1065+
1066-
    STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"

1066+
1067-
    STR_OUT(9) = TL_CUT_O

1067+
1068-
    STR_OUT(10) = "TOOLANGLE(0)"

1068+
1069-
    STR_OUT(11) = "MIDCUT(N)"

1069+
1070-
    STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)

1070+
1071-
    STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"

1071+
1072-
    STR_OUT(14) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)

1072+
1073-
    STR_OUT(15) = "'FINE BLOCCO"

1073+
1074
Sub S_1016517A(ByVal NND As Integer)

1075
ACT_MOD = "1016517"

1076
CLAMP = 0

1077
1078
H = INPUT_NUM(NND, "L", L, ACT_MOD)

1079
L = INPUT_NUM(NND, "H", H, ACT_MOD)

1080
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)

1081-
Sub S_1041431A(ByVal NND As Integer)

1081+
1082-
ACT_MOD = "1041431"

1082+
1083
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)

1084
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

1085
1086
1087
SCS = 6

1088
If M4 > 0 And M3 > 0 Then

1089
R01 = T_RECT1(H / 2 - M4 / 2, H / 2 + M4 / 2, -SCS, M3)

1090
Else

1091
R01 = ""

1092
End If

1093
1094
R02 = T_SLOT(11, L - 15, 20, 6.5, 90) & T_SLOT(H - 11, L - 15, 20, 6.5, 90)

1095
1096-
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)

1096+
1097-
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)

1097+
1098-
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)

1098+
1099-
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)

1099+
1100-
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)

1100+
1101-
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)

1101+
1102-
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)

1102+
1103-
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)

1103+
1104-
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)

1104+
1105-
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)

1105+
1106-
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)

1106+
1107-
M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)

1107+
1108-
M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)

1108+
1109-
M22 = INPUT_NUM(NND, "M22", M22, ACT_MOD)

1109+
1110-
M23 = INPUT_NUM(NND, "M23", M23, ACT_MOD)

1110+
1111-
M24 = INPUT_NUM(NND, "M24", M24, ACT_MOD)

1111+
1112-
M25 = INPUT_NUM(NND, "M25", M25, ACT_MOD)

1112+
1113
1114-
ODP = INFO_DAT(NND, 0, 5)

1114+
1115
1116
Sub S_1016517B(ByVal NND As Integer)

1117-
EN_ASL = 10

1117+
ACT_MOD = "1016517"

1118-
If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)

1118+
1119
1120
H = INPUT_NUM(NND, "L", L, ACT_MOD)

1121
L = INPUT_NUM(NND, "H", H, ACT_MOD)

1122
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)

1123-
AGG = 1

1123+
1124
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)

1125-
AGG = 2

1125+
1126
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

1127-
MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)

1127+
1128
1129
SCS = 6

1130-
R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)

1130+
If M4 > 0 And M3 > 0 Then

1131-
R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)

1131+
R01 = T_RECT1(H / 2 - M4 / 2, H / 2 + M4 / 2, -SCS, M3)

1132-
If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""

1132+
Else

1133-
If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""

1133+
R01 = ""

1134-
If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""

1134+
End If

1135-
If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""

1135+
1136
R02 = T_SLOT(11, L - 15, 20, 6.5, 90) & T_SLOT(H - 11, L - 15, 20, 6.5, 90)

1137-
R01 = R01A & R01B & R01C & R01D & R01E & R01F

1137+
1138
R03 = T_RECT1(-5, 15, -5, 15) & T_RECT1(H + 5, H - 15, -5, 15)

1139-
R02A = T_SLOT(13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90)

1139+
1140-
If M7 > 0 Then R02B = T_SLOT(13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) Else R02B = ""

1140+
fn = R01 & R02 & R03

1141-
R02 = R02A & R02B

1141+
1142
P1 = 250

1143-
R03A = T_SLOT(M15, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

1143+
1144-
If M20 > 0 Then R03A = R03A & T_SLOT(M5 + 50 - M20, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

1144+
1145-
R03B = T_SLOT(M5 + M6 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 / 2, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

1145+
1146-
If M21 > 0 Then R03B = R03B & T_SLOT(M5 + M6 - 50 + M21, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

1146+
1147-
If M16 > 0 Then R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03C = ""

1147+
1148-
If M25 > 0 Then R03D = T_SLOT(M25, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

1148+
1149-
R03 = R03A & R03B & R03C & R03D

1149+
1150
Call CUT_END_S(H, L, "0", POSINTAB)

1151-
DIM_ASL = 6.5

1151+
1152-
R04A = T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1152+
1153-
R04B = T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1153+
1154-
R04C = T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1154+
1155-
R04D = T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1155+
1156-
R04E = T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1156+
1157-
R04F = T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1157+
1158-
R04 = R04A & R04B & R04C & R04D & R04E & R04F

1158+
1159
1160-
R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)

1160+
Sub S_1016517C(ByVal NND As Integer)

1161-
'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)

1161+
ACT_MOD = "1016517"

1162
CLAMP = 0

1163
1164-
R07 = T_SLOT(M3 - 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90) & T_SLOT(M3 + M2 + 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90)

1164+
H = INPUT_NUM(NND, "L", L, ACT_MOD)

1165
L = INPUT_NUM(NND, "H", H, ACT_MOD)

1166-
R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)

1166+
1167
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)

1168-
R09A = T_SMUS(20 - 5.25, L - 20) & T_SMUS(0, L - 20 - 20 + 5.25) & T_SMUS(5, L - 20 - 20 + 5.25 + 5) & T_SMUS(10, L - 20 - 20 + 5.25 + 10)

1168+
1169-
R09B = T_SMUS(H - (20 - 5.25), L - 20) & T_SMUS(H, L - 20 - 20 + 5.25) & T_SMUS(H - 5, L - 20 - 20 + 5.25 + 5) & T_SMUS(H - 10, L - 20 - 20 + 5.25 + 10)

1169+
1170
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)

1171-
R09C = T_SMUS(5 - 5, L - 20 - 20 + 5.25 + 5 + 5) & T_SMUS(10 - 5, L - 20 - 20 + 5.25 + 10 + 5)

1171+
1172-
R09D = T_SMUS(H - 10 + 5, L - 20 - 20 + 5.25 + 10 + 5) & T_SMUS(H - 5 + 5, L - 20 - 20 + 5.25 + 5 + 5)

1172+
1173
1174-
'R09C = T_CIRC(0, L - 20, 10.5) & T_CIRC(H, L - 20, 10.5)

1174+
1175-
R09 = R09A & R09B & R09C & R09D

1175+
1176
If M4 > 0 And M3 > 0 Then

1177-
R10 = T_RECT2(17.5, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)

1177+
R01 = T_RECT1(H / 2 - M4 / 2, H / 2 + M4 / 2, -SCS, M3)

1178-
R_MS = 0.7

1178+
Else

1179-
R11 = T_SMUS(-R_MS, 23 - R_MS) & T_SMUS(M3 - R_MS, -R_MS) & T_SMUS(M3 + M2 + R_MS, -R_MS) & T_SMUS(H + R_MS, 23 - R_MS)

1179+
R01 = ""

1180
End If

1181-
If M22 > 0 Then R12 = T_SLOT(38, 13 + 58 + M22 - 4 * SPS, 12, 6.5, 90) Else R12 = ""

1181+
1182-
If M23 > 0 Then R13 = T_SLOT(H - 38, 13 + 58 + M23 - 4 * SPS, 12, 6.5, 90) Else R13 = ""

1182+
R02 = T_SLOT((M5 - M6) / 2, L - 15, 20, 6.5, 90) & T_SLOT(H - ((M5 - M6) / 2), L - 15, 20, 6.5, 90)

1183
1184-
R14 = T_DATAMATRIX(ODP, H - 10 - 18.5, L - 46.3 - 45, "V")

1184+
R03 = T_RECT1(-5, 15, -5, 15) & T_RECT1(H + 5, H - 15, -5, 15)

1185
1186-
R15 = T_SLOT(13, L - 16.3 - M24, 12, 6.5, 0) & T_SLOT(H - 13, L - 16.3 - M24, 12, 6.5, 0)

1186+
fn = R01 & R02 & R03

1187
1188-
fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15

1188+
1189
P2 = H - 400

1190
MVAL = 500

1191
STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn

1192
1193
Call SAVE_SUB(NND, STRINGA)

1194
1195
POSINTAB = def_posintab(NND)

1196
Call CUT_END_S(H, L, "0", POSINTAB)

1197
Call FVTPT(3, NND, "")

1198
Call CUT_END_S(H, L, "B", POSINTAB)

1199
Call FVTPT(3, NND, "B")

1200
Call CUT_END_S(H, L, "C", POSINTAB)

1201
Call FVTPT(3, NND, "C")

1202
1203
1204-
    STR_OUT(2) = TL_CLN

1204+
1205-
    STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"

1205+
1206-
    STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"

1206+
Sub S_1016517E(ByVal NND As Integer)

1207-
    STR_OUT(5) = TL_CUT_O

1207+
ACT_MOD = "1016517"

1208-
    STR_OUT(6) = "TOOLANGLE(0)"

1208+
1209-
    STR_OUT(7) = "MIDCUT(N)"

1209+
1210-
    STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)

1210+
H = INPUT_NUM(NND, "L", L, ACT_MOD)

1211-
    STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"

1211+
L = INPUT_NUM(NND, "H", H, ACT_MOD)

1212-
    STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)

1212+
1213-
    STR_OUT(11) = "'FINE BLOCCO"

1213+
1214
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)

1215
M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)

1216
M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)

1217
M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)

1218
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

1219
1220-
    STR_OUT(2) = TL_CLN

1220+
1221-
    STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"

1221+
1222-
    STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"

1222+
If M4 > 0 And M3 > 0 Then

1223-
    STR_OUT(5) = TL_CUT_V

1223+
R01 = T_RECT1(H / 2 - M4 / 2, H / 2 + M4 / 2, -SCS, M3)

1224-
    STR_OUT(6) = "TOOLANGLE(90)"

1224+
Else

1225-
    STR_OUT(7) = "MIDCUT(N)"

1225+
R01 = ""

1226-
    STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"

1226+
End If

1227-
    STR_OUT(9) = TL_CUT_O

1227+
1228-
    STR_OUT(10) = "TOOLANGLE(0)"

1228+
'R02 = T_SLOT((M5 - M6) / 2, L - 15, 20, 6.5, 90) & T_SLOT(H - ((M5 - M6) / 2), L - 15, 20, 6.5, 90)--M5 NON VALORIZZATO NEI TAGLI,IN ATTESA MESSO VALORE 11MM FISSO-DAVIDE

1229-
    STR_OUT(11) = "MIDCUT(N)"

1229+
R02 = T_SLOT(11, L - 15, 20, 6.5, 90) & T_SLOT(H - 11, L - 15, 20, 6.5, 90)

1230-
    STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)

1230+
1231-
    STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"

1231+
R03 = T_RECT1(-5, 15, -5, 15) & T_RECT1(H + 5, H - 15, -5, 15)

1232-
    STR_OUT(14) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)

1232+
1233-
    STR_OUT(15) = "'FINE BLOCCO"

1233+
fn = R01 & R02 & R03

1234
1235
P1 = 250

1236
P2 = H - 400

1237
MVAL = 500

1238
STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn

1239
1240
Call SAVE_SUB(NND, STRINGA)

1241
1242-
Sub S_1041431B(ByVal NND As Integer)

1242+
1243-
ACT_MOD = "1041431"

1243+
1244
Call FVTPT(3, NND, "")

1245
Call CUT_END_S(H, L, "B", POSINTAB)

1246
Call FVTPT(3, NND, "B")

1247
Call CUT_END_S(H, L, "C", POSINTAB)

1248
Call FVTPT(3, NND, "C")

1249
1250
1251
End Sub

1252
1253
1254
1255
Sub S_1016520A(ByVal NND As Integer)

1256
ACT_MOD = "1016520"

1257-
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)

1257+
1258-
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)

1258+
1259-
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)

1259+
1260-
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)

1260+
1261-
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)

1261+
1262-
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)

1262+
1263-
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)

1263+
1264-
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)

1264+
1265-
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)

1265+
1266-
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)

1266+
1267-
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)

1267+
1268-
M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)

1268+
1269-
M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)

1269+
1270-
M24 = INPUT_NUM(NND, "M24", M24, ACT_MOD)

1270+
VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)

1271-
M25 = INPUT_NUM(NND, "M25", M25, ACT_MOD)

1271+
1272
VV = Replace(VV, "H", "")

1273-
ODP = INFO_DAT(NND, 0, 5)

1273+
1274
1275
1276-
EN_ASL = 10

1276+
1277-
If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)

1277+
sf = L - 7

1278
DF = H - 9

1279
1280
Select Case VV

1281
Case 1, 2

1282-
AGG = 1

1282+
R01 = T_RECT1(-1.5, 15.5, -1, 3)   'SCANTONATURA BASSA

1283
R01 = R01 & T_RECT1(-SCS, 16 + M1 - M8 - 7.5 - 4, M2, H + SCS)  'SVUOTAMENTO SINISTRO

1284-
AGG = 2

1284+
1285
R01 = R01 & T_RECT1(16 - 4 + M1 - M8 - 7.5 - 10, 16 - 4 + M1 - M8 - 7.5, M2 - 5 - M5, M2)  'SPACCO INTERNO

1286-
MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)

1286+
R01 = R01 & T_RECT1(16 - 4 + M1 - M8 - 7.5 - 25, 16 - 4 + M1 - M8 - 7.5, M2 - 5 - M5, M2 - 5)  'SPACCO INTERNO

1287
R01 = R01 & T_RECT1(16 - 4 + M1 - M8 + 7.5, L - 22, M2, H + SCS)  'SVUOTAMENTO DESTRO

1288
R01 = R01 & T_SLOT(16 - 4 + M1 - M8 + 7.5 + 2.5, M2 - 1, 15, 5, 90)

1289-
R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)

1289+
1290-
R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)

1290+
R01 = R01 & T_CIRC(5, M4 - M6, 5.5)

1291-
If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""

1291+
R01 = R01 & T_CIRC(5, M4, 5.5)

1292-
If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""

1292+
R01 = R01 & T_CIRC(16 + M1 - M8 - 4, H - 9.5, 8.5)

1293-
If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""

1293+
R01 = R01 & T_CIRC(L - 16, H - 5, 5.5)

1294-
If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""

1294+
1295
'Print #NF, T_BLQ(L - 10, H, L, H - 10, 1, 1)

1296-
R01 = R01A & R01B & R01C & R01D & R01E & R01F

1296+
'Print #NF, T_BLQ(L - 5.35, H + 1, L + 1, H - 5.35, 1, 1)

1297
'Print #NF, T_BLQ(L, 2.5, L - 2.5, 0, 1, 1)

1298-
R02A = T_SLOT(13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90)

1298+
1299-
If M7 > 0 Then R02B = T_SLOT(13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) Else R02B = ""

1299+
1300-
R02 = R02A & R02B

1300+
If sf = 120 And DF = 39 Then

1301
R02 = T_CIRC(16 + 33.8 + 50 - 4, 8.5, 5.5)

1302-
R03A = T_SLOT(M15, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

1302+
R02 = R02 & T_CIRC(16 + 33.8 - 4, 8.5, 5.5)

1303-
If M20 > 0 Then R03A = R03A & T_SLOT(M5 + 50 - M20, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

1303+
Else

1304-
R03B = T_SLOT(M5 + M6 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 / 2, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

1304+
1305-
If M21 > 0 Then R03B = R03B & T_SLOT(M5 + M6 - 50 + M21, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

1305+
End If

1306-
If M16 > 0 Then R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03C = ""

1306+
1307-
If M25 > 0 Then R03D = T_SLOT(M25, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

1307+
1308-
R03 = R03A & R03B & R03C & R03D

1308+
1309
Case 3, 4

1310-
DIM_ASL = 6.5

1310+
1311-
R04A = T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1311+
R01 = T_RECT1(-1.5, 15.5, -1, 3)  'SCANTONATURA BASSA

1312-
R04B = T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1312+
R01 = R01 & T_RECT1(-SCS, 16 + M1 - M8 - 7.5 - 4, M2, H + SCS)  'SVUOTAMENTO SINISTRO

1313-
R04C = T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1313+
1314-
R04D = T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1314+
R01 = R01 & T_RECT1(16 - 4 + M1 - M8 - 7.5 - 10, 16 - 4 + M1 - M8 - 7.5, M2 - 5 - M5, M2)   'SPACCO INTERNO

1315-
R04E = T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1315+
R01 = R01 & T_RECT1(16 - 4 + M1 - M8 - 7.5 - 25, 16 - 4 + M1 - M8 - 7.5, M2 - 5 - M5, M2 - 5)  'SPACCO INTERNO

1316-
R04F = T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1316+
R01 = R01 & T_RECT1(16 - 4 + M1 - M8 + 7.5, L - 22, M2, H + SCS)  'SVUOTAMENTO DESTRO

1317-
R04 = R04A & R04B & R04C & R04D & R04E & R04F

1317+
R01 = R01 & T_SLOT(16 - 4 + M1 - M8 + 7.5 + 2.5, M2 - 1, 15, 5, 90)

1318
R01 = R01 & T_SLOT(16 - 4 + M1 - M8 - 7.5 - 2.5, M2 - 1, 15, 5, 90)

1319-
R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)

1319+
1320-
'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)

1320+
R01 = R01 & T_CIRC(5, M4 - M6, 5.5)

1321
R01 = R01 & T_CIRC(5, M4, 5.5)

1322
R01 = R01 & T_CIRC(16 + M1 - M8 - 4, H - 9.5, 8.5)

1323-
R07 = T_SLOT(M3 - 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90) & T_SLOT(M3 + M2 + 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90)

1323+
R01 = R01 & T_CIRC(L - 16, H - 5, 5.5)

1324
1325-
R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)

1325+
'Print #NF, T_BLQ(L - 10, H, L, H - 10, 1, 1)

1326
'Print #NF, T_BLQ(L - 5.35, H + 1, L + 1, H - 5.35, 1, 1)

1327-
R09A = T_SMUS(20 - 5.25, L - 20) & T_SMUS(0, L - 20 - 20 + 5.25) & T_SMUS(5, L - 20 - 20 + 5.25 + 5) & T_SMUS(10, L - 20 - 20 + 5.25 + 10)

1327+
'Print #NF, T_BLQ(L, 2.5, L - 2.5, 0, 1, 1)

1328-
R09B = T_SMUS(H - (20 - 5.25), L - 20) & T_SMUS(H, L - 20 - 20 + 5.25) & T_SMUS(H - 5, L - 20 - 20 + 5.25 + 5) & T_SMUS(H - 10, L - 20 - 20 + 5.25 + 10)

1328+
1329
1330-
R09C = T_SMUS(5 - 5, L - 20 - 20 + 5.25 + 5 + 5) & T_SMUS(10 - 5, L - 20 - 20 + 5.25 + 10 + 5)

1330+
If sf = 120 And DF = 39 Then

1331-
R09D = T_SMUS(H - 10 + 5, L - 20 - 20 + 5.25 + 10 + 5) & T_SMUS(H - 5 + 5, L - 20 - 20 + 5.25 + 5 + 5)

1331+
R02 = T_CIRC(16 + 33.8 + 50 - 4, 8.5, 5.5)

1332
R02 = R02 & T_CIRC(16 + 33.8 - 4, 8.5, 5.5)

1333-
'R09C = T_CIRC(0, L - 20, 10.5) & T_CIRC(H, L - 20, 10.5)

1333+
Else

1334-
R09 = R09A & R09B & R09C & R09D

1334+
1335
End If

1336-
R10 = T_RECT2(17.5, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)

1336+
1337-
R_MS = 0.7

1337+
1338-
R11 = T_SMUS(-R_MS, 23 - R_MS) & T_SMUS(M3 - R_MS, -R_MS) & T_SMUS(M3 + M2 + R_MS, -R_MS) & T_SMUS(H + R_MS, 23 - R_MS)

1338+
1339
MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical

1340-
'If M22 > 0 Then R12 = T_SLOT(38, 13 + 58 + M22 - 4 * SPS, 12, 6.5, 90) Else R12 = ""

1340+
1341-
'If M23 > 0 Then R13 = T_SLOT(H - 38, 13 + 58 + M23 - 4 * SPS, 12, 6.5, 90) Else R13 = ""

1341+
1342
1343-
R14 = T_DATAMATRIX(ODP, H - 10 - 18.5, L - 46.3 - 45, "V")

1343+
1344
P1 = 250

1345-
R15 = T_SLOT(13, L - 16.3 - M24, 12, 6.5, 0) & T_SLOT(H - 13, L - 16.3 - M24, 12, 6.5, 0)

1345+
1346
MVAL = 500

1347-
fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R14 & R15

1347+
1348
1349
Call SAVE_SUB(NND, STRINGA)

1350
1351
POSINTAB = def_posintab(NND)

1352
Call CUT_END_S(H, L, "0", POSINTAB)

1353
Call FVTPT(3, NND, "")

1354
Call CUT_END_S(H, L, "B", POSINTAB)

1355
Call FVTPT(3, NND, "B")

1356
Call CUT_END_S(H, L, "C", POSINTAB)

1357
Call FVTPT(3, NND, "C")

1358
1359
End Sub

1360
Sub S_1078916A(ByVal NND As Integer)

1361
ACT_MOD = "1078916"

1362
CLAMP = 0

1363-
    STR_OUT(2) = TL_CLN

1363+
1364-
    STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"

1364+
1365-
    STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"

1365+
1366-
    STR_OUT(5) = TL_CUT_O

1366+
1367-
    STR_OUT(6) = "TOOLANGLE(0)"

1367+
1368-
    STR_OUT(7) = "MIDCUT(N)"

1368+
1369-
    STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)

1369+
1370-
    STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"

1370+
1371-
    STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)

1371+
1372-
    STR_OUT(11) = "'FINE BLOCCO"

1372+
1373
VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)

1374
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

1375
VV = Replace(VV, "H", "")

1376
1377
1378
1379-
    STR_OUT(2) = TL_CLN

1379+
1380-
    STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"

1380+
1381-
    STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"

1381+
1382-
    STR_OUT(5) = TL_CUT_V

1382+
1383-
    STR_OUT(6) = "TOOLANGLE(90)"

1383+
Sub S_10174520(ByVal NND As Integer)

1384-
    STR_OUT(7) = "MIDCUT(N)"

1384+
ACT_MOD = "1017452"

1385-
    STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"

1385+
1386-
    STR_OUT(9) = TL_CUT_O

1386+
1387-
    STR_OUT(10) = "TOOLANGLE(0)"

1387+
1388-
    STR_OUT(11) = "MIDCUT(N)"

1388+
1389-
    STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)

1389+
1390-
    STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"

1390+
1391-
    STR_OUT(14) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)

1391+
1392-
    STR_OUT(15) = "'FINE BLOCCO"

1392+
1393
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)

1394
VV = Replace(VV, "H", "")

1395
1396
SCS = 6

1397
1398
R01 = T_RECT1(L / 2 - M1 - 8.6, L / 2 - M1, H - 16.8, H + SCS)

1399
R01 = R01 & T_RECT1(L / 2 - M1 - 4.3 - 20, L / 2 - M1 - 4.3 + 20, 19, H - 22)

1400
R01 = R01 & T_RECT1(L / 2 - M2 - 40, L / 2 - M2, H - 35, H + SCS)

1401-
Sub S_1041431C(ByVal NND As Integer)

1401+
R01 = R01 & T_RECT1(L / 2 - M1 + M3 - 8.6, L / 2 - M1 + M3, H - 16.8, H + SCS)

1402-
ACT_MOD = "1041431"

1402+
R01 = R01 & T_RECT1(L / 2 - M1 + M3 - 4.3 - 20, L / 2 - M1 + M3 - 4.3 + 20, 19, H - 22)

1403
1404
'SMUSSI

1405
R02 = T_BLQ(L, 4, L - 4, 0, 1, 1)

1406
R02 = R02 & T_BLQ(4, 0, 0, 4, 1, 1)

1407
1408
fn = R01 & R02

1409
P1 = 250

1410
P2 = H - 400

1411
MVAL = 500

1412
STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn

1413
1414
Call SAVE_SUB(NND, STRINGA)

1415
1416-
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)

1416+
1417-
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)

1417+
1418-
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)

1418+
1419-
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)

1419+
1420-
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)

1420+
1421-
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)

1421+
1422-
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)

1422+
1423-
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)

1423+
1424-
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)

1424+
1425-
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)

1425+
1426-
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)

1426+
1427-
M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)

1427+
Sub S_1011069A(ByVal NND As Integer)

1428-
M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)

1428+
ACT_MOD = "1011069"

1429-
M24 = INPUT_NUM(NND, "M24", M24, ACT_MOD)

1429+
1430-
M25 = INPUT_NUM(NND, "M25", M25, ACT_MOD)

1430+
1431
1432-
ODP = INFO_DAT(NND, 0, 5)

1432+
1433
H = INPUT_NUM(NND, "H", H, ACT_MOD)

1434
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

1435-
EN_ASL = 10

1435+
1436-
If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)

1436+
1437
1438
fn = ""

1439
1440
1441-
AGG = 1

1441+
1442
P1 = 250

1443-
AGG = 2

1443+
1444
MVAL = 500

1445-
MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)

1445+
1446
Call SAVE_SUB(NND, STRINGA)

1447
1448-
R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)

1448+
1449-
R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)

1449+
1450-
If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""

1450+
1451-
If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""

1451+
1452-
If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""

1452+
1453-
If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""

1453+
1454
Call FVTPT(3, NND, "C")

1455-
R01 = R01A & R01B & R01C & R01D & R01E & R01F

1455+
1456
1457-
R02A = T_SLOT(13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90)

1457+
1458-
If M7 > 0 Then R02B = T_SLOT(13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) Else R02B = ""

1458+
1459-
R02 = R02A & R02B

1459+
1460
Sub S_1017690A(ByVal NND As Integer)

1461-
R03A = T_SLOT(M15, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

1461+
ACT_MOD = "1017690"

1462-
If M20 > 0 Then R03A = R03A & T_SLOT(M5 + 50 - M20, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

1462+
1463-
R03B = T_SLOT(M5 + M6 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 / 2, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

1463+
1464-
If M21 > 0 Then R03B = R03B & T_SLOT(M5 + M6 - 50 + M21, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

1464+
1465-
If M16 > 0 Then R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03C = ""

1465+
1466-
If M25 > 0 Then R03D = T_SLOT(M25, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

1466+
1467-
R03 = R03A & R03B & R03C & R03D

1467+
1468
ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)

1469-
DIM_ASL = 6.5

1469+
1470-
R04A = T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1470+
1471-
R04B = T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1471+
1472-
R04C = T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1472+
R01 = T_SLOT(30, L - 101.8, 10, 5, 90)

1473-
R04D = T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1473+
R01 = R01 & T_SLOT(30 + M1, L - 101.8, 10, 5, 90)

1474-
R04E = T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1474+
R01 = R01 & T_SLOT(30 + 2 * M1, L - 101.8, 10, 5, 90)

1475-
R04F = T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1475+
R01 = R01 & T_SLOT(30 + 3 * M1, L - 101.8, 10, 5, 90)

1476-
R04 = R04A & R04B & R04C & R04D & R04E & R04F

1476+
R01 = R01 & T_SLOT(30 + 4 * M1, L - 101.8, 10, 5, 90)

1477
R01 = R01 & T_SLOT(30 + 5 * M1, L - 101.8, 10, 5, 90)

1478-
R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)

1478+
1479-
'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)

1479+
R02 = T_CIRC(30, L - 25.6, 14)

1480
R02 = R02 & T_CIRC(30 + M1, L - 25.6, 14)

1481
R02 = R02 & T_CIRC(30 + 2 * M1, L - 25.6, 14)

1482-
R07 = T_SLOT(M3 - 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90) & T_SLOT(M3 + M2 + 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90)

1482+
R02 = R02 & T_CIRC(30 + 3 * M1, L - 25.6, 14)

1483
R02 = R02 & T_CIRC(30 + 4 * M1, L - 25.6, 14)

1484-
R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)

1484+
R02 = R02 & T_CIRC(30 + 5 * M1, L - 25.6, 14)

1485
R03 = T_CIRC(30, L - 1, 14)

1486-
R09A = T_SMUS(20 - 5.25, L - 20) & T_SMUS(0, L - 20 - 20 + 5.25) & T_SMUS(5, L - 20 - 20 + 5.25 + 5) & T_SMUS(10, L - 20 - 20 + 5.25 + 10)

1486+
R03 = R03 & T_CIRC(30 + M1, L - 1, 14)

1487-
R09B = T_SMUS(H - (20 - 5.25), L - 20) & T_SMUS(H, L - 20 - 20 + 5.25) & T_SMUS(H - 5, L - 20 - 20 + 5.25 + 5) & T_SMUS(H - 10, L - 20 - 20 + 5.25 + 10)

1487+
R03 = R03 & T_CIRC(30 + 2 * M1, L - 1, 14)

1488
R03 = R03 & T_CIRC(30 + 3 * M1, L - 1, 14)

1489-
R09C = T_SMUS(5 - 5, L - 20 - 20 + 5.25 + 5 + 5) & T_SMUS(10 - 5, L - 20 - 20 + 5.25 + 10 + 5)

1489+
R03 = R03 & T_CIRC(30 + 4 * M1, L - 1, 14)

1490-
R09D = T_SMUS(H - 10 + 5, L - 20 - 20 + 5.25 + 10 + 5) & T_SMUS(H - 5 + 5, L - 20 - 20 + 5.25 + 5 + 5)

1490+
R03 = R03 & T_CIRC(30 + 5 * M1, L - 1, 14)

1491
1492-
'R09C = T_CIRC(0, L - 20, 10.5) & T_CIRC(H, L - 20, 10.5)

1492+
fn = R01 & R02 & R03

1493-
R09 = R09A & R09B & R09C & R09D

1493+
1494
P1 = 250

1495-
R10 = T_RECT2(8, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)

1495+
1496-
R_MS = 0.7

1496+
1497-
R11 = T_SMUS(-R_MS, 23 - R_MS) & T_SMUS(M3 - R_MS, -R_MS) & T_SMUS(M3 + M2 + R_MS, -R_MS) & T_SMUS(H + R_MS, 23 - R_MS)

1497+
1498
1499-
'If M22 > 0 Then R12 = T_SLOT(38, 13 + 58 + M22 - 4 * SPS, 12, 6.5, 90) Else R12 = ""

1499+
1500-
'If M23 > 0 Then R13 = T_SLOT(H - 38, 13 + 58 + M23 - 4 * SPS, 12, 6.5, 90) Else R13 = ""

1500+
1501
POSINTAB = def_posintab(NND)

1502-
R14 = T_DATAMATRIX(ODP, H - 10 - 18.5, L - 46.3 - 45, "V")

1502+
1503
Call FVTPT(3, NND, "")

1504-
R15 = T_SLOT(13, L - 16.3 - M24, 12, 6.5, 0) & T_SLOT(H - 13, L - 16.3 - M24, 12, 6.5, 0)

1504+
1505
Call FVTPT(3, NND, "B")

1506-
fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R14 & R15

1506+
1507
Call FVTPT(3, NND, "C")

1508
1509
End Sub

1510
1511
1512
Sub S_1017690B(ByVal NND As Integer) 'DAVIDE

1513
ACT_MOD = "1017690"

1514
CLAMP = 0

1515
1516
L = INPUT_NUM(NND, "L", L, ACT_MOD)

1517
H = INPUT_NUM(NND, "H", H, ACT_MOD)

1518
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

1519
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)

1520
ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)

1521
1522-
    STR_OUT(2) = TL_CLN

1522+
1523-
    STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"

1523+
1524-
    STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"

1524+
R01 = T_SLOT(30, L - 101.8, 10, 5, 90)

1525-
    STR_OUT(5) = TL_CUT_O

1525+
R01 = R01 & T_SLOT(30 + M1, L - 101.8, 10, 5, 90)

1526-
    STR_OUT(6) = "TOOLANGLE(0)"

1526+
R01 = R01 & T_SLOT(30 + 2 * M1, L - 101.8, 10, 5, 90)

1527-
    STR_OUT(7) = "MIDCUT(N)"

1527+
R01 = R01 & T_SLOT(30 + 3 * M1, L - 101.8, 10, 5, 90)

1528-
    STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)

1528+
R01 = R01 & T_SLOT(30 + 4 * M1, L - 101.8, 10, 5, 90)

1529-
    STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"

1529+
R01 = R01 & T_SLOT(30 + 5 * M1, L - 101.8, 10, 5, 90)

1530-
    STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)

1530+
1531-
    STR_OUT(11) = "'FINE BLOCCO"

1531+
R02 = T_CIRC(30, L - 25.6, 14)

1532
R02 = R02 & T_CIRC(30 + M1, L - 25.6, 14)

1533
R02 = R02 & T_CIRC(30 + 2 * M1, L - 25.6, 14)

1534
R02 = R02 & T_CIRC(30 + 3 * M1, L - 25.6, 14)

1535
R02 = R02 & T_CIRC(30 + 4 * M1, L - 25.6, 14)

1536
R02 = R02 & T_CIRC(30 + 5 * M1, L - 25.6, 14)

1537
R03 = T_CIRC(30, L - 1, 14)

1538-
    STR_OUT(2) = TL_CLN

1538+
R03 = R03 & T_CIRC(30 + M1, L - 1, 14)

1539-
    STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"

1539+
R03 = R03 & T_CIRC(30 + 2 * M1, L - 1, 14)

1540-
    STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"

1540+
R03 = R03 & T_CIRC(30 + 3 * M1, L - 1, 14)

1541-
    STR_OUT(5) = TL_CUT_V

1541+
R03 = R03 & T_CIRC(30 + 4 * M1, L - 1, 14)

1542-
    STR_OUT(6) = "TOOLANGLE(90)"

1542+
R03 = R03 & T_CIRC(30 + 5 * M1, L - 1, 14)

1543-
    STR_OUT(7) = "MIDCUT(N)"

1543+
1544-
    STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"

1544+
fn = R01 & R02 & R03

1545-
    STR_OUT(9) = TL_CUT_O

1545+
1546-
    STR_OUT(10) = "TOOLANGLE(0)"

1546+
1547-
    STR_OUT(11) = "MIDCUT(N)"

1547+
1548-
    STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)

1548+
1549-
    STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"

1549+
1550-
    STR_OUT(14) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)

1550+
1551-
    STR_OUT(15) = "'FINE BLOCCO"

1551+
1552
1553
POSINTAB = def_posintab(NND)

1554
Call CUT_END_S(H, L, "0", POSINTAB)

1555
Call FVTPT(3, NND, "")

1556
Call CUT_END_S(H, L, "B", POSINTAB)

1557
Call FVTPT(3, NND, "B")

1558
Call CUT_END_S(H, L, "C", POSINTAB)

1559-
Sub S_1041431D(ByVal NND As Integer)

1559+
1560-
ACT_MOD = "1041431"

1560+
1561
End Sub

1562
1563
1564
1565
Sub S_10277620(ByVal NND As Integer)

1566
ACT_MOD = "1027762"

1567
CLAMP = 0

1568
1569
L = INPUT_NUM(NND, "L", L, ACT_MOD)

1570
H = INPUT_NUM(NND, "H", H, ACT_MOD)

1571
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

1572
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)

1573
ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)

1574-
M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)

1574+
1575-
M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)

1575+
1576-
M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)

1576+
1577-
M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)

1577+
1578-
M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)

1578+
R01 = T_SLOT(31, L - 39.1, 10, 5, 90)

1579-
M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)

1579+
R01 = R01 & T_SLOT(31 + M1, L - 39.1, 10, 5, 90)

1580-
M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)

1580+
R01 = R01 & T_SLOT(H - 29 - 425 * 3, L - 39.1, 10, 5, 90)

1581-
M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)

1581+
R01 = R01 & T_SLOT(H - 29 - 425 * 2, L - 39.1, 10, 5, 90)

1582-
M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)

1582+
R01 = R01 & T_SLOT(H - 29 - 425, L - 39.1, 10, 5, 90)

1583-
M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)

1583+
R01 = R01 & T_SLOT(H - 29, L - 39.1, 10, 5, 90)

1584-
M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)

1584+
1585-
M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)

1585+
R02 = T_CIRC(31, L - 115.3, 14)

1586-
M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)

1586+
R02 = R02 & T_CIRC(31 + M1, L - 115.3, 14)

1587-
M24 = INPUT_NUM(NND, "M24", M24, ACT_MOD)

1587+
R02 = R02 & T_CIRC(H - 29 - 425 * 3, L - 115.3, 14)

1588-
M25 = INPUT_NUM(NND, "M25", M25, ACT_MOD)

1588+
R02 = R02 & T_CIRC(H - 29 - 425 * 2, L - 115.3, 14)

1589-
M26 = INPUT_NUM(NND, "M26", M26, ACT_MOD)

1589+
R02 = R02 & T_CIRC(H - 29 - 425, L - 115.3, 14)

1590-
M27 = INPUT_NUM(NND, "M27", M27, ACT_MOD)

1590+
R02 = R02 & T_CIRC(H - 29, L - 115.3, 14)

1591
1592-
ODP = INFO_DAT(NND, 0, 5)

1592+
R03 = T_CIRC(31, 1, 14)

1593
R03 = R03 & T_CIRC(31 + M1, 1, 14)

1594
R03 = R03 & T_CIRC(H - 29 - 425 * 3, 1, 14)

1595-
EN_ASL = 10

1595+
R03 = R03 & T_CIRC(H - 29 - 425 * 2, 1, 14)

1596-
If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)

1596+
R03 = R03 & T_CIRC(H - 29 - 425, 1, 14)

1597
R03 = R03 & T_CIRC(H - 29, 1, 14)

1598
1599
R04 = T_RECT1(H - 1323 - 445, H - 1323, L - 41.1, L + 6)

1600
R05 = T_SMUS(H - 1323 - 445, L) & T_SMUS(H - 1323, L)

1601-
AGG = 1

1601+
1602
Case 2

1603-
AGG = 2

1603+
R01 = T_SLOT(H - 31, L - 39.1, 10, 5, 90)

1604
R01 = R01 & T_SLOT(H - 31 - M1, L - 39.1, 10, 5, 90)

1605-
MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)

1605+
R01 = R01 & T_SLOT(H - (H - 29 - 425 * 3), L - 39.1, 10, 5, 90)

1606
R01 = R01 & T_SLOT(H - (H - 29 - 425 * 2), L - 39.1, 10, 5, 90)

1607
R01 = R01 & T_SLOT(H - (H - 29 - 425), L - 39.1, 10, 5, 90)

1608-
R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)

1608+
R01 = R01 & T_SLOT(H - (H - 29), L - 39.1, 10, 5, 90)

1609-
R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)

1609+
1610-
If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""

1610+
R02 = T_CIRC(H - 31, L - 115.3, 14)

1611-
If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""

1611+
R02 = R02 & T_CIRC(H - 31 - M1, L - 115.3, 14)

1612-
If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""

1612+
R02 = R02 & T_CIRC(H - (H - 29 - 425 * 3), L - 115.3, 14)

1613-
If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""

1613+
R02 = R02 & T_CIRC(H - (H - 29 - 425 * 2), L - 115.3, 14)

1614
R02 = R02 & T_CIRC(H - (H - 29 - 425), L - 115.3, 14)

1615-
R01 = R01A & R01B & R01C & R01D & R01E & R01F

1615+
R02 = R02 & T_CIRC(H - (H - 29), L - 115.3, 14)

1616
1617-
R02A = T_SLOT(13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90)

1617+
R03 = T_CIRC(H - 31, 1, 14)

1618-
If M7 > 0 Then R02B = T_SLOT(13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) Else R02B = ""

1618+
R03 = R03 & T_CIRC(H - 31 - M1, 1, 14)

1619-
R02 = R02A & R02B

1619+
R03 = R03 & T_CIRC(H - (H - 29 - 425 * 3), 1, 14)

1620
R03 = R03 & T_CIRC(H - (H - 29 - 425 * 2), 1, 14)

1621-
R03A = T_SLOT(M15, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

1621+
R03 = R03 & T_CIRC(H - (H - 29 - 425), 1, 14)

1622-
If M20 > 0 Then R03A = R03A & T_SLOT(M5 + 50 - M20, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

1622+
R03 = R03 & T_CIRC(H - (H - 29), 1, 14)

1623-
R03B = T_SLOT(M5 + M6 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 / 2, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

1623+
1624-
If M21 > 0 Then R03B = R03B & T_SLOT(M5 + M6 - 50 + M21, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

1624+
R04 = T_RECT1(H - (H - 1323 - 445), H - (H - 1323), L - 41.1, L + 6)

1625-
If M16 > 0 Then R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03C = ""

1625+
R05 = T_SMUS(1323 + 445, L) & T_SMUS(1323, L)

1626-
If M25 > 0 Then R03D = T_SLOT(M25, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)

1626+
1627-
R03 = R03A & R03B & R03C & R03D

1627+
1628
MsgBox ("ERRORE VERSIONE SU CODICE " & ACT_MOD)

1629-
DIM_ASL = 6.5

1629+
1630-
R04A = T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1630+
1631-
R04B = T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1631+
1632-
R04C = T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1632+
1633-
R04D = T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1633+
1634-
R04E = T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1634+
1635-
R04F = T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)

1635+
1636-
R04 = R04A & R04B & R04C & R04D & R04E & R04F

1636+
1637
1638-
R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)

1638+
1639-
'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)

1639+
1640
POSINTAB = def_posintab(NND)

1641
Call CUT_END_S(H, L, "0", POSINTAB)

1642-
R07 = T_SLOT(M3 - 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90) & T_SLOT(M3 + M2 + 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90)

1642+
1643
Call CUT_END_S(H, L, "B", POSINTAB)

1644-
R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)

1644+
1645
Call CUT_END_S(H, L, "C", POSINTAB)

1646-
R09A = T_SMUS(20 - 5.25, L - 20) & T_SMUS(0, L - 20 - 20 + 5.25) & T_SMUS(5, L - 20 - 20 + 5.25 + 5) & T_SMUS(10, L - 20 - 20 + 5.25 + 10)

1646+
1647-
R09B = T_SMUS(H - (20 - 5.25), L - 20) & T_SMUS(H, L - 20 - 20 + 5.25) & T_SMUS(H - 5, L - 20 - 20 + 5.25 + 5) & T_SMUS(H - 10, L - 20 - 20 + 5.25 + 10)

1647+
1648
End Sub

1649-
R09C = T_SMUS(5 - 5, L - 20 - 20 + 5.25 + 5 + 5) & T_SMUS(10 - 5, L - 20 - 20 + 5.25 + 10 + 5)

1649+
1650-
R09D = T_SMUS(H - 10 + 5, L - 20 - 20 + 5.25 + 10 + 5) & T_SMUS(H - 5 + 5, L - 20 - 20 + 5.25 + 5 + 5)

1650+
        

    


            


                                


        

            



                
    

        Public Pastes
    

    
            

    

                    

        

    





    


    
    
    
    
    
    
    
    




    


    



                

            We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.             OK, I Understand
        

    
                

            

                
                    
                
            

            

                Not a member of Pastebin yet?

                Sign Up, it unlocks many cool features!