API tools faq
paste
Advertisement
Dece111

Entrance

Dece111
Feb 28th, 2024
110
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 123.68 KB | None | 0 0
raw download clone embed print report diff
  1. 'Entrance
  2.  
  3. Sub S_1036865A(ByVal NND As Integer)
  4. ACT_MOD = "1036865"
  5. CLAMP = 0
  6.  
  7. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  8. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  9. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  10. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  11.  
  12. EN_ASL = 10
  13. R01 = T_HEX(63.3, L / 2, 11) & T_HEX(63.3 + 132, L / 2, 11)
  14. R02 = T_SLOT(M1, 13.5, 16, EN_ASL, 0) & T_SLOT(M1, L - 13.5, 16, EN_ASL, 0)
  15. R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
  16. R04 = T_RECT1(-2.5, 7.5, 27, L - 27)
  17. R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
  18.  
  19. fn = R01 & R02 & R03 & R04 & R05
  20.  
  21.  
  22. P1 = 250
  23. P2 = H - 400
  24. MVAL = 500
  25. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  26.  
  27.  
  28. Call SAVE_SUB(NND, STRINGA)
  29.  
  30. POSINTAB = def_posintab(NND)
  31. Call CUT_END_S(H, L, "0", POSINTAB)
  32. Call FVTPT(3, NND, "")
  33. Call CUT_END_T_special(H, L, 0, 0, "C", POSINTAB)
  34. Call FVTPT(3, NND, "C")
  35.  
  36. End Sub
  37.  
  38. Sub S_1036865B(ByVal NND As Integer)
  39. ACT_MOD = "1036865"
  40. CLAMP = 0
  41.  
  42. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  43. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  44. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  45. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  46. If L <> 156.6 Then MsgBox ("ERRORE NELLO SVILUPPO DEL COMPONENTE " & ACT_MOD)
  47.  
  48. EN_ASL = 10
  49. R01 = T_HEX(63.3, L / 2, 11) & T_HEX(63.3 + 132, L / 2, 11)
  50. R02 = T_SLOT(M1, 13.75, 16, EN_ASL, 0) & T_SLOT(M1, L - 13.75, 16, EN_ASL, 0)
  51. R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
  52. R04 = T_RECT1(-2.5, 7.5, 27.5, L - 27.5)
  53. R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
  54.  
  55. fn = R01 & R02 & R03 & R04 & R05
  56.  
  57.  
  58. P1 = 250
  59. P2 = H - 400
  60. MVAL = 500
  61. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  62.  
  63.  
  64. Call SAVE_SUB(NND, STRINGA)
  65.  
  66. POSINTAB = def_posintab(NND)
  67. Call CUT_END_S(H, L, "0", POSINTAB)
  68. Call FVTPT(3, NND, "")
  69. Call CUT_END_T_special(H, L, 0, 0, "C", POSINTAB)
  70. Call FVTPT(3, NND, "C")
  71.  
  72. End Sub
  73.  
  74. Sub S_1036865C(ByVal NND As Integer)
  75. ACT_MOD = "1036865"
  76. CLAMP = 0
  77.  
  78. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  79. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  80. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  81. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  82. VV = INPUT_NUM(NND, "VER.", VV, ACT_MOD)
  83. If L <> 156.6 Then MsgBox ("ERRORE NELLO SVILUPPO DEL COMPONENTE " & ACT_MOD)
  84.  
  85.  
  86. Select Case VV
  87. Case 1
  88. EN_ASL = 10
  89. R01 = T_HEX(63.3, L / 2, 11) & T_HEX(63.3 + 132, L / 2, 11)
  90. R02 = T_SLOT(M1, 13.75, 16, EN_ASL, 0) & T_SLOT(M1, L - 13.75, 16, EN_ASL, 0)
  91. R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
  92. R04 = T_RECT1(-2.5, 7.5, 27.5, L - 27.5)
  93. R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
  94. Case 2
  95. EN_ASL = 10
  96. R01 = T_HEX(63.3, L / 2, 11) & T_HEX(63.3 + 132, L / 2, 11)
  97. R02 = T_SLOT(M1, 13.75, 16, EN_ASL, 0) & T_SLOT(M1, L - 13.75, 16, EN_ASL, 0)
  98. R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
  99. R04 = T_RECT1(-2.5, 7.5, 27.5, L - 27.5)
  100. R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
  101. Case 3
  102. EN_ASL = 10
  103. R01 = T_HEX(63.3, L / 2, 11) & T_HEX(63.3 + 132, L / 2, 11)
  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)
  105. R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
  106. R04 = T_RECT1(-2.5, 7.5, 27.5, L - 27.5)
  107. R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
  108. End Select
  109.  
  110. 'R06 = T_DATAMATRIX(ODP, L / 2 + 20, 70, "O") 'SASSI AGGIUNTA DATAMATRIX 30.06.22
  111.  
  112. fn = R01 & R02 & R03 & R04 & R05 '& R06 'SASSI AGGIUNTA DATAMATRIX 30.06.22
  113.  
  114. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  115.  
  116. Call SAVE_SUB(NND, STRINGA)
  117.  
  118. POSINTAB = def_posintab(NND)
  119. Call CUT_END_S(H, L, "0", POSINTAB)
  120. Call FVTPT(3, NND, "")
  121. Call CUT_END_T_special(H, L, 0, 0, "C", POSINTAB)
  122. Call FVTPT(3, NND, "C")
  123.  
  124. End Sub
  125.  
  126.  
  127.  
  128. Sub S_10429030(ByVal NND As Integer)
  129. ACT_MOD = "1042903"
  130. CLAMP = 0
  131.  
  132. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  133. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  134. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  135. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  136. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  137. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  138. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  139. 'If L <> 156.6 Then MsgBox ("ERRORE NELLO SVILUPPO DEL COMPONENTE " & ACT_MOD)
  140.  
  141. EN_ASL = 10
  142. R01 = T_HEX(63.3, L - 77.8, 11) & T_HEX(63.3 + 132, L - 77.8, 11)
  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)
  144. R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
  145. R04 = T_RECT1(-2.5, 7.5, 27, L - 27)
  146.  
  147. R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
  148.  
  149. fn = R01 & R02 & R03 & R04 & R05
  150.  
  151.  
  152. P1 = 250
  153. P2 = H - 400
  154. MVAL = 500
  155. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  156.  
  157.  
  158. Call SAVE_SUB(NND, STRINGA)
  159.  
  160. POSINTAB = def_posintab(NND)
  161. Call CUT_END_S(H, L, "0", POSINTAB)
  162. Call FVTPT(3, NND, "")
  163. Call CUT_END_T_special(H, L, 0, 0, "C", POSINTAB)
  164. Call FVTPT(3, NND, "C")
  165.  
  166. End Sub
  167.  
  168. Sub S_1042903B(ByVal NND As Integer)
  169. ACT_MOD = "1042903"
  170. CLAMP = 0
  171.  
  172. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  173. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  174. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  175. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  176. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  177. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  178. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  179. VV = INPUT_NUM(NND, "VER", VV, ACT_MOD)
  180.  
  181. Select Case VV
  182. Case 1
  183. EN_ASL = 10
  184. R01 = T_HEX(63.3, L - 77.8, 11) & T_HEX(63.3 + 132, L - 77.8, 11)
  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)
  186. R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
  187. R04 = T_RECT1(-2.5, 7.5, 27, L - 27)
  188. R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
  189. Case 2
  190. EN_ASL = 10
  191. R01 = T_HEX(63.3, L - 77.8, 11) & T_HEX(63.3 + 132, L - 77.8, 11)
  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)
  193. R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
  194. R04 = T_RECT1(-2.5, 7.5, 27, L - 27)
  195. R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
  196. Case 3
  197. EN_ASL = 10
  198. R01 = T_HEX(63.3, L - 77.8, 11) & T_HEX(63.3 + 132, L - 77.8, 11)
  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)
  200. R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
  201. R04 = T_RECT1(-2.5, 7.5, 27, L - 27)
  202. R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
  203. Case Else
  204. MsgBox ("ERRORE VERSIONE " & ACT_MOD)
  205. End Select
  206.  
  207.  
  208. fn = R01 & R02 & R03 & R04 & R05
  209. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  210.  
  211. Call SAVE_SUB(NND, STRINGA)
  212.  
  213. POSINTAB = def_posintab(NND)
  214. Call CUT_END_S(H, L, "0", POSINTAB)
  215. Call FVTPT(3, NND, "")
  216. Call CUT_END_T_special(H, L, 0, 0, "C", POSINTAB)
  217. Call FVTPT(3, NND, "C")
  218.  
  219. End Sub
  220.  
  221.  
  222.  
  223. Sub S_10483620(ByVal NND As Integer)
  224. ACT_MOD = "1048362"
  225. CLAMP = 0
  226.  
  227. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  228. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  229. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  230. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  231. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  232. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  233. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  234.  
  235. EN_ASL = 10
  236. R01 = T_HEX(63.3, 77.8, 11) & T_HEX(63.3 + 132, 77.8, 11)
  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)
  238. R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
  239. R04 = T_RECT1(-2.5, 7.5, 27, L - 27)
  240.  
  241. R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
  242.  
  243. fn = R01 & R02 & R03 & R04 & R05
  244.  
  245.  
  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)
  254. Call FVTPT(3, NND, "C")
  255.  
  256. End Sub
  257.  
  258.  
  259. Sub S_1048362A(ByVal NND As Integer)
  260. ACT_MOD = "1048362"
  261. CLAMP = 0
  262.  
  263. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  264. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  265. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  266. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  267. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  268. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  269. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  270. VV = INPUT_NUM(NND, "VER", VV, ACT_MOD)
  271. '**********************************
  272.  
  273. Select Case VV
  274. Case 1
  275. EN_ASL = 10
  276. R01 = T_HEX(63.3, 77.8, 11) & T_HEX(63.3 + 132, 77.8, 11)
  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)
  278. R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
  279. R04 = T_RECT1(-2.5, 7.5, 27, L - 27)
  280. R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
  281. Case 2
  282. EN_ASL = 10
  283. R01 = T_HEX(63.3, 77.8, 11) & T_HEX(63.3 + 132, 77.8, 11)
  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)
  285. R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
  286. R04 = T_RECT1(-2.5, 7.5, 27, L - 27)
  287. R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
  288. Case 3
  289. EN_ASL = 10
  290. R01 = T_HEX(63.3, 77.8, 11) & T_HEX(63.3 + 132, 77.8, 11)
  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)
  292. R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
  293. R04 = T_RECT1(-2.5, 7.5, 27, L - 27)
  294. R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
  295. Case Else
  296. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  297. End Select
  298.  
  299. '**********************************
  300.  
  301. fn = R01 & R02 & R03 & R04 & R05
  302. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  303.  
  304. Call SAVE_SUB(NND, STRINGA)
  305.  
  306. POSINTAB = def_posintab(NND)
  307. Call CUT_END_S(H, L, "0", POSINTAB)
  308. Call FVTPT(3, NND, "")
  309. Call CUT_END_T_special(H, L, 0, 0, "C", POSINTAB)
  310. Call FVTPT(3, NND, "C")
  311.  
  312. End Sub
  313.  
  314.  
  315. Sub S_1036629A(ByVal NND As Integer)
  316. ACT_MOD = "1036629"
  317. CLAMP = 0
  318.  
  319. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  320. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  321. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  322. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  323. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  324. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  325. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  326. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  327. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  328. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  329. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  330. M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  331. M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
  332. M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
  333. M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
  334. M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
  335. M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
  336. M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
  337. M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
  338. M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
  339. M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
  340. M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
  341. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  342.  
  343. SCS = 6
  344. EN_ASL = 10
  345. If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)
  346.  
  347.  
  348. Select Case ver
  349. Case 1
  350. AGG = 1
  351. Case 2
  352. AGG = 2
  353. Case Else
  354. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  355. End Select
  356.  
  357. R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)
  358. R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)
  359. If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""
  360. If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""
  361. If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""
  362. If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""
  363.  
  364. R01 = R01A & R01B & R01C & R01D & R01E & R01F
  365.  
  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)
  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 = ""
  368. R02 = R02A & R02B
  369.  
  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)
  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)
  372. R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
  373. R03 = R03A & R03B & R03C
  374.  
  375. DIM_ASL = 6.5
  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)
  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)
  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)
  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)
  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)
  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)
  382. R04 = R04A & R04B & R04C & R04D & R04E & R04F
  383.  
  384. R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)
  385. 'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)
  386. R06 = ""
  387.  
  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)
  389.  
  390. R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)
  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)
  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)
  394. R09C = T_CIRC(0, L - 20, 20.2) & T_CIRC(H, L - 20, 20.2)
  395. R09 = R09A & R09B & R09C
  396.  
  397. R10 = T_RECT2(17.5, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)
  398. R_MS = 0.7
  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)
  400.  
  401.  
  402. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11
  403.  
  404.  
  405. P1 = 250
  406. P2 = H - 400
  407. MVAL = 500
  408. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  409. SPEK = 1
  410. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  411.  
  412. Call SAVE_SUB(NND, STRINGA)
  413.  
  414. POSINTAB = def_posintab(NND)
  415.  
  416.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  417.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  418.     STR_OUT(2) = TL_CLN
  419.     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
  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))"
  421.     STR_OUT(5) = TL_CUT_O
  422.     STR_OUT(6) = "TOOLANGLE(0)"
  423.     STR_OUT(7) = "MIDCUT(N)"
  424.     STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)
  425.     STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
  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)
  427.     STR_OUT(11) = "'FINE BLOCCO"
  428.  
  429. 'Call CUT_END_S(H, L, "0", POSINTAB)
  430. Call FVTPT(3, NND, "")
  431.  
  432.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  433.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  434.     STR_OUT(2) = TL_CLN
  435.     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
  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))"
  437.     STR_OUT(5) = TL_CUT_V
  438.     STR_OUT(6) = "TOOLANGLE(90)"
  439.     STR_OUT(7) = "MIDCUT(N)"
  440.     STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"
  441.     STR_OUT(9) = TL_CUT_O
  442.     STR_OUT(10) = "TOOLANGLE(0)"
  443.     STR_OUT(11) = "MIDCUT(N)"
  444.     STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)
  445.     STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
  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)
  447.     STR_OUT(15) = "'FINE BLOCCO"
  448.  
  449. 'Call CUT_END_S(H, L, "C", POSINTAB)
  450. Call FVTPT(3, NND, "C")
  451.  
  452.  
  453. End Sub
  454.  
  455.  
  456.  
  457. Sub S_1036629D(ByVal NND As Integer)
  458. ACT_MOD = "1036629"
  459. CLAMP = 0
  460.  
  461. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  462. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  463. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  464. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  465. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  466. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  467. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  468. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  469. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  470. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  471. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  472. M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  473. M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
  474. M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
  475. M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
  476. M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
  477. M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
  478. M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
  479. M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
  480. M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
  481. M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
  482. M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
  483. M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
  484. M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
  485. M22 = INPUT_NUM(NND, "M22", M22, ACT_MOD)
  486.  
  487. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  488. ODP = INFO_DAT(NND, 0, 5)
  489.  
  490. SCS = 6
  491. EN_ASL = 10
  492. If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)
  493.  
  494.  
  495. Select Case ver
  496. Case 1
  497. AGG = 1
  498. Case 2
  499. AGG = 2
  500. Case Else
  501. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  502. End Select
  503.  
  504. R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)
  505. R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)
  506. If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""
  507. If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""
  508. If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""
  509. If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""
  510.  
  511. R01 = R01A & R01B & R01C & R01D & R01E & R01F
  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)
  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 = ""
  515. R02 = R02A & R02B
  516.  
  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)
  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)
  519. R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
  520. R03 = R03A & R03B & R03C
  521.  
  522. DIM_ASL = 6.5
  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)
  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)
  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)
  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)
  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)
  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)
  529. R04 = R04A & R04B & R04C & R04D & R04E & R04F
  530.  
  531. R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)
  532. 'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)
  533. R06 = ""
  534.  
  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)
  536.  
  537. R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)
  538.  
  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)
  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)
  541.  
  542. R09C = T_SMUS(5 - 5, L - 20 - 20 + 5.25 + 5 + 5) & T_SMUS(10 - 5, L - 20 - 20 + 5.25 + 10 + 5)
  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)
  544.  
  545. 'R09C = T_CIRC(0, L - 20, 10.5) & T_CIRC(H, L - 20, 10.5)
  546. R09 = R09A & R09B & R09C & R09D
  547.  
  548. R10 = T_RECT2(17.5, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)
  549. R_MS = 0.7
  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)
  551.  
  552. If M21 > 0 Then R12 = T_SLOT(M21, 13 + 58 + M20 - 4 * SPS, 12, 6.5, 90) Else R12 = ""
  553. If M22 > 0 Then R13 = T_SLOT(H - M22, 13 + 58 + M20 - 4 * SPS, 12, 6.5, 90) Else R13 = ""
  554.  
  555. R14 = T_DATAMATRIX(ODP, H - 10 - 18.5, L - 46.3 - 45, "V")
  556.  
  557. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14
  558.  
  559.  
  560. P1 = 250
  561. P2 = H - 400
  562. MVAL = 500
  563. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  564. SPEK = 1
  565. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  566.  
  567. Call SAVE_SUB(NND, STRINGA)
  568.  
  569. POSINTAB = def_posintab(NND)
  570.  
  571.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  572.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  573.     STR_OUT(2) = TL_CLN
  574.     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
  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))"
  576.     STR_OUT(5) = TL_CUT_O
  577.     STR_OUT(6) = "TOOLANGLE(0)"
  578.     STR_OUT(7) = "MIDCUT(N)"
  579.     STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)
  580.     STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
  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)
  582.     STR_OUT(11) = "'FINE BLOCCO"
  583.  
  584. 'Call CUT_END_S(H, L, "0", POSINTAB)
  585. Call FVTPT(3, NND, "")
  586.  
  587.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  588.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  589.     STR_OUT(2) = TL_CLN
  590.     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
  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))"
  592.     STR_OUT(5) = TL_CUT_V
  593.     STR_OUT(6) = "TOOLANGLE(90)"
  594.     STR_OUT(7) = "MIDCUT(N)"
  595.     STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"
  596.     STR_OUT(9) = TL_CUT_O
  597.     STR_OUT(10) = "TOOLANGLE(0)"
  598.     STR_OUT(11) = "MIDCUT(N)"
  599.     STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)
  600.     STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
  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)
  602.     STR_OUT(15) = "'FINE BLOCCO"
  603.  
  604. 'Call CUT_END_S(H, L, "C", POSINTAB)
  605. Call FVTPT(3, NND, "C")
  606.  
  607.  
  608. End Sub
  609.  
  610.  
  611.  
  612. Sub S_1036629E(ByVal NND As Integer)
  613. ACT_MOD = "1036629"
  614. CLAMP = 0
  615.  
  616. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  617. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  618. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  619. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  620. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  621. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  622. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  623. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  624. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  625. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  626. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  627. M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  628. M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
  629. M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
  630. M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
  631. M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
  632. M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
  633. M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
  634. M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
  635. M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
  636. M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
  637. M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
  638. M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
  639. M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
  640. M22 = INPUT_NUM(NND, "M22", M22, ACT_MOD)
  641. M23 = INPUT_NUM(NND, "M23", M23, ACT_MOD)
  642. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  643. ODP = INFO_DAT(NND, 0, 5)
  644.  
  645. SCS = 6
  646. EN_ASL = 10
  647. If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)
  648.  
  649.  
  650. Select Case ver
  651. Case 1
  652. AGG = 1
  653. Case 2
  654. AGG = 2
  655. Case Else
  656. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  657. End Select
  658.  
  659. R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)
  660. R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)
  661. If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""
  662. If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""
  663. If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""
  664. If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""
  665.  
  666. R01 = R01A & R01B & R01C & R01D & R01E & R01F
  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)
  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 = ""
  670. R02 = R02A & R02B
  671.  
  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)
  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)
  674. If M16 > 0 Then R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03C = ""
  675. If M23 > 0 Then R03D = T_SLOT(M23, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03D = ""
  676. R03 = R03A & R03B & R03C & R03D
  677.  
  678. DIM_ASL = 6.5
  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)
  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)
  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)
  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)
  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)
  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)
  685. R04 = R04A & R04B & R04C & R04D & R04E & R04F
  686.  
  687. R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)
  688. 'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)
  689. R06 = ""
  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)
  692.  
  693. R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)
  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)
  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)
  697.  
  698. R09C = T_SMUS(5 - 5, L - 20 - 20 + 5.25 + 5 + 5) & T_SMUS(10 - 5, L - 20 - 20 + 5.25 + 10 + 5)
  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)
  700.  
  701. 'R09C = T_CIRC(0, L - 20, 10.5) & T_CIRC(H, L - 20, 10.5)
  702. R09 = R09A & R09B & R09C & R09D
  703.  
  704. R10 = T_RECT2(17.5, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)
  705. R_MS = 0.7
  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)
  707.  
  708. If M21 > 0 Then R12 = T_SLOT(M21, 13 + 58 + M20 - 4 * SPS, 20, 6.5, 90) Else R12 = ""
  709. If M22 > 0 Then R13 = T_SLOT(H - M22, 13 + 58 + M20 - 4 * SPS, 20, 6.5, 90) Else R13 = ""
  710.  
  711. R14 = T_DATAMATRIX(ODP, H - 10 - 18.5, L - 46.3 - 45, "V")
  712.  
  713. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14
  714.  
  715.  
  716. P1 = 250
  717. P2 = H - 400
  718. MVAL = 500
  719. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  720. SPEK = 1
  721. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  722.  
  723. Call SAVE_SUB(NND, STRINGA)
  724.  
  725. POSINTAB = def_posintab(NND)
  726.  
  727.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  728.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  729.     STR_OUT(2) = TL_CLN
  730.     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
  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))"
  732.     STR_OUT(5) = TL_CUT_O
  733.     STR_OUT(6) = "TOOLANGLE(0)"
  734.     STR_OUT(7) = "MIDCUT(N)"
  735.     STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)
  736.     STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
  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)
  738.     STR_OUT(11) = "'FINE BLOCCO"
  739.  
  740. 'Call CUT_END_S(H, L, "0", POSINTAB)
  741. Call FVTPT(3, NND, "")
  742.  
  743.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  744.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  745.     STR_OUT(2) = TL_CLN
  746.     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
  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))"
  748.     STR_OUT(5) = TL_CUT_V
  749.     STR_OUT(6) = "TOOLANGLE(90)"
  750.     STR_OUT(7) = "MIDCUT(N)"
  751.     STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"
  752.     STR_OUT(9) = TL_CUT_O
  753.     STR_OUT(10) = "TOOLANGLE(0)"
  754.     STR_OUT(11) = "MIDCUT(N)"
  755.     STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)
  756.     STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
  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)
  758.     STR_OUT(15) = "'FINE BLOCCO"
  759.  
  760. 'Call CUT_END_S(H, L, "C", POSINTAB)
  761. Call FVTPT(3, NND, "C")
  762.  
  763.  
  764. End Sub
  765.  
  766.  
  767. Sub S_1036629F(ByVal NND As Integer)
  768. ACT_MOD = "1036629"
  769. CLAMP = 0
  770.  
  771. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  772. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  773. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  774. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  775. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  776. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  777. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  778. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  779. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  780. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  781. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  782. M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  783. M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
  784. M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
  785. M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
  786. M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
  787. M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
  788. M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
  789. M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
  790. M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
  791. M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
  792. M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
  793. 'M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
  794. 'M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
  795. 'M22 = INPUT_NUM(NND, "M22", M22, ACT_MOD)
  796. M23 = INPUT_NUM(NND, "M23", M23, ACT_MOD)
  797. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  798. ODP = INFO_DAT(NND, 0, 5)
  799.  
  800. SCS = 6
  801. EN_ASL = 10
  802. If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)
  803.  
  804.  
  805. Select Case ver
  806. Case 1
  807. AGG = 1
  808. Case 2
  809. AGG = 2
  810. Case Else
  811. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  812. End Select
  813.  
  814. R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)
  815. R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)
  816. If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""
  817. If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""
  818. If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""
  819. If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""
  820.  
  821. R01 = R01A & R01B & R01C & R01D & R01E & R01F
  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)
  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 = ""
  825. R02 = R02A & R02B
  826.  
  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)
  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)
  829. If M16 > 0 Then R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03C = ""
  830. If M23 > 0 Then R03D = T_SLOT(M23, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03D = ""
  831. R03 = R03A & R03B & R03C & R03D
  832.  
  833. DIM_ASL = 6.5
  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)
  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)
  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)
  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)
  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)
  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)
  840. R04 = R04A & R04B & R04C & R04D & R04E & R04F
  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)
  843. 'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)
  844. R06 = ""
  845.  
  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)
  847.  
  848. R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)
  849.  
  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)
  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)
  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)
  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)
  855.  
  856. 'R09C = T_CIRC(0, L - 20, 10.5) & T_CIRC(H, L - 20, 10.5)
  857. R09 = R09A & R09B & R09C & R09D
  858.  
  859. R10 = T_RECT2(17.5, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)
  860. R_MS = 0.7
  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)
  862.  
  863. 'If M21 > 0 Then R12 = T_SLOT(M21, 13 + 58 + M20 - 4 * SPS, 20, 6.5, 90) Else R12 = ""
  864. 'If M22 > 0 Then R13 = T_SLOT(H - M22, 13 + 58 + M20 - 4 * SPS, 20, 6.5, 90) Else R13 = ""
  865.  
  866. R14 = T_DATAMATRIX(ODP, H - 10 - 18.5, L - 46.3 - 45, "V")
  867.  
  868. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R14  '& R12 & R13
  869.  
  870.  
  871. P1 = 250
  872. P2 = H - 400
  873. MVAL = 500
  874. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  875. SPEK = 1
  876. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  877.  
  878. Call SAVE_SUB(NND, STRINGA)
  879.  
  880. POSINTAB = def_posintab(NND)
  881.  
  882.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  883.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  884.     STR_OUT(2) = TL_CLN
  885.     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
  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))"
  887.     STR_OUT(5) = TL_CUT_O
  888.     STR_OUT(6) = "TOOLANGLE(0)"
  889.     STR_OUT(7) = "MIDCUT(N)"
  890.     STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)
  891.     STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
  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)
  893.     STR_OUT(11) = "'FINE BLOCCO"
  894.  
  895. 'Call CUT_END_S(H, L, "0", POSINTAB)
  896. Call FVTPT(3, NND, "")
  897.  
  898.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  899.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  900.     STR_OUT(2) = TL_CLN
  901.     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
  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))"
  903.     STR_OUT(5) = TL_CUT_V
  904.     STR_OUT(6) = "TOOLANGLE(90)"
  905.     STR_OUT(7) = "MIDCUT(N)"
  906.     STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"
  907.     STR_OUT(9) = TL_CUT_O
  908.     STR_OUT(10) = "TOOLANGLE(0)"
  909.     STR_OUT(11) = "MIDCUT(N)"
  910.     STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)
  911.     STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
  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)
  913.     STR_OUT(15) = "'FINE BLOCCO"
  914.  
  915. 'Call CUT_END_S(H, L, "C", POSINTAB)
  916. Call FVTPT(3, NND, "C")
  917.  
  918.  
  919. End Sub
  920.  
  921.  
  922. Sub S_10414310(ByVal NND As Integer)
  923. ACT_MOD = "1041431"
  924. CLAMP = 0
  925.  
  926. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  927. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  928. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  929. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  930. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  931. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  932. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  933. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  934. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  935. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  936. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  937. M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  938. M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
  939. M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
  940. M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
  941. M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
  942. M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
  943. M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
  944. M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
  945. M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
  946. M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
  947. M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
  948. M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
  949. M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
  950. M22 = INPUT_NUM(NND, "M22", M22, ACT_MOD)
  951. M23 = INPUT_NUM(NND, "M23", M23, ACT_MOD)
  952. M24 = INPUT_NUM(NND, "M24", M24, ACT_MOD)
  953.  
  954. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  955. ODP = INFO_DAT(NND, 0, 5)
  956.  
  957. SCS = 6
  958. EN_ASL = 10
  959. If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)
  960.  
  961.  
  962. Select Case ver
  963. Case 1
  964. AGG = 1
  965. Case 2
  966. AGG = 2
  967. Case Else
  968. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  969. End Select
  970.  
  971. R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)
  972. R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)
  973. If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""
  974. If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""
  975. If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""
  976. If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""
  977.  
  978. R01 = R01A & R01B & R01C & R01D & R01E & R01F
  979.  
  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)
  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 = ""
  982. R02 = R02A & R02B
  983.  
  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)
  985. If M20 > 0 Then R03A = R03A & T_SLOT(M5 + 50 - M20, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
  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)
  987. If M21 > 0 Then R03B = R03B & T_SLOT(M5 + M6 - 50 + M21, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
  988. R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
  989. R03 = R03A & R03B & R03C
  990.  
  991. DIM_ASL = 6.5
  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)
  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)
  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)
  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)
  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)
  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)
  998. R04 = R04A & R04B & R04C & R04D & R04E & R04F
  999.  
  1000. R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)
  1001. 'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)
  1002. R06 = ""
  1003.  
  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)
  1005.  
  1006. R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)
  1007.  
  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)
  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)
  1010.  
  1011. R09C = T_SMUS(5 - 5, L - 20 - 20 + 5.25 + 5 + 5) & T_SMUS(10 - 5, L - 20 - 20 + 5.25 + 10 + 5)
  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)
  1013.  
  1014. 'R09C = T_CIRC(0, L - 20, 10.5) & T_CIRC(H, L - 20, 10.5)
  1015. R09 = R09A & R09B & R09C & R09D
  1016.  
  1017. R10 = T_RECT2(17.5, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)
  1018. R_MS = 0.7
  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)
  1020.  
  1021. If M22 > 0 Then R12 = T_SLOT(38, 13 + 58 + M22 - 4 * SPS, 12, 6.5, 90) Else R12 = ""
  1022. If M23 > 0 Then R13 = T_SLOT(H - 38, 13 + 58 + M23 - 4 * SPS, 12, 6.5, 90) Else R13 = ""
  1023.  
  1024. R14 = T_DATAMATRIX(ODP, H - 10 - 18.5, L - 46.3 - 45, "V")
  1025.  
  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)
  1027.  
  1028. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15
  1029.  
  1030.  
  1031. P1 = 250
  1032. P2 = H - 400
  1033. MVAL = 500
  1034. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1035. SPEK = 1
  1036. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  1037.  
  1038. Call SAVE_SUB(NND, STRINGA)
  1039.  
  1040. POSINTAB = def_posintab(NND)
  1041.  
  1042.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  1043.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  1044.     STR_OUT(2) = TL_CLN
  1045.     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
  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))"
  1047.     STR_OUT(5) = TL_CUT_O
  1048.     STR_OUT(6) = "TOOLANGLE(0)"
  1049.     STR_OUT(7) = "MIDCUT(N)"
  1050.     STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)
  1051.     STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
  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)
  1053.     STR_OUT(11) = "'FINE BLOCCO"
  1054.  
  1055. 'Call CUT_END_S(H, L, "0", POSINTAB)
  1056. Call FVTPT(3, NND, "")
  1057.  
  1058.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  1059.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  1060.     STR_OUT(2) = TL_CLN
  1061.     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
  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))"
  1063.     STR_OUT(5) = TL_CUT_V
  1064.     STR_OUT(6) = "TOOLANGLE(90)"
  1065.     STR_OUT(7) = "MIDCUT(N)"
  1066.     STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"
  1067.     STR_OUT(9) = TL_CUT_O
  1068.     STR_OUT(10) = "TOOLANGLE(0)"
  1069.     STR_OUT(11) = "MIDCUT(N)"
  1070.     STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)
  1071.     STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
  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)
  1073.     STR_OUT(15) = "'FINE BLOCCO"
  1074.  
  1075. 'Call CUT_END_S(H, L, "C", POSINTAB)
  1076. Call FVTPT(3, NND, "C")
  1077.  
  1078.  
  1079. End Sub
  1080.  
  1081. Sub S_1041431A(ByVal NND As Integer)
  1082. ACT_MOD = "1041431"
  1083. CLAMP = 0
  1084.  
  1085. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1086. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1087. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1088. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1089. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1090. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1091. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  1092. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  1093. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  1094. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  1095. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  1096. M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  1097. M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
  1098. M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
  1099. M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
  1100. M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
  1101. M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
  1102. M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
  1103. M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
  1104. M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
  1105. M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
  1106. M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
  1107. M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
  1108. M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
  1109. M22 = INPUT_NUM(NND, "M22", M22, ACT_MOD)
  1110. M23 = INPUT_NUM(NND, "M23", M23, ACT_MOD)
  1111. M24 = INPUT_NUM(NND, "M24", M24, ACT_MOD)
  1112. M25 = INPUT_NUM(NND, "M25", M25, ACT_MOD)
  1113. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  1114. ODP = INFO_DAT(NND, 0, 5)
  1115.  
  1116. SCS = 6
  1117. EN_ASL = 10
  1118. If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)
  1119.  
  1120.  
  1121. Select Case ver
  1122. Case 1
  1123. AGG = 1
  1124. Case 2
  1125. AGG = 2
  1126. Case Else
  1127. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  1128. End Select
  1129.  
  1130. R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)
  1131. R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)
  1132. If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""
  1133. If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""
  1134. If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""
  1135. If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""
  1136.  
  1137. R01 = R01A & R01B & R01C & R01D & R01E & R01F
  1138.  
  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)
  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 = ""
  1141. R02 = R02A & R02B
  1142.  
  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)
  1144. If M20 > 0 Then R03A = R03A & T_SLOT(M5 + 50 - M20, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
  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)
  1146. If M21 > 0 Then R03B = R03B & T_SLOT(M5 + M6 - 50 + M21, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
  1147. If M16 > 0 Then R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03C = ""
  1148. If M25 > 0 Then R03D = T_SLOT(M25, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
  1149. R03 = R03A & R03B & R03C & R03D
  1150.  
  1151. DIM_ASL = 6.5
  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)
  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)
  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)
  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)
  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)
  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)
  1158. R04 = R04A & R04B & R04C & R04D & R04E & R04F
  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)
  1161. 'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)
  1162. R06 = ""
  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)
  1165.  
  1166. R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)
  1167.  
  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)
  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)
  1170.  
  1171. R09C = T_SMUS(5 - 5, L - 20 - 20 + 5.25 + 5 + 5) & T_SMUS(10 - 5, L - 20 - 20 + 5.25 + 10 + 5)
  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)
  1173.  
  1174. 'R09C = T_CIRC(0, L - 20, 10.5) & T_CIRC(H, L - 20, 10.5)
  1175. R09 = R09A & R09B & R09C & R09D
  1176.  
  1177. R10 = T_RECT2(17.5, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)
  1178. R_MS = 0.7
  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)
  1180.  
  1181. If M22 > 0 Then R12 = T_SLOT(38, 13 + 58 + M22 - 4 * SPS, 12, 6.5, 90) Else R12 = ""
  1182. If M23 > 0 Then R13 = T_SLOT(H - 38, 13 + 58 + M23 - 4 * SPS, 12, 6.5, 90) Else R13 = ""
  1183.  
  1184. R14 = T_DATAMATRIX(ODP, H - 10 - 18.5, L - 46.3 - 45, "V")
  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)
  1187.  
  1188. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15
  1189.  
  1190.  
  1191. P1 = 250
  1192. P2 = H - 400
  1193. MVAL = 500
  1194. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1195. SPEK = 1
  1196. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  1197.  
  1198. Call SAVE_SUB(NND, STRINGA)
  1199.  
  1200. POSINTAB = def_posintab(NND)
  1201.  
  1202.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  1203.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  1204.     STR_OUT(2) = TL_CLN
  1205.     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
  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))"
  1207.     STR_OUT(5) = TL_CUT_O
  1208.     STR_OUT(6) = "TOOLANGLE(0)"
  1209.     STR_OUT(7) = "MIDCUT(N)"
  1210.     STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)
  1211.     STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
  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)
  1213.     STR_OUT(11) = "'FINE BLOCCO"
  1214.  
  1215. 'Call CUT_END_S(H, L, "0", POSINTAB)
  1216. Call FVTPT(3, NND, "")
  1217.  
  1218.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  1219.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  1220.     STR_OUT(2) = TL_CLN
  1221.     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
  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))"
  1223.     STR_OUT(5) = TL_CUT_V
  1224.     STR_OUT(6) = "TOOLANGLE(90)"
  1225.     STR_OUT(7) = "MIDCUT(N)"
  1226.     STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"
  1227.     STR_OUT(9) = TL_CUT_O
  1228.     STR_OUT(10) = "TOOLANGLE(0)"
  1229.     STR_OUT(11) = "MIDCUT(N)"
  1230.     STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)
  1231.     STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
  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)
  1233.     STR_OUT(15) = "'FINE BLOCCO"
  1234.  
  1235. 'Call CUT_END_S(H, L, "C", POSINTAB)
  1236. Call FVTPT(3, NND, "C")
  1237.  
  1238.  
  1239. End Sub
  1240.  
  1241.  
  1242. Sub S_1041431B(ByVal NND As Integer)
  1243. ACT_MOD = "1041431"
  1244. CLAMP = 0
  1245.  
  1246. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1247. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1248. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1249. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1250. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1251. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1252. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  1253. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  1254. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  1255. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  1256. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  1257. M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  1258. M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
  1259. M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
  1260. M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
  1261. M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
  1262. M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
  1263. M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
  1264. M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
  1265. M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
  1266. M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
  1267. M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
  1268. M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
  1269. M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
  1270. M24 = INPUT_NUM(NND, "M24", M24, ACT_MOD)
  1271. M25 = INPUT_NUM(NND, "M25", M25, ACT_MOD)
  1272. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  1273. ODP = INFO_DAT(NND, 0, 5)
  1274.  
  1275. SCS = 6
  1276. EN_ASL = 10
  1277. If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)
  1278.  
  1279.  
  1280. Select Case ver
  1281. Case 1
  1282. AGG = 1
  1283. Case 2
  1284. AGG = 2
  1285. Case Else
  1286. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  1287. End Select
  1288.  
  1289. R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)
  1290. R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)
  1291. If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""
  1292. If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""
  1293. If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""
  1294. If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""
  1295.  
  1296. R01 = R01A & R01B & R01C & R01D & R01E & R01F
  1297.  
  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)
  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 = ""
  1300. R02 = R02A & R02B
  1301.  
  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)
  1303. If M20 > 0 Then R03A = R03A & T_SLOT(M5 + 50 - M20, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
  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)
  1305. If M21 > 0 Then R03B = R03B & T_SLOT(M5 + M6 - 50 + M21, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
  1306. If M16 > 0 Then R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03C = ""
  1307. If M25 > 0 Then R03D = T_SLOT(M25, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
  1308. R03 = R03A & R03B & R03C & R03D
  1309.  
  1310. DIM_ASL = 6.5
  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)
  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)
  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)
  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)
  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)
  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)
  1317. R04 = R04A & R04B & R04C & R04D & R04E & R04F
  1318.  
  1319. R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)
  1320. 'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)
  1321. R06 = ""
  1322.  
  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)
  1324.  
  1325. R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)
  1326.  
  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)
  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)
  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)
  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)
  1332.  
  1333. 'R09C = T_CIRC(0, L - 20, 10.5) & T_CIRC(H, L - 20, 10.5)
  1334. R09 = R09A & R09B & R09C & R09D
  1335.  
  1336. R10 = T_RECT2(17.5, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)
  1337. R_MS = 0.7
  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)
  1339.  
  1340. 'If M22 > 0 Then R12 = T_SLOT(38, 13 + 58 + M22 - 4 * SPS, 12, 6.5, 90) Else R12 = ""
  1341. 'If M23 > 0 Then R13 = T_SLOT(H - 38, 13 + 58 + M23 - 4 * SPS, 12, 6.5, 90) Else R13 = ""
  1342.  
  1343. R14 = T_DATAMATRIX(ODP, H - 10 - 18.5, L - 46.3 - 45, "V")
  1344.  
  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)
  1346.  
  1347. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R14 & R15
  1348.  
  1349.  
  1350. P1 = 250
  1351. P2 = H - 400
  1352. MVAL = 500
  1353. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1354. SPEK = 1
  1355. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  1356.  
  1357. Call SAVE_SUB(NND, STRINGA)
  1358.  
  1359. POSINTAB = def_posintab(NND)
  1360.  
  1361.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  1362.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  1363.     STR_OUT(2) = TL_CLN
  1364.     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
  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))"
  1366.     STR_OUT(5) = TL_CUT_O
  1367.     STR_OUT(6) = "TOOLANGLE(0)"
  1368.     STR_OUT(7) = "MIDCUT(N)"
  1369.     STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)
  1370.     STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
  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)
  1372.     STR_OUT(11) = "'FINE BLOCCO"
  1373.  
  1374. 'Call CUT_END_S(H, L, "0", POSINTAB)
  1375. Call FVTPT(3, NND, "")
  1376.  
  1377.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  1378.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  1379.     STR_OUT(2) = TL_CLN
  1380.     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
  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))"
  1382.     STR_OUT(5) = TL_CUT_V
  1383.     STR_OUT(6) = "TOOLANGLE(90)"
  1384.     STR_OUT(7) = "MIDCUT(N)"
  1385.     STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"
  1386.     STR_OUT(9) = TL_CUT_O
  1387.     STR_OUT(10) = "TOOLANGLE(0)"
  1388.     STR_OUT(11) = "MIDCUT(N)"
  1389.     STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)
  1390.     STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
  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)
  1392.     STR_OUT(15) = "'FINE BLOCCO"
  1393.  
  1394. 'Call CUT_END_S(H, L, "C", POSINTAB)
  1395. Call FVTPT(3, NND, "C")
  1396.  
  1397.  
  1398. End Sub
  1399.  
  1400.  
  1401. Sub S_1041431C(ByVal NND As Integer)
  1402. ACT_MOD = "1041431"
  1403. CLAMP = 0
  1404.  
  1405. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1406. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1407. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1408. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1409. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1410. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1411. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  1412. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  1413. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  1414. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  1415. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  1416. M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  1417. M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
  1418. M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
  1419. M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
  1420. M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
  1421. M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
  1422. M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
  1423. M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
  1424. M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
  1425. M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
  1426. M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
  1427. M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
  1428. M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
  1429. M24 = INPUT_NUM(NND, "M24", M24, ACT_MOD)
  1430. M25 = INPUT_NUM(NND, "M25", M25, ACT_MOD)
  1431. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  1432. ODP = INFO_DAT(NND, 0, 5)
  1433.  
  1434. SCS = 6
  1435. EN_ASL = 10
  1436. If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)
  1437.  
  1438.  
  1439. Select Case ver
  1440. Case 1
  1441. AGG = 1
  1442. Case 2
  1443. AGG = 2
  1444. Case Else
  1445. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  1446. End Select
  1447.  
  1448. R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)
  1449. R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)
  1450. If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""
  1451. If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""
  1452. If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""
  1453. If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""
  1454.  
  1455. R01 = R01A & R01B & R01C & R01D & R01E & R01F
  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)
  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 = ""
  1459. R02 = R02A & R02B
  1460.  
  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)
  1462. If M20 > 0 Then R03A = R03A & T_SLOT(M5 + 50 - M20, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
  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)
  1464. If M21 > 0 Then R03B = R03B & T_SLOT(M5 + M6 - 50 + M21, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
  1465. If M16 > 0 Then R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03C = ""
  1466. If M25 > 0 Then R03D = T_SLOT(M25, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
  1467. R03 = R03A & R03B & R03C & R03D
  1468.  
  1469. DIM_ASL = 6.5
  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)
  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)
  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)
  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)
  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)
  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)
  1476. R04 = R04A & R04B & R04C & R04D & R04E & R04F
  1477.  
  1478. R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)
  1479. 'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)
  1480. R06 = ""
  1481.  
  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)
  1483.  
  1484. R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)
  1485.  
  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)
  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)
  1488.  
  1489. R09C = T_SMUS(5 - 5, L - 20 - 20 + 5.25 + 5 + 5) & T_SMUS(10 - 5, L - 20 - 20 + 5.25 + 10 + 5)
  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)
  1491.  
  1492. 'R09C = T_CIRC(0, L - 20, 10.5) & T_CIRC(H, L - 20, 10.5)
  1493. R09 = R09A & R09B & R09C & R09D
  1494.  
  1495. R10 = T_RECT2(8, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)
  1496. R_MS = 0.7
  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)
  1498.  
  1499. 'If M22 > 0 Then R12 = T_SLOT(38, 13 + 58 + M22 - 4 * SPS, 12, 6.5, 90) Else R12 = ""
  1500. 'If M23 > 0 Then R13 = T_SLOT(H - 38, 13 + 58 + M23 - 4 * SPS, 12, 6.5, 90) Else R13 = ""
  1501.  
  1502. R14 = T_DATAMATRIX(ODP, H - 10 - 18.5, L - 46.3 - 45, "V")
  1503.  
  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)
  1505.  
  1506. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R14 & R15
  1507.  
  1508.  
  1509. P1 = 250
  1510. P2 = H - 400
  1511. MVAL = 500
  1512. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1513. SPEK = 1
  1514. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  1515.  
  1516. Call SAVE_SUB(NND, STRINGA)
  1517.  
  1518. POSINTAB = def_posintab(NND)
  1519.  
  1520.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  1521.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  1522.     STR_OUT(2) = TL_CLN
  1523.     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
  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))"
  1525.     STR_OUT(5) = TL_CUT_O
  1526.     STR_OUT(6) = "TOOLANGLE(0)"
  1527.     STR_OUT(7) = "MIDCUT(N)"
  1528.     STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)
  1529.     STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
  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)
  1531.     STR_OUT(11) = "'FINE BLOCCO"
  1532.  
  1533. 'Call CUT_END_S(H, L, "0", POSINTAB)
  1534. Call FVTPT(3, NND, "")
  1535.  
  1536.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  1537.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  1538.     STR_OUT(2) = TL_CLN
  1539.     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
  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))"
  1541.     STR_OUT(5) = TL_CUT_V
  1542.     STR_OUT(6) = "TOOLANGLE(90)"
  1543.     STR_OUT(7) = "MIDCUT(N)"
  1544.     STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"
  1545.     STR_OUT(9) = TL_CUT_O
  1546.     STR_OUT(10) = "TOOLANGLE(0)"
  1547.     STR_OUT(11) = "MIDCUT(N)"
  1548.     STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)
  1549.     STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
  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)
  1551.     STR_OUT(15) = "'FINE BLOCCO"
  1552.  
  1553. 'Call CUT_END_S(H, L, "C", POSINTAB)
  1554. Call FVTPT(3, NND, "C")
  1555.  
  1556.  
  1557. End Sub
  1558.  
  1559. Sub S_1041431D(ByVal NND As Integer)
  1560. ACT_MOD = "1041431"
  1561. CLAMP = 0
  1562.  
  1563. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1564. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1565. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1566. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1567. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1568. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1569. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  1570. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  1571. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  1572. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  1573. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  1574. M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  1575. M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
  1576. M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
  1577. M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
  1578. M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
  1579. M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
  1580. M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
  1581. M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
  1582. M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
  1583. M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
  1584. M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
  1585. M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
  1586. M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
  1587. M24 = INPUT_NUM(NND, "M24", M24, ACT_MOD)
  1588. M25 = INPUT_NUM(NND, "M25", M25, ACT_MOD)
  1589. M26 = INPUT_NUM(NND, "M26", M26, ACT_MOD)
  1590. M27 = INPUT_NUM(NND, "M27", M27, ACT_MOD)
  1591. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  1592. ODP = INFO_DAT(NND, 0, 5)
  1593.  
  1594. SCS = 6
  1595. EN_ASL = 10
  1596. If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)
  1597.  
  1598.  
  1599. Select Case ver
  1600. Case 1
  1601. AGG = 1
  1602. Case 2
  1603. AGG = 2
  1604. Case Else
  1605. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  1606. End Select
  1607.  
  1608. R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)
  1609. R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)
  1610. If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""
  1611. If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""
  1612. If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""
  1613. If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""
  1614.  
  1615. R01 = R01A & R01B & R01C & R01D & R01E & R01F
  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)
  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 = ""
  1619. R02 = R02A & R02B
  1620.  
  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)
  1622. If M20 > 0 Then R03A = R03A & T_SLOT(M5 + 50 - M20, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
  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)
  1624. If M21 > 0 Then R03B = R03B & T_SLOT(M5 + M6 - 50 + M21, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
  1625. If M16 > 0 Then R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03C = ""
  1626. If M25 > 0 Then R03D = T_SLOT(M25, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
  1627. R03 = R03A & R03B & R03C & R03D
  1628.  
  1629. DIM_ASL = 6.5
  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)
  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)
  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)
  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)
  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)
  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)
  1636. R04 = R04A & R04B & R04C & R04D & R04E & R04F
  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)
  1639. 'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)
  1640. R06 = ""
  1641.  
  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)
  1643.  
  1644. R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)
  1645.  
  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)
  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)
  1648.  
  1649. R09C = T_SMUS(5 - 5, L - 20 - 20 + 5.25 + 5 + 5) & T_SMUS(10 - 5, L - 20 - 20 + 5.25 + 10 + 5)
  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)
  1651.  
  1652. 'R09C = T_CIRC(0, L - 20, 10.5) & T_CIRC(H, L - 20, 10.5)
  1653. R09 = R09A & R09B & R09C & R09D
  1654.  
  1655. R10 = T_RECT2(8, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)
  1656. R_MS = 0.7
  1657. 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)
  1658.  
  1659. If M26 > 0 Then R12 = T_SLOT(38, 13 + 58 + M26 - 4 * SPS, 12, 6.5, 90) Else R12 = ""
  1660. If M27 > 0 Then R13 = T_SLOT(H - 38, 13 + 58 + M27 - 4 * SPS, 12, 6.5, 90) Else R13 = ""
  1661.  
  1662. R14 = T_DATAMATRIX(ODP, H - 10 - 18.5, L - 46.3 - 45, "V")
  1663.  
  1664. R15 = T_SLOT(13, L - 16.3 - M24, 12, 6.5, 0) & T_SLOT(H - 13, L - 16.3 - M24, 12, 6.5, 0)
  1665.  
  1666. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R14 & R15 & R12 & R13
  1667.  
  1668.  
  1669. P1 = 250
  1670. P2 = H - 400
  1671. MVAL = 500
  1672. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1673. SPEK = 1
  1674. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  1675.  
  1676. Call SAVE_SUB(NND, STRINGA)
  1677.  
  1678. POSINTAB = def_posintab(NND)
  1679.  
  1680.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  1681.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  1682.     STR_OUT(2) = TL_CLN
  1683.     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
  1684.     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))"
  1685.     STR_OUT(5) = TL_CUT_O
  1686.     STR_OUT(6) = "TOOLANGLE(0)"
  1687.     STR_OUT(7) = "MIDCUT(N)"
  1688.     STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)
  1689.     STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
  1690.     STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
  1691.     STR_OUT(11) = "'FINE BLOCCO"
  1692.  
  1693. 'Call CUT_END_S(H, L, "0", POSINTAB)
  1694. Call FVTPT(3, NND, "")
  1695.  
  1696.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  1697.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  1698.     STR_OUT(2) = TL_CLN
  1699.     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
  1700.     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))"
  1701.     STR_OUT(5) = TL_CUT_V
  1702.     STR_OUT(6) = "TOOLANGLE(90)"
  1703.     STR_OUT(7) = "MIDCUT(N)"
  1704.     STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"
  1705.     STR_OUT(9) = TL_CUT_O
  1706.     STR_OUT(10) = "TOOLANGLE(0)"
  1707.     STR_OUT(11) = "MIDCUT(N)"
  1708.     STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)
  1709.     STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
  1710.     STR_OUT(14) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
  1711.     STR_OUT(15) = "'FINE BLOCCO"
  1712.  
  1713. 'Call CUT_END_S(H, L, "C", POSINTAB)
  1714. Call FVTPT(3, NND, "C")
  1715.  
  1716.  
  1717. End Sub
  1718.  
  1719. Sub S_1036714A(ByVal NND As Integer)
  1720. ACT_MOD = "1036714"
  1721. CLAMP = 0
  1722.  
  1723. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1724. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1725. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1726. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1727. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1728. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1729. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  1730. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  1731. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  1732. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  1733. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  1734. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  1735.  
  1736. SCS = 6
  1737. EN_ASL = 10
  1738. Select Case ver
  1739. Case 1
  1740. AGG = 1
  1741. Case 2
  1742. AGG = 2
  1743. Case Else
  1744. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  1745. End Select
  1746.  
  1747. R01 = T_HEX(M2, L / 2, 11) & T_HEX(H - M4, L / 2, 11)
  1748. If M7 > 0 Then R01 = R01 & T_HEX(M7, L / 2, 11)
  1749. If M1 > 0 Then R01 = R01 & T_HEX(M1, L / 2, 11)
  1750. If M8 > 0 Then R01 = R01 & T_HEX(H - M8, L / 2, 11)
  1751. If M3 > 0 Then R01 = R01 & T_HEX(H - M3, L / 2, 11)
  1752.  
  1753.  
  1754.  
  1755. R_MS = 1
  1756. R02 = T_SMUS(-R_MS, -R_MS) & T_SMUS(-R_MS, L + R_MS) & T_SMUS(H + R_MS, L + R_MS) & T_SMUS(H + R_MS, -R_MS)
  1757. 'R03 = T_SMUS(M5 + 105 / 2, -0.75) & T_SMUS(M5 - 105 / 2, L + 0.75) & T_SMUS(M5 + M6 + 105 / 2, -0.75) & T_SMUS(M5 + M6 - 105 / 2, L + 0.75)
  1758. R03A = T_CIRC(M5 + 105 / 2, 0, 4.2) & T_CIRC(M5 - 105 / 2, 0, 4.2) & T_CIRC(M5 + M6 + 105 / 2, 0, 4.2) & T_CIRC(M5 + M6 - 105 / 2, 0, 4.2)
  1759. R03B = T_CIRC(M5 + 105 / 2, L, 4.2) & T_CIRC(M5 - 105 / 2, L, 4.2) & T_CIRC(M5 + M6 + 105 / 2, L, 4.2) & T_CIRC(M5 + M6 - 105 / 2, L, 4.2)
  1760. R03 = R03A & R03B
  1761. R04 = T_CIRC(0, L - 17, 4.2)
  1762.  
  1763. fn = R01 & R02 & R03 & R04
  1764.  
  1765. P1 = 250
  1766. P2 = H - 400
  1767. MVAL = 500
  1768. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1769.  
  1770. If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
  1771.  
  1772. Call SAVE_SUB(NND, STRINGA)
  1773.  
  1774. POSINTAB = def_posintab(NND)
  1775. Call CUT_END_S(H, L, "0", POSINTAB)
  1776. Call FVTPT(3, NND, "")
  1777. Call CUT_END_S(H, L, "C", POSINTAB)
  1778. Call FVTPT(3, NND, "C")
  1779.  
  1780. End Sub
  1781.  
  1782. Sub S_10428730(ByVal NND As Integer)
  1783. ACT_MOD = "1042873"
  1784. CLAMP = 0
  1785.  
  1786. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1787. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1788. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1789. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1790. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1791. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1792. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  1793. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  1794. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  1795. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  1796. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  1797. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  1798.  
  1799. SCS = 6
  1800. EN_ASL = 10
  1801. Select Case ver
  1802. Case 1
  1803. AGG = 1
  1804. Case 2
  1805. AGG = 2
  1806. Case Else
  1807. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  1808. End Select
  1809.  
  1810. R01 = T_HEX(M2, L / 2, 11) & T_HEX(H - M4, L / 2, 11)
  1811. If M7 > 0 Then R01 = R01 & T_HEX(M7, L / 2, 11)
  1812. If M1 > 0 Then R01 = R01 & T_HEX(M1, L / 2, 11)
  1813. If M8 > 0 Then R01 = R01 & T_HEX(H - M8, L / 2, 11)
  1814. If M3 > 0 Then R01 = R01 & T_HEX(H - M3, L / 2, 11)
  1815.  
  1816.  
  1817.  
  1818. R_MS = 1
  1819. R02 = T_SMUS(-R_MS, -R_MS) & T_SMUS(-R_MS, L + R_MS) & T_SMUS(H + R_MS, L + R_MS) & T_SMUS(H + R_MS, -R_MS)
  1820. 'R03 = T_SMUS(M5 + 105 / 2, -0.75) & T_SMUS(M5 - 105 / 2, L + 0.75) & T_SMUS(M5 + M6 + 105 / 2, -0.75) & T_SMUS(M5 + M6 - 105 / 2, L + 0.75)
  1821. R03A = T_CIRC(M5 + 105 / 2, 0, 4.2) & T_CIRC(M5 - 105 / 2, 0, 4.2) & T_CIRC(M5 + M6 + 105 / 2, 0, 4.2) & T_CIRC(M5 + M6 - 105 / 2, 0, 4.2)
  1822. R03B = T_CIRC(M5 + 105 / 2, L, 4.2) & T_CIRC(M5 - 105 / 2, L, 4.2) & T_CIRC(M5 + M6 + 105 / 2, L, 4.2) & T_CIRC(M5 + M6 - 105 / 2, L, 4.2)
  1823. R03 = R03A & R03B
  1824. R04 = T_CIRC(0, L - 17, 4.2)
  1825.  
  1826. fn = R01 & R02 & R03 & R04
  1827.  
  1828. P1 = 250
  1829. P2 = H - 400
  1830. MVAL = 500
  1831. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1832.  
  1833. If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
  1834.  
  1835. Call SAVE_SUB(NND, STRINGA)
  1836.  
  1837. POSINTAB = def_posintab(NND)
  1838. Call CUT_END_S(H, L, "0", POSINTAB)
  1839. Call FVTPT(3, NND, "")
  1840. Call CUT_END_S(H, L, "B", POSINTAB)
  1841. Call FVTPT(3, NND, "B")
  1842. Call CUT_END_S(H, L, "C", POSINTAB)
  1843. Call FVTPT(3, NND, "C")
  1844.  
  1845. End Sub
  1846.  
  1847.  
  1848. Sub S_1042873A(ByVal NND As Integer)
  1849. ACT_MOD = "1042873"
  1850. CLAMP = 0
  1851.  
  1852. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1853. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1854. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1855. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1856. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1857. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1858. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  1859. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  1860. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  1861. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  1862. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  1863. M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  1864. M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
  1865. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  1866.  
  1867. SCS = 6
  1868. EN_ASL = 10
  1869. Select Case ver
  1870. Case 1
  1871. AGG = 1
  1872. Case 2
  1873. AGG = 2
  1874. Case Else
  1875. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  1876. End Select
  1877.  
  1878. R01 = T_HEX(M2, L / 2, 11) & T_HEX(H - M4, L / 2, 11)
  1879. If M7 > 0 Then R01 = R01 & T_HEX(M7, L / 2, 11)
  1880. If M1 > 0 Then R01 = R01 & T_HEX(M1, L / 2, 11)
  1881. If M8 > 0 Then R01 = R01 & T_HEX(H - M8, L / 2, 11)
  1882. If M3 > 0 Then R01 = R01 & T_HEX(H - M3, L / 2, 11)
  1883.  
  1884.  
  1885.  
  1886. R_MS = 1
  1887. R02 = T_SMUS(-R_MS, -R_MS) & T_SMUS(-R_MS, L + R_MS) & T_SMUS(H + R_MS, L + R_MS) & T_SMUS(H + R_MS, -R_MS)
  1888. 'R03 = T_SMUS(M5 + 105 / 2, -0.75) & T_SMUS(M5 - 105 / 2, L + 0.75) & T_SMUS(M5 + M6 + 105 / 2, -0.75) & T_SMUS(M5 + M6 - 105 / 2, L + 0.75)
  1889. R03A = T_CIRC(M5 + 52.5, 0, 4.2) & T_CIRC(M5 + 52.5 - M9, 0, 4.2) & T_CIRC(M5 + M6 - 52.5 + M10, 0, 4.2) & T_CIRC(M5 + M6 - 52.5, 0, 4.2)
  1890. R03B = T_CIRC(M5 + 52.5, L, 4.2) & T_CIRC(M5 + 52.5 - M9, L, 4.2) & T_CIRC(M5 + M6 - 52.5 + M10, L, 4.2) & T_CIRC(M5 + M6 - 52.5, L, 4.2)
  1891. R03 = R03A & R03B
  1892. R04 = T_CIRC(0, L - 17, 4.2)
  1893.  
  1894. fn = R01 & R02 & R03 & R04
  1895.  
  1896. P1 = 250
  1897. P2 = H - 400
  1898. MVAL = 500
  1899. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1900.  
  1901. If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
  1902.  
  1903. Call SAVE_SUB(NND, STRINGA)
  1904.  
  1905. POSINTAB = def_posintab(NND)
  1906. Call CUT_END_S(H, L, "0", POSINTAB)
  1907. Call FVTPT(3, NND, "")
  1908. Call CUT_END_S(H, L, "B", POSINTAB)
  1909. Call FVTPT(3, NND, "B")
  1910. Call CUT_END_S(H, L, "C", POSINTAB)
  1911. Call FVTPT(3, NND, "C")
  1912.  
  1913. End Sub
  1914.  
  1915.  
  1916. Sub S_1037258B(ByVal NND As Integer)
  1917. ACT_MOD = "1037258"
  1918. CLAMP = 0
  1919.  
  1920. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1921. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1922. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1923. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1924. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1925. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1926. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  1927. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  1928. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  1929. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  1930.  
  1931. SCS = 6
  1932. EN_ASL = 10
  1933. Select Case ver
  1934. Case 1
  1935. AGG = 1
  1936. Case 2
  1937. AGG = 2
  1938. Case Else
  1939. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  1940. End Select
  1941.  
  1942. R01A = T_SLOT(H - 26 - 55 + 2 * SPS, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 2 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
  1943. R01B = T_SLOT(H - 26 - 55 + 2 * SPS - 3 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 4 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
  1944. R01 = R01A & R01B
  1945.  
  1946. R02 = T_SLOT(5, 20 + 35 + 47 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + 40 - 4 * SPS, 23.5, EN_ASL, 0)
  1947. R03 = ""
  1948. If M3 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M3 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + M3 - 4 * SPS, 23.5, EN_ASL, 0)
  1949. If M4 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M4 - 4 * SPS, 20, EN_ASL, 0)
  1950. If M5 > 0 Then R03 = R03 & T_SLOT(H - 6.75, 20 + 35 + M5 - 4 * SPS, 23.5, EN_ASL, 0)
  1951.  
  1952.  
  1953. 'r04 = T_RECT1(6, 6 + 5, 20 + 35 + 15 - 4 * SPS, 20 + 35 + 15 - 4 * SPS + 5)
  1954. R04 = T_RECT2(H - (6 + 2.5), 20 + 35 + 15 - 4 * SPS + 2.5, 6.8, 6.8)
  1955. R05A = T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
  1956. R05B = T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
  1957. R05 = R05A & R05B
  1958.  
  1959. R06A = T_RECT1(-6, 26 - 2 * SPS, -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(-6, 26 - 2 * SPS, L + 6, L - 20 - 7.6 + 2 * SPS)
  1960. R06B = T_RECT1(H + 6, H - (26 - 2 * SPS), -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(H + 6, H - (26 - 2 * SPS), L + 6, L - 20 - 7.6 + 2 * SPS)
  1961. R06 = R06A & R06B
  1962.  
  1963. R_MS = 1
  1964. R07A = T_SMUS(-R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(-R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
  1965. R07B = T_SMUS(H + R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(H + R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
  1966. R07 = R07A & R07B
  1967.  
  1968.  
  1969. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07
  1970.  
  1971. P1 = 250
  1972. P2 = H - 400
  1973. MVAL = 500
  1974. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1975.  
  1976. If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
  1977.  
  1978. Call SAVE_SUB(NND, STRINGA)
  1979.  
  1980. POSINTAB = def_posintab(NND)
  1981. Call CUT_END_S(H, L, "0", POSINTAB)
  1982. Call FVTPT(3, NND, "")
  1983. Call CUT_END_S(H, L, "B", POSINTAB)
  1984. Call FVTPT(3, NND, "B")
  1985. Call CUT_END_S(H, L, "C", POSINTAB)
  1986. Call FVTPT(3, NND, "C")
  1987.  
  1988. End Sub
  1989.  
  1990.  
  1991. Sub S_1037258C(ByVal NND As Integer)
  1992. ACT_MOD = "1037258"
  1993. CLAMP = 0
  1994.  
  1995. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1996. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1997. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1998. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1999. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  2000. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  2001. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  2002. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  2003. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  2004. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  2005. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  2006. M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  2007. ODP = INFO_DAT(NND, 0, 5)
  2008. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  2009.  
  2010. SCS = 6
  2011. EN_ASL = 10
  2012. Select Case ver
  2013. Case 1
  2014. AGG = 1
  2015. Case 2
  2016. AGG = 2
  2017. Case Else
  2018. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  2019. End Select
  2020.  
  2021. R01A = T_SLOT(H - 26 - 55 + 2 * SPS, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 2 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
  2022. R01B = T_SLOT(H - 26 - 55 + 2 * SPS - 3 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 4 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
  2023. R01 = R01A & R01B
  2024.  
  2025. R02 = T_SLOT(5, 20 + 35 + 47 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + 40 - 4 * SPS, 23.5, EN_ASL, 0)
  2026. R03 = ""
  2027. If M3 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M3 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + M3 - 4 * SPS, 23.5, EN_ASL, 0)
  2028. If M4 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M4 - 4 * SPS, 20, EN_ASL, 0)
  2029. If M5 > 0 Then R03 = R03 & T_SLOT(H - 6.75, 20 + 35 + M5 - 4 * SPS, 23.5, EN_ASL, 0)
  2030.  
  2031.  
  2032. 'r04 = T_RECT1(6, 6 + 5, 20 + 35 + 15 - 4 * SPS, 20 + 35 + 15 - 4 * SPS + 5)
  2033. R04 = T_RECT2(H - (6 + 2.5), 20 + 35 + 15 - 4 * SPS + 2.5, 6.8, 6.8)
  2034. R05A = T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
  2035. R05B = T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
  2036. R05 = R05A & R05B
  2037.  
  2038. R06A = T_RECT1(-6, 26 - 2 * SPS, -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(-6, 26 - 2 * SPS, L + 6, L - 20 - 7.6 + 2 * SPS)
  2039. R06B = T_RECT1(H + 6, H - (26 - 2 * SPS), -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(H + 6, H - (26 - 2 * SPS), L + 6, L - 20 - 7.6 + 2 * SPS)
  2040. R06 = R06A & R06B
  2041.  
  2042. R_MS = 0.6
  2043. R07A = T_SMUS(-R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(-R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
  2044. R07B = T_SMUS(H + R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(H + R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
  2045. R07C = T_SMUS(26 - 2 * SPS - R_MS, -R_MS) & T_SMUS(26 - 2 * SPS - R_MS, L + R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, -R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, L + R_MS)
  2046. R07 = R07A & R07B & R07C
  2047.  
  2048. If M9 > 0 Then R08A = T_SLOT(H - 26 - M9 + 2.4, L - 20 - 39 + 2.4, 12, 6.5, 0) Else R08A = ""
  2049. If M7 > 0 Then R08B = T_SLOT(H - 26 - M7 + 2.4, L - 20 - 39 + 2.4, 12, 6.5, 0) Else R08B = ""
  2050. If M8 > 0 Then R08C = T_SLOT(26 + M8 - 2.4, L - 20 - 39 + 2.4, 12, 6.5, 0) Else R08C = ""
  2051. R08 = R08A & R08B & R08C
  2052.  
  2053. R09 = T_DATAMATRIX(ODP, H - 26 - 80 + 2.4 - 43.5, L - 20 - 6 + 2.4 - 18.5, "O")
  2054.  
  2055. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09
  2056.  
  2057. P1 = 250
  2058. P2 = H - 400
  2059. MVAL = 500
  2060. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  2061.  
  2062. If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
  2063.  
  2064. Call SAVE_SUB(NND, STRINGA)
  2065.  
  2066. POSINTAB = def_posintab(NND)
  2067. Call CUT_END_S(H, L, "0", POSINTAB)
  2068. Call FVTPT(3, NND, "")
  2069. Call CUT_END_S(H, L, "B", POSINTAB)
  2070. Call FVTPT(3, NND, "B")
  2071. Call CUT_END_S(H, L, "C", POSINTAB)
  2072. Call FVTPT(3, NND, "C")
  2073.  
  2074. End Sub
  2075.  
  2076.  
  2077. Sub S_1037258E(ByVal NND As Integer)
  2078. ACT_MOD = "1037258"
  2079. CLAMP = 0
  2080.  
  2081. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  2082. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  2083. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  2084. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  2085. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  2086. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  2087. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  2088. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  2089. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  2090. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  2091. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  2092. M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  2093. ODP = INFO_DAT(NND, 0, 5)
  2094. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  2095.  
  2096. SCS = 6
  2097. EN_ASL = 10
  2098. Select Case ver
  2099. Case 1
  2100. AGG = 1
  2101. Case 2
  2102. AGG = 2
  2103. Case Else
  2104. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  2105. End Select
  2106.  
  2107. R01A = T_SLOT(H - 26 - 55 + 2 * SPS, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 2 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
  2108. R01B = T_SLOT(H - 26 - 55 + 2 * SPS - 3 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 4 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
  2109. R01 = R01A & R01B
  2110.  
  2111. R02 = T_SLOT(5, 20 + 35 + 47 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + 40 - 4 * SPS, 23.5, EN_ASL, 0)
  2112. R03 = ""
  2113. If M3 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M3 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + M3 - 4 * SPS, 23.5, EN_ASL, 0)
  2114. If M4 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M4 - 4 * SPS, 20, EN_ASL, 0)
  2115. If M5 > 0 Then R03 = R03 & T_SLOT(H - 6.75, 20 + 35 + M5 - 4 * SPS, 23.5, EN_ASL, 0)
  2116.  
  2117.  
  2118. 'r04 = T_RECT1(6, 6 + 5, 20 + 35 + 15 - 4 * SPS, 20 + 35 + 15 - 4 * SPS + 5)
  2119. R04 = T_RECT2(H - (6 + 2.5), 20 + 35 + 15 - 4 * SPS + 2.5, 6.8, 6.8)
  2120. R05A = T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
  2121. R05B = T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
  2122. R05 = R05A & R05B
  2123.  
  2124. R06A = T_RECT1(-6, 26 - 2 * SPS, -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(-6, 26 - 2 * SPS, L + 6, L - 20 - 7.6 + 2 * SPS)
  2125. R06B = T_RECT1(H + 6, H - (26 - 2 * SPS), -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(H + 6, H - (26 - 2 * SPS), L + 6, L - 20 - 7.6 + 2 * SPS)
  2126. R06 = R06A & R06B
  2127.  
  2128. R_MS = 0.6
  2129. R07A = T_SMUS(-R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(-R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
  2130. R07B = T_SMUS(H + R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(H + R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
  2131. R07C = T_SMUS(26 - 2 * SPS - R_MS, -R_MS) & T_SMUS(26 - 2 * SPS - R_MS, L + R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, -R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, L + R_MS)
  2132. R07 = R07A & R07B & R07C
  2133.  
  2134. If M9 > 0 Then R08A = T_SLOT(H - 26 - M9 + 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08A = ""
  2135. If M7 > 0 Then R08B = T_SLOT(H - 26 - M7 + 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08B = ""
  2136. If M8 > 0 Then R08C = T_SLOT(26 + M8 - 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08C = ""
  2137. R08 = R08A & R08B & R08C
  2138.  
  2139. R09 = T_DATAMATRIX(ODP, H - 26 - 80 + 2.4 - 43.5, L - 20 - 6 + 2.4 - 18.5, "O")
  2140.  
  2141. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09
  2142.  
  2143. P1 = 250
  2144. P2 = H - 400
  2145. MVAL = 500
  2146. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  2147.  
  2148. If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
  2149.  
  2150. Call SAVE_SUB(NND, STRINGA)
  2151.  
  2152. POSINTAB = def_posintab(NND)
  2153. Call CUT_END_S(H, L, "0", POSINTAB)
  2154. Call FVTPT(3, NND, "")
  2155. Call CUT_END_S(H, L, "B", POSINTAB)
  2156. Call FVTPT(3, NND, "B")
  2157. Call CUT_END_S(H, L, "C", POSINTAB)
  2158. Call FVTPT(3, NND, "C")
  2159.  
  2160. End Sub
  2161.  
  2162.  
  2163. Sub S_1037258F(ByVal NND As Integer)
  2164. ACT_MOD = "1037258"
  2165. CLAMP = 0
  2166.  
  2167. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  2168. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  2169. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  2170. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  2171. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  2172. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  2173. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  2174. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  2175. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  2176. 'M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  2177. 'M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  2178. 'M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  2179. ODP = INFO_DAT(NND, 0, 5)
  2180. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  2181.  
  2182. SCS = 6
  2183. EN_ASL = 10
  2184. Select Case ver
  2185. Case 1
  2186. AGG = 1
  2187. Case 2
  2188. AGG = 2
  2189. Case Else
  2190. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  2191. End Select
  2192.  
  2193. R01A = T_SLOT(H - 26 - 55 + 2 * SPS, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 2 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
  2194. R01B = T_SLOT(H - 26 - 55 + 2 * SPS - 3 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 4 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
  2195. R01 = R01A & R01B
  2196.  
  2197. R02 = T_SLOT(5, 20 + 35 + 47 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + 40 - 4 * SPS, 23.5, EN_ASL, 0)
  2198. R03 = ""
  2199. If M3 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M3 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + M3 - 4 * SPS, 23.5, EN_ASL, 0)
  2200. If M4 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M4 - 4 * SPS, 20, EN_ASL, 0)
  2201. If M5 > 0 Then R03 = R03 & T_SLOT(H - 6.75, 20 + 35 + M5 - 4 * SPS, 23.5, EN_ASL, 0)
  2202.  
  2203.  
  2204. 'r04 = T_RECT1(6, 6 + 5, 20 + 35 + 15 - 4 * SPS, 20 + 35 + 15 - 4 * SPS + 5)
  2205. R04 = T_RECT2(H - (6 + 2.5), 20 + 35 + 15 - 4 * SPS + 2.5, 6.8, 6.8)
  2206. R05A = T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
  2207. R05B = T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
  2208. R05 = R05A & R05B
  2209.  
  2210. R06A = T_RECT1(-6 - 3, 26 - 2 * SPS, -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(-6 - 3, 26 - 2 * SPS, L + 6, L - 20 - 7.6 + 2 * SPS)
  2211. R06B = T_RECT1(H + 6 + 3, H - (26 - 2 * SPS), -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(H + 6 + 3, H - (26 - 2 * SPS), L + 6, L - 20 - 7.6 + 2 * SPS)
  2212. R06 = R06A & R06B
  2213.  
  2214. R_MS = 0.6
  2215. R07A = T_SMUS(-R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(-R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
  2216. R07B = T_SMUS(H + R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(H + R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
  2217. R07C = T_SMUS(26 - 2 * SPS - R_MS, -R_MS) & T_SMUS(26 - 2 * SPS - R_MS, L + R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, -R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, L + R_MS)
  2218. R07 = R07A & R07B & R07C
  2219.  
  2220. 'If M9 > 0 Then R08A = T_SLOT(H - 26 - M9 + 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08A = ""
  2221. 'If M7 > 0 Then R08B = T_SLOT(H - 26 - M7 + 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08B = ""
  2222. 'If M8 > 0 Then R08C = T_SLOT(26 + M8 - 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08C = ""
  2223. 'R08 = R08A & R08B & R08C
  2224.  
  2225.  
  2226. R09 = T_DATAMATRIX(ODP, H - 26 - 80 + 2.4 - 43.5, L - 20 - 6 + 2.4 - 18.5, "O")
  2227.  
  2228. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R09  '& R08
  2229.  
  2230. P1 = 250
  2231. P2 = H - 400
  2232. MVAL = 500
  2233. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  2234.  
  2235. If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
  2236.  
  2237. Call SAVE_SUB(NND, STRINGA)
  2238.  
  2239. POSINTAB = def_posintab(NND)
  2240. Call CUT_END_S(H, L, "0", POSINTAB)
  2241. Call FVTPT(3, NND, "")
  2242. Call CUT_END_S(H, L, "B", POSINTAB)
  2243. Call FVTPT(3, NND, "B")
  2244. Call CUT_END_S(H, L, "C", POSINTAB)
  2245. Call FVTPT(3, NND, "C")
  2246.  
  2247. End Sub
  2248.  
  2249. Sub S_1042991A(ByVal NND As Integer)
  2250. ACT_MOD = "1042991"
  2251. CLAMP = 0
  2252.  
  2253. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  2254. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  2255. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  2256. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  2257. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  2258. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  2259. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  2260. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  2261. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  2262. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  2263. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  2264. M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  2265. ODP = INFO_DAT(NND, 0, 5)
  2266. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  2267.  
  2268. SCS = 6
  2269. EN_ASL = 10
  2270. Select Case ver
  2271. Case 1
  2272. AGG = 1
  2273. Case 2
  2274. AGG = 2
  2275. Case Else
  2276. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  2277. End Select
  2278.  
  2279. R01A = T_SLOT(H - 26 - 55 + 2 * SPS, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 2 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
  2280. R01B = T_SLOT(H - 26 - 55 + 2 * SPS - 3 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 4 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
  2281. R01 = R01A & R01B
  2282.  
  2283. R02 = T_SLOT(5, 20 + 35 + 30 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + 30 - 4 * SPS, 23.5, EN_ASL, 0)
  2284. R03 = ""
  2285. If M3 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M3 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + M3 - 4 * SPS, 23.5, EN_ASL, 0)
  2286. If M4 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M4 - 4 * SPS, 20, EN_ASL, 0)
  2287. If M5 > 0 Then R03 = R03 & T_SLOT(H - 6.75, 20 + 35 + M5 - 4 * SPS, 23.5, EN_ASL, 0)
  2288.  
  2289.  
  2290. 'r04 = T_RECT1(6, 6 + 5, 20 + 35 + 15 - 4 * SPS, 20 + 35 + 15 - 4 * SPS + 5)
  2291. R04 = T_RECT2(H - (6 + 2.5), 20 + 35 + 15 - 4 * SPS + 2.5, 6.8, 6.8)
  2292. R05A = T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
  2293. R05B = T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
  2294. R05 = R05A & R05B
  2295.  
  2296. R06A = T_RECT1(-6 - 3, 26 - 2 * SPS, -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(-6 - 3, 26 - 2 * SPS, L + 6, L - 20 - 7.6 + 2 * SPS)
  2297. R06B = T_RECT1(H + 6 + 3, H - (26 - 2 * SPS), -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(H + 6 + 3, H - (26 - 2 * SPS), L + 6, L - 20 - 7.6 + 2 * SPS)
  2298. R06 = R06A & R06B
  2299.  
  2300. R_MS = 0.6
  2301. R07A = T_SMUS(-R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(-R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
  2302. R07B = T_SMUS(H + R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(H + R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
  2303. R07C = T_SMUS(26 - 2 * SPS - R_MS, -R_MS) & T_SMUS(26 - 2 * SPS - R_MS, L + R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, -R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, L + R_MS)
  2304. R07 = R07A & R07B & R07C
  2305.  
  2306. If M9 > 0 Then R08A = T_SLOT(H - 26 - M9 + 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08A = ""
  2307. If M7 > 0 Then R08B = T_SLOT(H - 26 - M7 + 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08B = ""
  2308. If M8 > 0 Then R08C = T_SLOT(26 + M8 - 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08C = ""
  2309. R08 = R08A & R08B & R08C
  2310.  
  2311. R09 = T_DATAMATRIX(ODP, H - 26 - 80 + 2.4 - 43.5, L - 20 - 6 + 2.4 - 18.5, "O")
  2312.  
  2313. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09
  2314.  
  2315. P1 = 250
  2316. P2 = H - 400
  2317. MVAL = 500
  2318. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  2319.  
  2320. If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
  2321.  
  2322. Call SAVE_SUB(NND, STRINGA)
  2323.  
  2324. POSINTAB = def_posintab(NND)
  2325. Call CUT_END_S(H, L, "0", POSINTAB)
  2326. Call FVTPT(3, NND, "")
  2327. Call CUT_END_S(H, L, "B", POSINTAB)
  2328. Call FVTPT(3, NND, "B")
  2329. Call CUT_END_S(H, L, "C", POSINTAB)
  2330. Call FVTPT(3, NND, "C")
  2331.  
  2332. End Sub
  2333.  
  2334.  
  2335. Sub S_1042991C(ByVal NND As Integer)
  2336. ACT_MOD = "1042991"
  2337. CLAMP = 0
  2338.  
  2339. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  2340. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  2341. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  2342. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  2343. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  2344. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  2345. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  2346. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  2347. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  2348. 'M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  2349. 'M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  2350. 'M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  2351. ODP = INFO_DAT(NND, 0, 5)
  2352. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  2353.  
  2354. SCS = 6
  2355. EN_ASL = 10
  2356. Select Case ver
  2357. Case 1
  2358. AGG = 1
  2359. Case 2
  2360. AGG = 2
  2361. Case Else
  2362. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  2363. End Select
  2364.  
  2365. R01A = T_SLOT(H - 26 - 55 + 2 * SPS, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 2 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
  2366. R01B = T_SLOT(H - 26 - 55 + 2 * SPS - 3 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 4 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
  2367. R01 = R01A & R01B
  2368.  
  2369. R02 = T_SLOT(5, 20 + 35 + 30 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + 30 - 4 * SPS, 23.5, EN_ASL, 0)
  2370. R03 = ""
  2371. If M3 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M3 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + M3 - 4 * SPS, 23.5, EN_ASL, 0)
  2372. If M4 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M4 - 4 * SPS, 20, EN_ASL, 0)
  2373. If M5 > 0 Then R03 = R03 & T_SLOT(H - 6.75, 20 + 35 + M5 - 4 * SPS, 23.5, EN_ASL, 0)
  2374.  
  2375.  
  2376. 'r04 = T_RECT1(6, 6 + 5, 20 + 35 + 15 - 4 * SPS, 20 + 35 + 15 - 4 * SPS + 5)
  2377. R04 = T_RECT2(H - (6 + 2.5), 20 + 35 + 15 - 4 * SPS + 2.5, 6.8, 6.8)
  2378. R05A = T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
  2379. R05B = T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
  2380. R05 = R05A & R05B
  2381.  
  2382. R06A = T_RECT1(-6 - 3, 26 - 2 * SPS, -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(-6 - 3, 26 - 2 * SPS, L + 6, L - 20 - 7.6 + 2 * SPS)
  2383. R06B = T_RECT1(H + 6 + 3, H - (26 - 2 * SPS), -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(H + 6 + 3, H - (26 - 2 * SPS), L + 6, L - 20 - 7.6 + 2 * SPS)
  2384. R06 = R06A & R06B
  2385.  
  2386. R_MS = 0.6
  2387. R07A = T_SMUS(-R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(-R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
  2388. R07B = T_SMUS(H + R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(H + R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
  2389. R07C = T_SMUS(26 - 2 * SPS - R_MS, -R_MS) & T_SMUS(26 - 2 * SPS - R_MS, L + R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, -R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, L + R_MS)
  2390. R07 = R07A & R07B & R07C
  2391.  
  2392. 'If M9 > 0 Then R08A = T_SLOT(H - 26 - M9 + 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08A = ""
  2393. 'If M7 > 0 Then R08B = T_SLOT(H - 26 - M7 + 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08B = ""
  2394. 'If M8 > 0 Then R08C = T_SLOT(26 + M8 - 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08C = ""
  2395. 'R08 = R08A & R08B & R08C
  2396.  
  2397. R09 = T_DATAMATRIX(ODP, H - 26 - 80 + 2.4 - 43.5, L - 20 - 6 + 2.4 - 18.5, "O")
  2398.  
  2399. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R09 ' & R08
  2400.  
  2401. P1 = 250
  2402. P2 = H - 400
  2403. MVAL = 500
  2404. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  2405.  
  2406. If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
  2407.  
  2408. Call SAVE_SUB(NND, STRINGA)
  2409.  
  2410. POSINTAB = def_posintab(NND)
  2411. Call CUT_END_S(H, L, "0", POSINTAB)
  2412. Call FVTPT(3, NND, "")
  2413. Call CUT_END_S(H, L, "B", POSINTAB)
  2414. Call FVTPT(3, NND, "B")
  2415. Call CUT_END_S(H, L, "C", POSINTAB)
  2416. Call FVTPT(3, NND, "C")
  2417.  
  2418. End Sub
  2419.  
  2420. Sub S_1042991D(ByVal NND As Integer)
  2421. ACT_MOD = "1042991"
  2422. CLAMP = 0
  2423.  
  2424. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  2425. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  2426. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  2427. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  2428. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  2429. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  2430. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  2431. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  2432. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  2433. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  2434. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  2435. M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  2436. ODP = INFO_DAT(NND, 0, 5)
  2437. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  2438.  
  2439. SCS = 6
  2440. EN_ASL = 10
  2441. Select Case ver
  2442. Case 1
  2443. AGG = 1
  2444. Case 2
  2445. AGG = 2
  2446. Case Else
  2447. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  2448. End Select
  2449.  
  2450. R01A = T_SLOT(H - 26 - 55 + 2 * SPS, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 2 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
  2451. R01B = T_SLOT(H - 26 - 55 + 2 * SPS - 3 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 4 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
  2452. R01 = R01A & R01B
  2453.  
  2454. R02 = T_SLOT(5, 20 + 35 + 30 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + 30 - 4 * SPS, 23.5, EN_ASL, 0)
  2455. R03 = ""
  2456. If M3 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M3 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + M3 - 4 * SPS, 23.5, EN_ASL, 0)
  2457. If M4 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M4 - 4 * SPS, 20, EN_ASL, 0)
  2458. If M5 > 0 Then R03 = R03 & T_SLOT(H - 6.75, 20 + 35 + M5 - 4 * SPS, 23.5, EN_ASL, 0)
  2459.  
  2460.  
  2461. 'r04 = T_RECT1(6, 6 + 5, 20 + 35 + 15 - 4 * SPS, 20 + 35 + 15 - 4 * SPS + 5)
  2462. R04 = T_RECT2(H - (6 + 2.5), 20 + 35 + 15 - 4 * SPS + 2.5, 6.8, 6.8)
  2463. R05A = T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
  2464. R05B = T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
  2465. R05 = R05A & R05B
  2466.  
  2467. R06A = T_RECT1(-6 - 3, 26 - 2 * SPS, -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(-6 - 3, 26 - 2 * SPS, L + 6, L - 20 - 7.6 + 2 * SPS)
  2468. R06B = T_RECT1(H + 6 + 3, H - (26 - 2 * SPS), -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(H + 6 + 3, H - (26 - 2 * SPS), L + 6, L - 20 - 7.6 + 2 * SPS)
  2469. R06 = R06A & R06B
  2470.  
  2471. R_MS = 0.6
  2472. R07A = T_SMUS(-R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(-R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
  2473. R07B = T_SMUS(H + R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(H + R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
  2474. R07C = T_SMUS(26 - 2 * SPS - R_MS, -R_MS) & T_SMUS(26 - 2 * SPS - R_MS, L + R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, -R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, L + R_MS)
  2475. R07 = R07A & R07B & R07C
  2476.  
  2477. If M9 > 0 Then R08A = T_SLOT(H - M9 - 26 + 2 * SPS, L - 20 - 39 + 2 * SPS, 12, 6.5, 0) Else R08A = ""
  2478. If M7 > 0 Then R08B = T_SLOT(H - M7 - 26 + 2 * SPS, L - 20 - 39 + 2 * SPS, 12, 6.5, 0) Else R08B = ""
  2479. If M8 > 0 Then R08C = T_SLOT(H - M8 - 26 + 2 * SPS, L - 20 - 39 + 2 * SPS, 12, 6.5, 0) Else R08C = ""
  2480. R08 = R08A & R08B & R08C
  2481.  
  2482. R09 = T_DATAMATRIX(ODP, H - 26 - 80 + 2.4 - 43.5, L - 20 - 6 + 2.4 - 18.5, "O")
  2483.  
  2484. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R09 & R08
  2485.  
  2486. P1 = 250
  2487. P2 = H - 400
  2488. MVAL = 500
  2489. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  2490.  
  2491. If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
  2492.  
  2493. Call SAVE_SUB(NND, STRINGA)
  2494.  
  2495. POSINTAB = def_posintab(NND)
  2496. Call CUT_END_S(H, L, "0", POSINTAB)
  2497. Call FVTPT(3, NND, "")
  2498. Call CUT_END_S(H, L, "B", POSINTAB)
  2499. Call FVTPT(3, NND, "B")
  2500. Call CUT_END_S(H, L, "C", POSINTAB)
  2501. Call FVTPT(3, NND, "C")
  2502.  
  2503. End Sub
  2504.  
  2505.  
  2506.  
  2507.  
  2508. Function T_BUGNA(ByVal XC As Double, ByVal YC As Double)
  2509.  
  2510.  
  2511. T_BUGNA = T_SPECIAL(XC, YC, "15Y", "C0.")
  2512.  
  2513.  
  2514. End Function
  2515.  
  2516.  
  2517.  
  2518. Sub S_1037319B(ByVal NND As Integer)
  2519. ACT_MOD = "1037319"
  2520. CLAMP = 0
  2521.  
  2522. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  2523. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  2524. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  2525.  
  2526. R01 = T_BUGNA(100, 7.5) & T_BUGNA(100 + 200, 7.5) & T_BUGNA(H - 100, 7.5)
  2527. R02 = T_BUGNA(100, L - 7.5) & T_BUGNA(100 + 200, L - 7.5) & T_BUGNA(H - 100, L - 7.5)
  2528.  
  2529.  
  2530. fn = R01 & R02
  2531.  
  2532. P1 = 250
  2533. P2 = H - 400
  2534. MVAL = 500
  2535. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  2536.  
  2537. Call SAVE_SUB(NND, STRINGA)
  2538.  
  2539. POSINTAB = def_posintab(NND)
  2540. Call CUT_END_S(H, L, "0", POSINTAB)
  2541. Call FVTPT(3, NND, "")
  2542. Call CUT_END_S(H, L, "B", POSINTAB)
  2543. Call FVTPT(3, NND, "B")
  2544. Call CUT_END_S(H, L, "C", POSINTAB)
  2545. Call FVTPT(3, NND, "C")
  2546.  
  2547. End Sub
  2548.  
  2549.  
  2550.  
  2551. Sub S_1012500(ByVal NND As Integer)
  2552. ACT_MOD = "1012500"
  2553. CLAMP = 0
  2554.  
  2555. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  2556. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  2557. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  2558. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  2559. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  2560. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  2561.  
  2562. SCS = 6
  2563.  
  2564. Select Case ver
  2565. Case 1
  2566. AGG = 1
  2567. Case 2
  2568. AGG = 2
  2569. Case Else
  2570. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  2571. End Select
  2572.  
  2573.  
  2574. R01 = T_SLOT(MR_X(H - 62 - 98, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
  2575. R01 = R01 & T_SLOT(MR_X(H - 62 - 98 - 658.5, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
  2576. R01 = R01 & T_SLOT(MR_X(H - 62 - 98 - 658.5 - 273, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
  2577. R01 = R01 & T_SLOT(MR_X(H - 62 - 98 - 658.5 - 273 - 395, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
  2578. R01 = R01 & T_SLOT(MR_X(H - 62 - 98 - 658.5 - 273 - 395 - 500, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
  2579.  
  2580. R02 = ""
  2581. R03 = ""
  2582. R04 = ""
  2583. For P = 1 To 36
  2584. R02 = R02 & T_SLOT(MR_X(H - 62 - 56 - 19 * (P - 1), H, AGG), 20 + 35 - 11.2 - 3, 16, 3.2, 0)
  2585. R03 = R03 & T_SLOT(MR_X(H - 62 - 56 - 19 * (P - 1), H, AGG), 20 + 35 - 11.2 - 6.3 - 3, 16, 3.2, 0)
  2586. R04 = R04 & T_SLOT(MR_X(H - 62 - 56 - 19 * (P - 1), H, AGG), 20 + 35 - 11.2 - 6.3 - 6.3 - 3, 16, 3.2, 0)
  2587. Next P
  2588.  
  2589. R05 = T_CIRC(MR_X(10, H, AGG), 64, 8.5) & T_SLOT(MR_X(H - 18, H, AGG), 20 + 7 + 11.5 - 3, 24, 9, 0) '8.5
  2590. R06 = T_SLOT(MR_X(27 - 0.5, H, AGG), 20 + 35 + 4 - 1 - 6, 7, 2, 0) & T_SLOT(MR_X(27 - 0.5, H, AGG), 20 + 35 + 34 - 6 + 1, 7, 2, 0)
  2591. R07 = T_SLOT(MR_X(H - 62 + 0.5, H, AGG), 20 + 7 - 1 - 3, 7, 2, 0) & T_SLOT(MR_X(H - 62 + 0.5, H, AGG), 20 + 7 + 1 - 3 + 23, 7, 2, 0)
  2592.  
  2593. R08 = T_RECT1(MR_X(-6, H, AGG), MR_X(27, H, AGG), -6, 20 + 35 + 4 - 6) & T_RECT1(MR_X(-6, H, AGG), MR_X(27, H, AGG), 20 + 35 + 34 - 6, L + 6)
  2594. R09 = T_RECT1(MR_X(H - 62, H, AGG), MR_X(H + 6, H, AGG), -6, 20 + 7 - 3) & T_RECT1(MR_X(H - 62, H, AGG), MR_X(H + 6, H, AGG), 20 + 30 - 3, L + 6)
  2595.  
  2596. R10 = T_SMUS(MR_X(27, H, AGG), 15 - 5.25) & T_SMUS(MR_X(27 + 15 - 5.25, H, AGG), 0) & T_SMUS(MR_X(27 + (15 - 5.25) / 2, H, AGG), (15 - 5.25) / 2) & T_CIRC(MR_X(27 + 1, H, AGG), 1, 8.5)
  2597.  
  2598. R_MS = 1.5
  2599. R11 = T_SMUS(MR_X(-R_MS, H, AGG), 20 + 35 - 6 + 4 - R_MS) & T_SMUS(MR_X(-R_MS, H, AGG), 20 + 35 - 6 + 34 + R_MS) & T_SMUS(MR_X(27 - R_MS, H, AGG), L + R_MS)
  2600. R12 = T_SMUS(MR_X(H - 62 + R_MS, H, AGG), L + R_MS) & T_SMUS(MR_X(H - 62 + R_MS, H, AGG), -R_MS) & T_SMUS(MR_X(H + R_MS, H, AGG), 20 + 7 - 3 - R_MS) & T_SMUS(MR_X(H + R_MS, H, AGG), 20 + 30 - 3 + R_MS)
  2601.  
  2602.  
  2603. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12
  2604.  
  2605. P1 = 250
  2606. P2 = H - 400
  2607. MVAL = 500
  2608. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  2609.  
  2610. 'If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
  2611.  
  2612. Call SAVE_SUB(NND, STRINGA)
  2613.  
  2614. POSINTAB = def_posintab(NND)
  2615. Call CUT_END_S(H, L, "0", POSINTAB)
  2616. Call FVTPT(3, NND, "")
  2617. Call CUT_END_S(H, L, "B", POSINTAB)
  2618. Call FVTPT(3, NND, "B")
  2619. Call CUT_END_S(H, L, "C", POSINTAB)
  2620. Call FVTPT(3, NND, "C")
  2621.  
  2622. End Sub
  2623.  
  2624.  
  2625. Sub S_1012499(ByVal NND As Integer)
  2626. ACT_MOD = "1012499"
  2627. CLAMP = 0
  2628.  
  2629. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  2630. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  2631. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  2632. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  2633. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  2634. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  2635. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  2636. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  2637. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  2638. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  2639.  
  2640.  
  2641. Select Case ver
  2642. Case 1
  2643. AGG = 1
  2644. Case 2
  2645. AGG = 2
  2646. Case Else
  2647. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  2648. End Select
  2649.  
  2650.  
  2651.  
  2652.  
  2653. R01 = T_SLOT(MR_X(H - 35 - 98, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
  2654. R01 = R01 & T_SLOT(MR_X(H - 35 - 98 - 658.5, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
  2655. R01 = R01 & T_SLOT(MR_X(H - 35 - 98 - 658.5 - 273, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
  2656. R01 = R01 & T_SLOT(MR_X(H - 35 - 98 - 658.5 - 273 - 395, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
  2657. R01 = R01 & T_SLOT(MR_X(H - 35 - 98 - 658.5 - 273 - 395 - 500, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
  2658.  
  2659. R02 = ""
  2660. R03 = ""
  2661. R04 = ""
  2662. For P = 1 To 37
  2663. R02 = R02 & T_SLOT(MR_X(H - 35 - 56 - 19 * (P - 1), H, AGG), 20 + 35 - 11.2 - 3, 16, 3.2, 0)
  2664. R03 = R03 & T_SLOT(MR_X(H - 35 - 56 - 19 * (P - 1), H, AGG), 20 + 35 - 11.2 - 6.3 - 3, 16, 3.2, 0)
  2665. R04 = R04 & T_SLOT(MR_X(H - 35 - 56 - 19 * (P - 1), H, AGG), 20 + 35 - 11.2 - 6.3 - 6.3 - 3, 16, 3.2, 0)
  2666. Next P
  2667.  
  2668. R05A = T_SLOT(MR_X(6.25, H, AGG), L - 20 - 32 + 3, 21.5, 9, 0)
  2669. If M4 > 0 Then R05B = T_SLOT(MR_X(6.25, H, AGG), L - 20 - M4 + 3, 21.5, 9, 0) Else R05B = ""
  2670. If M3 > 0 Then R05C = T_SLOT(MR_X(6.25, H, AGG), L - 20 - 32 - M3 + 3, 21.5, 9, 0) Else R05C = ""
  2671. R05 = R05A & R05B & R05C
  2672.  
  2673. R06A = T_SLOT(MR_X(H - 3.9, H, AGG), L - 20 - 48 + 3, 16.8, 9, 0)
  2674. If M6 > 0 Then R06B = T_SLOT(MR_X(H - 3.9, H, AGG), L - 20 - M6 + 3, 16.8, 9, 0) Else R06B = ""
  2675. If M5 > 0 Then R06C = T_SLOT(MR_X(H - 3.9, H, AGG), L - 20 - 48 - M5 + 3, 16.8, 9, 0) Else R06C = ""
  2676. R06 = R06A & R06B & R06C
  2677.  
  2678. R07 = T_SLOT(MR_X(22 - 1.5, H, AGG), L - 20 - 18 + 3 + 1, 7, 2, 0) & T_SLOT(MR_X(22 - 1.5, H, AGG), 20 + 35 + 24 - 6 - 1, 7, 2, 0)
  2679.  
  2680. R08 = T_RECT1(MR_X(-6, H, AGG), MR_X(22, H, AGG), L - 20 - 18 + 3, L + 6) & T_RECT1(MR_X(-0.6, H, AGG), MR_X(22, H, AGG), -6, 20 + 35 + 24 - 6)
  2681. R09 = T_RECT1(MR_X(H - 35, H, AGG), MR_X(H + 6, H, AGG), L - 20 - 30 + 3, L + 6) & T_RECT1(MR_X(H - 35, H, AGG), MR_X(H + 6, H, AGG), -6, 20 + 35 + 25 - 6)
  2682.  
  2683.  
  2684.  
  2685. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09
  2686.  
  2687. P1 = 250
  2688. P2 = H - 400
  2689. MVAL = 500
  2690. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  2691.  
  2692. 'If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
  2693.  
  2694. Call SAVE_SUB(NND, STRINGA)
  2695.  
  2696. POSINTAB = def_posintab(NND)
  2697. Call CUT_END_S(H, L, "0", POSINTAB)
  2698. Call FVTPT(3, NND, "")
  2699. Call CUT_END_S(H, L, "B", POSINTAB)
  2700. Call FVTPT(3, NND, "B")
  2701. Call CUT_END_S(H, L, "C", POSINTAB)
  2702. Call FVTPT(3, NND, "C")
  2703.  
  2704. End Sub
  2705.  
  2706.  
  2707.  
  2708. Sub S_1011067(ByVal NND As Integer)
  2709. ACT_MOD = "1011067"
  2710. CLAMP = 0
  2711.  
  2712. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  2713. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  2714. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  2715. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  2716. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  2717. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  2718. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  2719. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  2720. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  2721. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  2722. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  2723. M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  2724. M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
  2725. NA = INPUT_NUM(NND, "NA", NA, ACT_MOD)
  2726. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  2727.  
  2728.  
  2729. Select Case ver
  2730. Case 1
  2731. AGG = 1
  2732. Case 2
  2733. AGG = 1 '2
  2734. Case Else
  2735. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  2736. End Select
  2737.  
  2738.  
  2739.  
  2740. R01 = T_SLOT(MR_X(H - 22 - 95, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
  2741. R01 = R01 & T_SLOT(MR_X(H - 22 - 95 - 658.5, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
  2742. R01 = R01 & T_SLOT(MR_X(H - 22 - M7, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
  2743. R01 = R01 & T_SLOT(MR_X(H - 22 - M8, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
  2744. R01 = R01 & T_SLOT(MR_X(M9 + 22, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
  2745.  
  2746. R02 = ""
  2747. R03 = ""
  2748. R04 = ""
  2749. For P = 1 To (NA + 1)
  2750. R02 = R02 & T_SLOT(MR_X(H - 22 - 56 - 19 * (P - 1), H, AGG), 20 + 35 - 11.2 - 3, 16, 3.2, 0)
  2751. R03 = R03 & T_SLOT(MR_X(H - 22 - 56 - 19 * (P - 1), H, AGG), 20 + 35 - 11.2 - 6.3 - 3, 16, 3.2, 0)
  2752. R04 = R04 & T_SLOT(MR_X(H - 22 - 56 - 19 * (P - 1), H, AGG), 20 + 35 - 11.2 - 6.3 - 6.3 - 3, 16, 3.2, 0)
  2753. Next P
  2754.  
  2755. R05A = T_SLOT(MR_X(6.25, H, AGG), L - (20 + 32 - 3), 21.5, 9, 0)
  2756. If M4 > 0 Then R05B = T_SLOT(MR_X(6.25, H, AGG), L - (20 + M4 - 3), 21.5, 9, 0) Else R05B = ""
  2757. If M3 > 0 Then R05C = T_SLOT(MR_X(6.25, H, AGG), L - (20 + M3 - 3), 21.5, 9, 0) Else R05C = ""
  2758. R05 = R05A & R05B & R05C
  2759.  
  2760. If M10 > 0 Then R06 = T_RECT1(MR_X(-2.5, H, AGG), MR_X(M10, H, AGG), L - 20 - 110 - 30, L - 20 - 110)
  2761.  
  2762. R07A = T_SLOT(MR_X(H - 6.25, H, AGG), L - 20 - 48 + 3, 21.5, 9, 0)
  2763. If M5 > 0 Then R07B = T_SLOT(MR_X(H - 6.25, H, AGG), L - 20 - M5 + 3, 21.5, 9, 0) Else R07B = ""
  2764. If M6 > 0 Then R07C = T_SLOT(MR_X(H - 6.25, H, AGG), L - 20 - M6 + 3, 21.5, 9, 0) Else R07C = ""
  2765. R07 = R07A & R07B & R07C
  2766.  
  2767. R08 = T_RECT1(MR_X(-6, H, AGG), MR_X(22, H, AGG), -6, 20) & T_RECT1(MR_X(-0.6, H, AGG), MR_X(22, H, AGG), L - 18 - 20 + 3, L + 6) & T_RECT1(MR_X(H - 22, H, AGG), MR_X(H + 0.6, H, AGG), -6, 20 + 35 + 10 - 6) & T_RECT1(MR_X(H - 22, H, AGG), MR_X(H + 0.6, H, AGG), L - 20 - 30 + 3, L + 6)
  2768.  
  2769.  
  2770.  
  2771. R09 = T_SLOT(MR_X(22 - 1.5, H, AGG), 20 - 1, 7, 2, 0) & T_SLOT(MR_X(22 - 1.5, H, AGG), L - 20 - 18 + 3 + 1, 7, 2, 0) & T_SLOT(MR_X(H - (22 - 1.5), H, AGG), L - 20 - 30 + 3 + 1, 7, 2, 0) & T_SLOT(MR_X(H - (22 - 1.5), H, AGG), 20 + 35 + 10 - 1 - 6, 7, 2, 0)
  2772.  
  2773. SMS = 1.5
  2774. R10A = T_SMUS(MR_X(-SMS, H, AGG), 20 - SMS) & T_SMUS(MR_X(-SMS, H, AGG), L - 20 - 18 + 3 + SMS)
  2775. R10B = T_SMUS(MR_X(H + SMS, H, AGG), L - 20 - 30 + 3 + SMS) & T_SMUS(MR_X(H + SMS, H, AGG), 20 + 35 + 10 - 6 - SMS)
  2776. R10 = R10A & R10B
  2777.  
  2778. R11 = T_SLOT(MR_X(10, H, AGG), 32, 14, 9, 0) & T_SMUS(MR_X(-SMS, H, AGG), 76 - SMS) & T_RECT1(MR_X(-6, H, AGG), MR_X(17, H, AGG), 42, 76) & T_SMUS(MR_X(18.45, H, AGG), 50.5) & T_SMUS(MR_X(18.45 - 3, H, AGG), 50.5 + 3) & T_SMUS(MR_X(18.45 - 3, H, AGG), 50.5 - 3)
  2779. 'MODIFICA REV. E
  2780.  
  2781. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11
  2782.  
  2783. P1 = 250
  2784. P2 = H - 400
  2785. MVAL = 500
  2786. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  2787.  
  2788. If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
  2789.  
  2790. Call SAVE_SUB(NND, STRINGA)
  2791.  
  2792. POSINTAB = def_posintab(NND)
  2793. Call CUT_END_S(H, L, "0", POSINTAB)
  2794. Call FVTPT(3, NND, "")
  2795. Call CUT_END_S(H, L, "B", POSINTAB)
  2796. Call FVTPT(3, NND, "B")
  2797. Call CUT_END_S(H, L, "C", POSINTAB)
  2798. Call FVTPT(3, NND, "C")
  2799.  
  2800. End Sub
  2801.  
  2802.  
  2803. Sub S_1011908(ByVal NND As Integer)
  2804. ACT_MOD = "1011908"
  2805. CLAMP = 0
  2806.  
  2807. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  2808. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  2809. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  2810. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  2811. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  2812. M4 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  2813. M3 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  2814. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  2815. M8 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  2816. M9 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  2817. M6 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  2818. M7 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  2819. M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
  2820. M12 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
  2821. M11 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
  2822. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  2823.  
  2824. BKF1 = M11 - 25
  2825. BKF2 = M12 - 25
  2826.  
  2827. If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU" & ACT_MOD)
  2828.  
  2829. R01 = T_SLOT(100, 22, 14, 9, 0) & T_SLOT(220, 22, 14, 9, 0) & T_SLOT(H - 100, 22, 14, 9, 0) & T_SLOT(H - 220, 22, 14, 9, 0) & T_SLOT(H / 2 - M5 / 2, 22, 14, 9, 0) & T_SLOT(H / 2 + M5 / 2, 22, 14, 9, 0)
  2830. R02 = T_SLOT(13, L - 10 - 58 - 21 + 6, 14, 9, 0) & T_SLOT(H - 13, L - 10 - 58 - 21 + 6, 14, 9, 0)
  2831.  
  2832. If BKF2 > 50 Then R03A = T_HEX(32, L - 10 - 55 + 15, 9.1) Else R03A = ""
  2833. If M8 > 0 Then R03B = T_HEX(32 + M8, L - 10 - 55 + 15, 9.1) Else R03B = ""
  2834. If M9 > 0 Then R03C = T_HEX(M9, L - 10 - 55 + 15, 9.1) Else R03C = ""
  2835. If M12 > 0 Then R03D = T_SLOT(M12, L - 10 - 55 + 22, 14, 9, 0) Else R03D = ""
  2836. R03 = R03A & R03B & R03C & R03D
  2837.  
  2838. If BKF1 > 50 Then R04A = T_HEX(H - 32, L - 10 - 55 + 15, 9.1) Else R04A = ""
  2839. If M6 > 0 Then R04B = T_HEX(H - 32 - M6, L - 10 - 55 + 15, 9.1) Else R04B = ""
  2840. If M7 > 0 Then R04C = T_HEX(H - M7, L - 10 - 55 + 15, 9.1) Else R04C = ""
  2841. If M11 > 0 Then R04D = T_SLOT(H - M11, L - 10 - 55 + 22, 14, 9, 0) Else R04D = ""
  2842. R04 = R04A & R04B & R04C & R04D
  2843.  
  2844. R05 = T_SLOT(M4 - 1, L - 27.5, 11, 2, 90) & T_SLOT(M4 + M2 + 1, L - 27.5, 11, 2, 90)
  2845. 'ALTEZZA SCANTONATURA 23 mm
  2846. 'DA FARE IL BLOCCO
  2847.  
  2848. fn = R01 & R02 & R03 & R04 & R05
  2849.  
  2850. P1 = 250
  2851. P2 = H - 400
  2852. MVAL = 500
  2853. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  2854.  
  2855. Call SAVE_SUB(NND, STRINGA)
  2856.  
  2857. POSINTAB = def_posintab(NND)
  2858.  
  2859.  
  2860.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  2861.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  2862.     STR_OUT(2) = TL_CLN
  2863.     STR_OUT(3) = "TOOLANGLE(0)"
  2864.     STR_OUT(4) = "MIDCUT(N)"
  2865.     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(-6) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M4) & "," & Jcdf(L - 23 + 50) & ",0,0,0,M0))"
  2866.     STR_OUT(6) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H - M3) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H + 6) & "," & Jcdf(L - 23 + 50) & ",0,0,0,M0))"
  2867.     STR_OUT(7) = TL_CUT_O
  2868.     STR_OUT(8) = "TOOLANGLE(0)"
  2869.     STR_OUT(9) = "MIDCUT(N)"
  2870.     STR_OUT(10) = UnloadOutline(110, 6, SCN_X, -6, H, L)
  2871.     STR_OUT(11) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & "," & Jcdf(0) & "," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
  2872.     STR_OUT(12) = "'FINE BLOCCO"
  2873.  
  2874. Call FVTPT(3, NND, "")
  2875.  
  2876.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  2877.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  2878.     STR_OUT(2) = TL_CLN
  2879.     STR_OUT(3) = "TOOLANGLE(0)"
  2880.     STR_OUT(4) = "MIDCUT(N)"
  2881.     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(-6) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M4) & "," & Jcdf(L - 23 + 50) & ",0,0,0,M0))"
  2882.     STR_OUT(6) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H - M3) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H + 6) & "," & Jcdf(L - 23 + 50) & ",0,0,0,M0))"
  2883.     STR_OUT(7) = TL_CUT_V
  2884.     STR_OUT(8) = "TOOLANGLE(90)"
  2885.     STR_OUT(9) = "MIDCUT(N)"
  2886.     STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & 0 & "," & Jcdf(L) & "," & 0 & "," & Jcdf(0) & ",-6,-6,0,M0))"
  2887.     STR_OUT(11) = TL_CUT_O
  2888.     STR_OUT(12) = "TOOLANGLE(0)"
  2889.     STR_OUT(13) = "MIDCUT(N)"
  2890.     STR_OUT(14) = UnloadOutline(110, 6, SCN_X, -6, H, L)
  2891.     STR_OUT(15) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & "," & Jcdf(0) & "," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
  2892.     STR_OUT(16) = "'FINE BLOCCO"
  2893.    
  2894. Call FVTPT(3, NND, "C")
  2895.  
  2896.  
  2897. End Sub
  2898.  
  2899.  
  2900.  
  2901. Sub S_1011060(ByVal NND As Integer)
  2902. ACT_MOD = "1011060"
  2903. CLAMP = 0
  2904.  
  2905. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  2906. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  2907. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  2908. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  2909. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  2910. M4 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  2911. M3 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  2912. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  2913. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  2914. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  2915. M10 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  2916. M11 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  2917. M8 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
  2918. M9 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
  2919. M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
  2920. M14 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
  2921. M13 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
  2922. M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
  2923. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  2924.  
  2925.  
  2926.  
  2927.  
  2928. HKK = M1 - 48
  2929.  
  2930. If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU" & ACT_MOD)
  2931.  
  2932.  
  2933. R01 = T_CIRC(100, 14, 14) & T_CIRC(H - 100, 14, 14) & T_CIRC(H / 2 - M5 / 2, 14, 14) & T_CIRC(H / 2 + M5 / 2, 14, 14)
  2934. R02 = T_SLOT(380.25, 5.5, 17.5, 6.5, 90) & T_SLOT(H - 380.25, 5.5, 17.5, 6.5, 90) & T_SLOT(380.25 + M6, 5.5, 17.5, 6.5, 90) & T_SLOT(H - 380.25 - M7, 5.5, 17.5, 6.5, 90)
  2935. If HKK = 139 Then R03 = T_CIRC(13, 14 + M15, 14) & T_CIRC(H - 13, 14 + M15, 14) Else R03 = ""
  2936.  
  2937. R04A = T_HEX(32, L - 10 - 58 + 3 + 15, 9.1)
  2938. If M11 > 0 Then R04B = T_HEX(M11, L - 10 - 58 + 3 + 15, 9.1) Else R04B = ""
  2939. If M10 > 0 Then R04C = T_HEX(M10, L - 10 - 58 + 3 + 15, 9.1) Else R04C = ""
  2940. R04D = T_SLOT(M14, L - 10 - 58 + 3 + 20, 14, 9, 0)
  2941. R04 = R04A & R04B & R04C & R04D
  2942.  
  2943. R05A = T_HEX(H - 32, L - 10 - 58 + 3 + 15, 9.1)
  2944. If M9 > 0 Then R05B = T_HEX(H - M9, L - 10 - 58 + 3 + 15, 9.1) Else R05B = ""
  2945. If M8 > 0 Then R05C = T_HEX(H - M8, L - 10 - 58 + 3 + 15, 9.1) Else R05C = ""
  2946. R05D = T_SLOT(H - M13, L - 10 - 58 + 3 + 20, 14, 9, 0)
  2947. R05 = R05A & R05B & R05C & R05D
  2948.  
  2949. R06 = T_SLOT(M4 - 1, L - 27.5, 11, 2, 90) & T_SLOT(M4 + M2 + 1, L - 27.5, 11, 2, 90)
  2950. 'ALTEZZA SCANTONATURA 23 mm
  2951. 'DA FARE IL BLOCCO
  2952.  
  2953.  
  2954. fn = R01 & R02 & R03 & R04 & R05 & R06
  2955.  
  2956. P1 = 250
  2957. P2 = H - 400
  2958. MVAL = 500
  2959. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  2960.  
  2961. Call SAVE_SUB(NND, STRINGA)
  2962.  
  2963. POSINTAB = def_posintab(NND)
  2964.  
  2965.  
  2966.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  2967.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  2968.     STR_OUT(2) = TL_CLN
  2969.     STR_OUT(3) = "TOOLANGLE(0)"
  2970.     STR_OUT(4) = "MIDCUT(N)"
  2971.     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(-6) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M4) & "," & Jcdf(L - 23 + 50) & ",0,0,0,M0))"
  2972.     STR_OUT(6) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H - M3) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H + 6) & "," & Jcdf(L - 23 + 50) & ",0,0,0,M0))"
  2973.     STR_OUT(7) = TL_CUT_O
  2974.     STR_OUT(8) = "TOOLANGLE(0)"
  2975.     STR_OUT(9) = "MIDCUT(N)"
  2976.     STR_OUT(10) = UnloadOutline(110, 6, SCN_X, -6, H, L)
  2977.     STR_OUT(11) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & "," & Jcdf(0) & "," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
  2978.     STR_OUT(12) = "'FINE BLOCCO"
  2979.    
  2980. Call FVTPT(3, NND, "")
  2981.  
  2982.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  2983.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  2984.     STR_OUT(2) = TL_CLN
  2985.     STR_OUT(3) = "TOOLANGLE(0)"
  2986.     STR_OUT(4) = "MIDCUT(N)"
  2987.     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(-6) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M4) & "," & Jcdf(L - 23 + 50) & ",0,0,0,M0))"
  2988.     STR_OUT(6) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H - M3) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H + 6) & "," & Jcdf(L - 23 + 50) & ",0,0,0,M0))"
  2989.     STR_OUT(7) = TL_CUT_V
  2990.     STR_OUT(8) = "TOOLANGLE(90)"
  2991.     STR_OUT(9) = "MIDCUT(N)"
  2992.     STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & 0 & "," & Jcdf(L) & "," & 0 & "," & Jcdf(0) & ",-6,-6,0,M0))"
  2993.     STR_OUT(11) = TL_CUT_O
  2994.     STR_OUT(12) = "TOOLANGLE(0)"
  2995.     STR_OUT(13) = "MIDCUT(N)"
  2996.     STR_OUT(14) = UnloadOutline(110, 6, SCN_X, -6, H, L)
  2997.     STR_OUT(15) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & "," & Jcdf(0) & "," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
  2998.     STR_OUT(16) = "'FINE BLOCCO"
  2999.    
  3000. Call FVTPT(3, NND, "C")
  3001.  
  3002.  
  3003.  
  3004. End Sub
  3005.  
  3006.  
  3007.  
  3008.  
  3009.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!