API tools faq
paste
Advertisement
Dece111

Paramenti

Dece111
Feb 28th, 2024
120
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 17.59 KB | None | 0 0
raw download clone embed print report diff
  1. 'Paramenti
  2.  
  3. Sub S_1007305(ByVal NND As Integer)
  4. ACT_MOD = "1007305"
  5.  
  6.  
  7.  
  8. L = INPUT_NUM(NND, "L", 0, ACT_MOD)
  9. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  10. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  11. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  12.  
  13. '************************************* SCRITTURA LISTATO
  14.  
  15. R01A = T_CIRC((H - M2) / 2, L - 142, 8.5) & T_CIRC((H - M2) / 2, L - 42, 8.5)
  16. R01B = T_CIRC(H / 2 + M2 / 2, L - 42, 8.5) & T_CIRC(H / 2 + M2 / 2, L - 142, 8.5)
  17. R01 = R01A & R01B
  18.  
  19. R02 = T_RECT1(H - 96, H + 4, L - 13.5, L + 6) & T_RECT1(-4, 96, L - 13.5, L + 6)
  20.  
  21. 'R03A = TG_R(20, 7, 3, 3, 7, 8, 8)
  22. 'R03B = TG_R(20, 4, L - 20.5, 7, L - 16.5, 8, 8)
  23. 'R03C = TG_R(20, 100, L - 7, 103, L - 3, 8, 8)
  24. 'R03D = TG_R(20, H - 103, L - 4, H - 99, L - 8, 8, 8)
  25. 'R03E = TG_R(20, H - 7, L - 16.5, H - 3, L - 20.5, 8, 8)
  26. 'R03F = TG_R(20, H - 3, 7, H - 7, 3, 8, 8)
  27. 'R03 = R03A & R03B & R03C & R03D & R03E & R03F
  28.  
  29. SCST = 0.2 'AGGIUNTA STANDARD
  30. R03A = T_SMUS(-SCST, -SCST) & T_SMUS(H + SCST, -SCST)
  31. R03B = T_SMUS(H + SCST, L - 13.5) & T_SMUS(-SCST, L - 13.5)
  32. R03C = T_SMUS(96 - SCST, L + SCST) & T_SMUS(H - 96 + SCST, L + SCST)
  33. R03 = R03A & R03B & R03C
  34.  
  35. fn = R01 & R02 & R03
  36. P1 = H / 2 - 180
  37. P2 = H / 2 + 180
  38. MVAL = 500
  39.  
  40. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & R01 & R02 & R03
  41.  
  42. Call SAVE_SUB(NND, STRINGA)
  43. POSINTAB = def_posintab(NND)
  44. Call CUT_END_S(H, L, "0", POSINTAB)
  45. Call FVTPT(3, NND, "")
  46. Call CUT_END_S(H, L, "C", POSINTAB)
  47. Call FVTPT(3, NND, "C")
  48.  
  49. End Sub
  50.  
  51. Sub S_1007303(ByVal NND As Integer)
  52. ACT_MOD = "1007303"
  53.  
  54.  
  55.  
  56.  
  57. L = INPUT_NUM(NND, "L", 0, ACT_MOD)
  58. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  59. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  60. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  61.  
  62. '************************************* SCRITTURA LISTATO
  63.  
  64. R01A = T_CIRC((H - M2) / 2, L / 2 - 90, 8.5) & T_CIRC((H - M2) / 2, L / 2 + 90, 8.5)
  65. R01B = T_CIRC(H / 2 + M2 / 2, L / 2 - 90, 8.5) & T_CIRC(H / 2 + M2 / 2, L / 2 + 90, 8.5)
  66. R01 = R01A & R01B
  67.  
  68. R02A = T_RECT1(-3, 96, -3, 15) & T_RECT1(-3, 96, L - 15, L + 3)
  69. R02B = T_RECT1(H - 96, H + 3, L - 15, L + 3) & T_RECT1(H - 96, H + 3, -3, 15)
  70. R02 = R02A & R02B
  71.  
  72.  
  73. 'R03A = TG_R(20, 103, 3, 99, 7, 20, 20)
  74. 'R03B = TG_R(20, 7, 16.5, 3, 20.5, 20, 20)
  75. 'R03C = TG_R(20, 3, L - 23, 10, L - 15, 20, 20)
  76. 'R03D = TG_R(20, 99, L - 7, 103, L - 3, 20, 20)
  77. 'R03E = TG_R(20, H - 88, L - 10, H - 84, L - 7, 20, 20)
  78. 'R03F = TG_R(20, H - 7, L - 15, H - 4, L - 23, 20, 20)
  79. 'R03G = TG_R(20, H - 3, 20.5, H - 8, 16.5, 20, 20)
  80. 'R03H = TG_R(20, H - 99, 7, H - 103, 3, 20, 20)
  81. 'R03 = R03A & R03B & R03C & R03D & R03E & R03F & R03G & R03H
  82.  
  83. SCST = 0.2 'AGGIUNTA STANDARD
  84. R03A = T_SMUS(96 - SCST, -SCST) & T_SMUS(-SCST, 15 - SCST)
  85. R03B = T_SMUS(H - 96 + SCST, -SCST) & T_SMUS(H + SCST, 15 - SCST)
  86. R03C = T_SMUS(96 - SCST, L + SCST) & T_SMUS(-SCST, L + SCST)
  87. R03D = T_SMUS(H - 96 + SCST, L + SCST) & T_SMUS(H + SCST, L + SCST)
  88. R03 = R03A & R03B & R03C & R03D
  89.  
  90.  
  91. fn = R01 & R02 & R03
  92. P1 = H / 2 - 180
  93. P2 = H / 2 + 180
  94. MVAL = 500
  95.  
  96. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & R01 & R02 & R03
  97.  
  98. Call SAVE_SUB(NND, STRINGA)
  99. POSINTAB = def_posintab(NND)
  100. Call CUT_END_S(H, L, "0", POSINTAB)
  101. Call FVTPT(3, NND, "")
  102. Call CUT_END_S(H, L, "C", POSINTAB)
  103. Call FVTPT(3, NND, "C")
  104.  
  105. End Sub
  106.  
  107.  
  108. Sub S_1007236(ByVal NND As Integer)
  109. ACT_MOD = "1007236"
  110.  
  111.  
  112.  
  113. L = INPUT_NUM(NND, "L", 0, ACT_MOD)
  114. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  115. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  116. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  117. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  118. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  119. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  120.  
  121. '************************************* SCRITTURA LISTATO
  122.  
  123. R01 = T_RECT1(-4, 96, -5, 15) & T_RECT1(M1 - 96, M1 + 4, -5, 15)
  124.  
  125. R02A = T_CIRC(M1 / 2 - M4 / 2, L - 48, 8.5) & T_CIRC(M1 / 2 - M2 / 2, L - 48, 8.5) & T_CIRC(M1 / 2 - M2 / 2, L - 48 - 170, 8.5)
  126. R02B = T_CIRC(M1 / 2 - M3 / 2, L - 48, 8.5) & T_CIRC(M1 / 2, L - 48, 8.5) & T_CIRC(M1 / 2 + 20, L - 48, 8.5)
  127. R02C = T_CIRC(M1 / 2 + M3 / 2, L - 48, 8.5) & T_CIRC(M1 / 2 + M2 / 2, L - 48, 8.5)
  128. R02D = T_CIRC(M1 / 2 + M4 / 2, L - 48, 8.5) & T_CIRC(M1 / 2 + M2 / 2, L - 48 - 170, 8.5)
  129. R02 = R02A & R02B & R02C & R02D
  130.  
  131. 'R03A = TG_R(20, 96 + 5, 0, 96, 6, 8, 8) & TG_R(20, 5, 15, 0, 20, 8, 8)
  132. 'R03B = TG_R(20, 0, L - 5, 5, L, 8, 8) & TG_R(20, M1 - 5, L, M1, L - 5, 8, 8)
  133. 'R03C = TG_R(20, M1, 20, M1 - 5, 15, 8, 8) & TG_R(20, M1 - 96, 5, M1 - 96 - 5, 0, 8, 8)
  134. 'R03 = R03A & R03B & R03C
  135. '
  136. SCST = 0.2 'AGGIUNTA STANDARD
  137. R03A = T_SMUS(-SCST, L + SCST)
  138. R03B = T_SMUS(H + SCST, L + SCST)
  139. R03D = T_SMUS(-SCST, 15) & T_SMUS(H - SCST, 15)
  140. R03E = T_SMUS(96, -SCST) & T_SMUS(H - 96, -SCST)
  141. R03 = R03A & R03B & R03D & R03E
  142.  
  143. fn = R01 & R02 & R03
  144. P1 = 200
  145. P2 = H - 250
  146. MVAL = 500
  147.  
  148.  
  149. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & R01 & R02 & R03
  150.  
  151. Call SAVE_SUB(NND, STRINGA)
  152.  
  153. POSINTAB = def_posintab(NND)
  154. Call CUT_END_S(H, L, "0", POSINTAB)
  155. Call FVTPT(3, NND, "")
  156. Call CUT_END_S(H, L, "C", POSINTAB)
  157. Call FVTPT(3, NND, "C")
  158.  
  159. End Sub
  160.  
  161.  
  162. Sub S_1023836A(ByVal NND As Integer)
  163. ACT_MOD = "1023836"
  164.  
  165.  
  166.  
  167. L = INPUT_NUM(NND, "L", 0, ACT_MOD)
  168. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  169. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  170. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  171. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  172. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  173.  
  174. '************************************* SCRITTURA LISTATO
  175. 'tt_pch = "GANCIO" '"23G0S"
  176. 'R01A = T_SPECIAL(M2 - 10, H - 55 + 6, tt_pch, "C0.") & T_SPECIAL(M2 + M3 - 10, H - 55 + 6, tt_pch, "C0.")
  177. 'R01B = T_SPECIAL(M2 + 2 * M3 - 10, H - 55 + 6, tt_pch, "C0.") & T_SPECIAL(M2 + 3 * M3 - 10, H - 55 + 6, tt_pch, "C0.")
  178. 'R01 = R01A & R01B
  179.  
  180. R02 = T_CIRC(M2 + 3 * M3 - 35, H - 53, 8.5)
  181.  
  182.  
  183. SCST = 0.2
  184. R03A = T_SMUS(-SCST, -SCST)
  185. R03B = T_SMUS(L + SCST, H + SCST)
  186. R03C = T_SMUS(L + SCST, -SCST)
  187. R03D = T_SMUS(-SCST, H + SCST)
  188. R03 = R03A & R03B & R03C & R03D
  189.  
  190. fn = R02 & R03
  191. P1 = 200
  192. P2 = L - 250
  193. MVAL = 500
  194.  
  195. STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & R01 & R02 & R03
  196.  
  197. Call SAVE_SUB(NND, STRINGA)
  198.  
  199. If L > H Then
  200. H1 = H
  201. L1 = L
  202. L = H1
  203. H = L1
  204. End If
  205.  
  206.     POSINTAB = def_posintab(NND)
  207.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  208.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  209.     STR_OUT(2) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
  210.    
  211.     STR_OUT(3) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  212.     STR_OUT(4) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  213.     STR_OUT(5) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  214.     STR_OUT(6) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  215.    
  216.     STR_OUT(7) = TL_CUT_O
  217.     STR_OUT(8) = "TOOLANGLE(0)"
  218.     STR_OUT(9) = "MIDCUT(N)"
  219.     STR_OUT(10) = UnloadOutline(110, 6, 0, -6, H, L)
  220.     STR_OUT(11) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
  221.     STR_OUT(12) = "'FINE BLOCCO"
  222.     Call FVTPT(3, NND, "")
  223.    
  224.    
  225.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  226.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  227.     STR_OUT(2) = TL_CUT_V
  228.     STR_OUT(3) = "TOOLANGLE(90)"
  229.     STR_OUT(4) = "MIDCUT(N)"
  230.     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & "0" & ",-6,-6,0,M0))"
  231.     STR_OUT(6) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
  232.    
  233.     STR_OUT(7) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  234.     STR_OUT(8) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  235.     STR_OUT(9) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  236.     STR_OUT(10) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  237.    
  238.     STR_OUT(11) = TL_CUT_O
  239.     STR_OUT(12) = "TOOLANGLE(0)"
  240.     STR_OUT(13) = "MIDCUT(N)"
  241.     STR_OUT(14) = UnloadOutline(110, 6, 0, -6, H, L)
  242.     STR_OUT(15) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & ",-6," & Jcdf(0) & ",-6,-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
  243.     STR_OUT(16) = "'FINE BLOCCO"
  244.     Call FVTPT(3, NND, "C")
  245.  
  246.  
  247. End Sub
  248.  
  249. Sub S_1023836B(ByVal NND As Integer)
  250. ACT_MOD = "1023836"
  251.  
  252.  
  253.  
  254. L = INPUT_NUM(NND, "L", 0, ACT_MOD)
  255. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  256. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  257. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  258. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  259. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  260.  
  261. '************************************* SCRITTURA LISTATO
  262. 'tt_pch = "GANCIO" '"23G0S"
  263. 'R01A = T_SPECIAL(M2 - 10, H - 55 + 6, tt_pch, "C0.") & T_SPECIAL(M2 + M3 - 10, H - 55 + 6, tt_pch, "C0.")
  264. 'R01B = T_SPECIAL(M2 + 2 * M3 - 10, H - 55 + 6, tt_pch, "C0.") & T_SPECIAL(M2 + 3 * M3 - 10, H - 55 + 6, tt_pch, "C0.")
  265. 'R01 = R01A & R01B
  266.  
  267. R02 = T_CIRC(M2 + 3 * M3 - 35, H - 53, 8.5) & T_CIRC(M2 + 35, H - 53, 8.5)
  268.  
  269.  
  270. SCST = 0.2
  271. R03A = T_SMUS(-SCST, -SCST)
  272. R03B = T_SMUS(L + SCST, H + SCST)
  273. R03C = T_SMUS(L + SCST, -SCST)
  274. R03D = T_SMUS(-SCST, H + SCST)
  275. R03 = R03A & R03B & R03C & R03D
  276.  
  277. fn = R02 & R03
  278. P1 = 200
  279. P2 = L - 250
  280. MVAL = 500
  281.  
  282. STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & R01 & R02 & R03
  283.  
  284. Call SAVE_SUB(NND, STRINGA)
  285.  
  286. If L > H Then
  287. H1 = H
  288. L1 = L
  289. L = H1
  290. H = L1
  291. End If
  292.  
  293.     POSINTAB = def_posintab(NND)
  294.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  295.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  296.     STR_OUT(2) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
  297.    
  298.     STR_OUT(3) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  299.     STR_OUT(4) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  300.     STR_OUT(5) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  301.     STR_OUT(6) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  302.    
  303.     STR_OUT(7) = TL_CUT_O
  304.     STR_OUT(8) = "TOOLANGLE(0)"
  305.     STR_OUT(9) = "MIDCUT(N)"
  306.     STR_OUT(10) = UnloadOutline(110, 6, 0, -6, H, L)
  307.     STR_OUT(11) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
  308.     STR_OUT(12) = "'FINE BLOCCO"
  309.     Call FVTPT(3, NND, "")
  310.    
  311.    
  312.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  313.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  314.     STR_OUT(2) = TL_CUT_V
  315.     STR_OUT(3) = "TOOLANGLE(90)"
  316.     STR_OUT(4) = "MIDCUT(N)"
  317.     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & "0" & ",-6,-6,0,M0))"
  318.     STR_OUT(6) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
  319.    
  320.     STR_OUT(7) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  321.     STR_OUT(8) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  322.     STR_OUT(9) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  323.     STR_OUT(10) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  324.    
  325.     STR_OUT(11) = TL_CUT_O
  326.     STR_OUT(12) = "TOOLANGLE(0)"
  327.     STR_OUT(13) = "MIDCUT(N)"
  328.     STR_OUT(14) = UnloadOutline(110, 6, 0, -6, H, L)
  329.     STR_OUT(15) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & ",-6," & Jcdf(0) & ",-6,-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
  330.     STR_OUT(16) = "'FINE BLOCCO"
  331.     Call FVTPT(3, NND, "C")
  332.  
  333.  
  334. End Sub
  335.  
  336.  
  337.  
  338. Sub S_1006951(ByVal NND As Integer)
  339. ACT_MOD = "1006951"
  340.  
  341.  
  342.  
  343. L = INPUT_NUM(NND, "L", 0, ACT_MOD)
  344. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  345. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  346. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  347. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  348. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  349. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  350.  
  351. '************************************* SCRITTURA LISTATO
  352.  
  353. 'tt_pch = "GANCIO" '"23G0S"
  354. 'R01A = T_SPECIAL(M2 - 10, H - 55 + 6, tt_pch, "C0.") & T_SPECIAL(M2 + M3 - 10, H - 55 + 6, tt_pch, "C0.")
  355. 'R01B = T_SPECIAL(M2 + 2 * M3 - 10, H - 55 + 6, tt_pch, "C0.") & T_SPECIAL(M2 + 3 * M3 - 10, H - 55 + 6, tt_pch, "C0.")
  356. 'R01 = R01A & R01B
  357.  
  358. R02 = T_CIRC(M2 + 3 * M3 - 35, H - 53, 8.5)
  359.  
  360. SCST = 0.2
  361. R03A = T_SMUS(-SCST, -SCST)
  362. R03B = T_SMUS(L + SCST, H + SCST)
  363. R03C = T_SMUS(L + SCST, -SCST)
  364. R03D = T_SMUS(-SCST, H + SCST)
  365. R03 = R03A & R03B & R03C & R03D
  366.  
  367. fn = R02 & R03
  368. P1 = 200
  369. P2 = L - 250
  370. MVAL = 500
  371. STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
  372.  
  373. Call SAVE_SUB(NND, STRINGA)
  374.  
  375. If L > H Then
  376. H1 = H
  377. L1 = L
  378. L = H1
  379. H = L1
  380. End If
  381.  
  382.     POSINTAB = def_posintab(NND)
  383.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  384.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  385.     STR_OUT(2) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
  386.     STR_OUT(3) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  387.     STR_OUT(4) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  388.     STR_OUT(5) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  389.     STR_OUT(6) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  390.     STR_OUT(7) = TL_CUT_O
  391.     STR_OUT(8) = "TOOLANGLE(0)"
  392.     STR_OUT(9) = "MIDCUT(N)"
  393.     STR_OUT(10) = UnloadOutline(110, 6, 0, -6, H, L)
  394.     STR_OUT(11) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
  395.     STR_OUT(12) = "'FINE BLOCCO"
  396.     Call FVTPT(3, NND, "")
  397.    
  398.    
  399.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  400.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  401.     STR_OUT(2) = TL_CUT_V
  402.     STR_OUT(3) = "TOOLANGLE(90)"
  403.     STR_OUT(4) = "MIDCUT(N)"
  404.     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & "0" & ",-6,-6,0,M0))"
  405.     STR_OUT(6) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
  406.     STR_OUT(7) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  407.     STR_OUT(8) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  408.     STR_OUT(9) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  409.     STR_OUT(10) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  410.     STR_OUT(11) = TL_CUT_O
  411.     STR_OUT(12) = "TOOLANGLE(0)"
  412.     STR_OUT(13) = "MIDCUT(N)"
  413.     STR_OUT(14) = UnloadOutline(110, 6, 0, -6, H, L)
  414.     STR_OUT(15) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & ",-6," & Jcdf(0) & ",-6,-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
  415.     STR_OUT(16) = "'FINE BLOCCO"
  416.     Call FVTPT(3, NND, "C")
  417.  
  418. End Sub
  419.  
  420.  
  421. Sub S_1006951C(ByVal NND As Integer)
  422. ACT_MOD = "1006951"
  423.  
  424.  
  425.  
  426. L = INPUT_NUM(NND, "L", 0, ACT_MOD)
  427. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  428. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  429. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  430. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  431. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  432. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  433. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  434. '************************************* SCRITTURA LISTATO
  435.  
  436. R02 = T_CIRC(M2 + 3 * M3 - 35, H - 53, 8.5)
  437.  
  438. SCST = 0.2
  439. R03A = T_SMUS(-SCST, -SCST)
  440. R03B = T_SMUS(L + SCST, H + SCST)
  441. R03C = T_SMUS(L + SCST, -SCST)
  442. R03D = T_SMUS(-SCST, H + SCST)
  443. R03 = R03A & R03B & R03C & R03D
  444.  
  445. fn = R02 & R03
  446. P1 = 200
  447. P2 = L - 250
  448. MVAL = 500
  449. STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
  450.  
  451. Call SAVE_SUB(NND, STRINGA)
  452.  
  453. If L > H Then
  454. H1 = H
  455. L1 = L
  456. L = H1
  457. H = L1
  458. End If
  459.  
  460.     POSINTAB = def_posintab(NND)
  461.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  462.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  463.     STR_OUT(2) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
  464.     STR_OUT(3) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  465.     STR_OUT(4) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  466.     STR_OUT(9) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  467.     STR_OUT(10) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  468.    
  469.     STR_OUT(12) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 - M5 + 6) & "))"
  470.     STR_OUT(11) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 - M5 + 6) & "))"
  471.    
  472.     STR_OUT(13) = TL_CUT_O
  473.     STR_OUT(14) = "TOOLANGLE(0)"
  474.     STR_OUT(15) = "MIDCUT(N)"
  475.     STR_OUT(16) = UnloadOutline(110, 6, 0, -6, H, L)
  476.     STR_OUT(17) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
  477.     STR_OUT(18) = "'FINE BLOCCO"
  478.     Call FVTPT(3, NND, "")
  479.    
  480.    
  481.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  482.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  483.     STR_OUT(2) = TL_CUT_V
  484.     STR_OUT(3) = "TOOLANGLE(90)"
  485.     STR_OUT(4) = "MIDCUT(N)"
  486.     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & "0" & ",-6,-6,0,M0))"
  487.     STR_OUT(6) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
  488.     STR_OUT(7) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  489.     STR_OUT(8) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  490.     STR_OUT(9) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  491.     STR_OUT(10) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
  492.    
  493.     STR_OUT(12) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 - M5 + 6) & "))"
  494.     STR_OUT(11) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 - M5 + 6) & "))"
  495.    
  496.     STR_OUT(13) = TL_CUT_O
  497.     STR_OUT(14) = "TOOLANGLE(0)"
  498.     STR_OUT(15) = "MIDCUT(N)"
  499.     STR_OUT(16) = UnloadOutline(110, 6, 0, -6, H, L)
  500.     STR_OUT(17) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & ",-6," & Jcdf(0) & ",-6,-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
  501.     STR_OUT(18) = "'FINE BLOCCO"
  502.     Call FVTPT(3, NND, "C")
  503.  
  504. End Sub
  505.  
  506.  
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!