API tools faq
paste
Advertisement
Dece111

Coprifessura

Dece111
Feb 28th, 2024 (edited)
110
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 10.46 KB | None | 0 0
raw download clone embed print report diff
  1. 'Coprifessura
  2.  
  3. Sub S_1014688A(ByVal NND As Integer)
  4. ACT_MOD = "1014688"
  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. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  11. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  12.  
  13. '************************************* SCRITTURA LISTATO
  14.  
  15. XSC = 12 - 2 * SPS
  16. YSCINF = 12 + 1.75 - 2 * SPS 'MOD
  17. YSCSUP = YSCINF + 19 'MOD
  18. DSTA = (L - M2) / 2
  19. QQ = 15
  20.  
  21. 'R01A = T_RECT1(QQ - XSC, XSC, QQ - YSCINF, YSCINF) & T_RECT1(QQ - XSC, XSC, YSCSUP, H + 3)
  22. 'R01B = T_RECT1(L - XSC, L + (QQ - XSC), YSCSUP, H + 3) & T_RECT1(L - XSC, L + (QQ - XSC), QQ - YSCINF, YSCINF)
  23.  
  24. R01A = T_RECT1(XSC - QQ, XSC, YSCINF - QQ, YSCINF) & T_RECT1(XSC - QQ, XSC, YSCSUP, H + 3)
  25. R01B = T_RECT1(L - XSC, L + (QQ - XSC), YSCSUP, H + 3) & T_RECT1(L - XSC, L + (QQ - XSC), YSCINF - QQ, YSCINF)
  26. R01 = R01A & R01B
  27.  
  28. R02A = T_CIRC(XSC, YSCINF, 3.3) & T_CIRC(XSC, YSCSUP, 3.3)
  29. R02B = T_CIRC(L - XSC, YSCINF, 3.3) & T_CIRC(L - XSC, YSCSUP, 3.3)
  30. R02 = R02A & R02B
  31.  
  32. R03 = T_SLOT(DSTA, H - 8, 14, 5, 90) & T_SLOT(L - DSTA, H - 8, 14, 5, 90)
  33.  
  34. '''R04A = T_RECT1(XSC + 40, L - XSC - 40, H - 10, H + 5) 'faccio passata con 15x15
  35.  
  36. '''R04 = R04A '& R04B & R04C
  37.  
  38. R05A = T_RAD(XSC, 0, 3) & T_RAD(0, YSCINF, 3) & T_RAD(L - XSC, 0, 4) & T_RAD(L, YSCINF, 4)
  39. R05B = T_RAD(0, YSCSUP, 2) & T_RAD(L, YSCSUP, 1)
  40. R05C = T_RAD(XSC, H, 2) & T_RAD(L - XSC, H, 1) & T_RAD(XSC + 40, H, 1) & T_RAD(L - XSC - 40, H, 2)
  41. R05 = R05A & R05B & R05C
  42.  
  43.  
  44. fn = R01 & R02 & R03 & R04 & R05
  45.  
  46. P1 = L / 2 - 85
  47. P2 = L / 2 + 85
  48. MVAL = 500
  49. STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
  50.  
  51. Call SAVE_SUB(NND, STRINGA)
  52.  
  53. POSINTAB = def_posintab(NND)
  54.  
  55.     STR_OUT(0) = TablePosition(L, H, 0, 0, POSINTAB)
  56.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  57.     STR_OUT(2) = "TOOL(QUADRO,C696,A0,15)"
  58.     STR_OUT(3) = "TOOLANGLE(0)"
  59.     STR_OUT(4) = "MIDCUT(N)"
  60.     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(XSC + 40) & "," & Jcdf(H - 10 + 15) & "," & Jcdf(L - XSC - 40) & "," & Jcdf(H - 10 + 15) & ",0,0,0,M0))"
  61.     STR_OUT(6) = TL_CUT_O
  62.     STR_OUT(7) = "TOOLANGLE(0)"
  63.     STR_OUT(8) = "MIDCUT(N)"
  64.     STR_OUT(9) = UnloadOutline(110, 6, 0, -6, L, H)
  65.     STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(L) & "," & -LUTH & "," & Jcdf(0) & "," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, L, H, 0, 0)
  66.     STR_OUT(11) = "'FINE BLOCCO"
  67.  
  68. Call FVTPT(3, NND, "")
  69.  
  70.  
  71.     STR_OUT(0) = TablePosition(L, H, 0, 0, POSINTAB)
  72.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  73.     STR_OUT(2) = "TOOL(QUADRO,C696,A0,15)"
  74.     STR_OUT(3) = "TOOLANGLE(0)"
  75.     STR_OUT(4) = "MIDCUT(N)"
  76.     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(XSC + 40) & "," & Jcdf(H - 10 + 15) & "," & Jcdf(L - XSC - 40) & "," & Jcdf(H - 10 + 15) & ",0,0,0,M0))"
  77.     STR_OUT(6) = TL_CUT_V2
  78.     STR_OUT(7) = "TOOLANGLE(90)"
  79.     STR_OUT(8) = "MIDCUT(N)"
  80.     STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(H) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"
  81.     STR_OUT(10) = TL_CUT_O
  82.     STR_OUT(11) = "TOOLANGLE(0)"
  83.     STR_OUT(12) = "MIDCUT(N)"
  84.     STR_OUT(13) = UnloadOutline(110, 6, 0, -6, L, H)
  85.     STR_OUT(14) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(L) & "," & -LUTH & "," & Jcdf(0) & "," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, L, H, 0, 0)
  86.     STR_OUT(15) = "'FINE BLOCCO"
  87.    
  88.    
  89. Call FVTPT(3, NND, "C")
  90.  
  91. End Sub
  92.  
  93. Sub S_1007069A(ByVal NND As Integer)
  94. ACT_MOD = "1007069"
  95. CLAMP = 0
  96.  
  97.  
  98. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  99. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  100. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  101. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  102. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  103.  
  104. VV = Replace(VV, "P", "")
  105.  
  106.  
  107.  
  108. SCA = (H - 18) / 2    'SCARICO RETTANGOLARE
  109.  
  110. R01 = T_RECT1(L - 11.6, L + 3.4, -6, SCA)
  111. R01 = R01 & T_RECT1(L - 11.6, L + 3.4, H - SCA, H + 6)
  112.  
  113. R01 = R01 & T_CIRC(L - 11.6, SCA, 3.3)
  114. R01 = R01 & T_CIRC(L - 11.6, H - SCA, 3.3)
  115. R01 = R01 & T_CIRC(55.5, H - 5, 4.2)
  116. R01 = R01 & T_CIRC(55.5 + 10, H - 5, 4.2)
  117. R01 = R01 & T_CIRC(55.5, 5, 4.2)
  118. R01 = R01 & T_CIRC(55.5 + 10, 5, 4.2)
  119. R01 = R01 & T_CIRC(55.5 + M2, H - 5, 4.2)
  120. R01 = R01 & T_CIRC(55.5 + M2 + 10, H - 5, 4.2)
  121. R01 = R01 & T_CIRC(55.5 + M2, 5, 4.2)
  122. R01 = R01 & T_CIRC(55.5 + M2 + 10, 5, 4.2)
  123.  
  124. R01 = R01 & T_RAD(4.5, H + 1.5, 4)    'RAGGIATORE PER SCASSO
  125. R01 = R01 & T_RAD(5, H + 1.5, 4)      'RAGGIATORE PER SCASSO
  126. R01 = R01 & T_RAD(5.5, H + 1.5, 4)    'RAGGIATORE PER SCASSO
  127. R01 = R01 & T_RAD(6, H + 1.5, 4)      'RAGGIATORE PER SCASSO
  128.  
  129. R01 = R01 & T_RAD(4.5 + 10, H + 1.5, 4)  'RAGGIATORE PER SCASSO
  130. R01 = R01 & T_RAD(5 + 10, H + 1.5, 4)    'RAGGIATORE PER SCASSO
  131. R01 = R01 & T_RAD(5.5 + 10, H + 1.5, 4)  'RAGGIATORE PER SCASSO
  132. R01 = R01 & T_RAD(6 + 10, H + 1.5, 4)    'RAGGIATORE PER SCASSO
  133.  
  134. R01 = R01 & T_RECT1(-0.8, 6, H - 1, H + 5.8) 'ATTENZIONE
  135. R01 = R01 & T_RECT1(11, 11 + 6.8, H - 1, H + 5.8)
  136.  
  137. R01 = R01 & T_RAD(4.5, -1.5, 1)      'RAGGIATORE PER SCASSO
  138. R01 = R01 & T_RAD(5, -1.5, 1)         'RAGGIATORE PER SCASSO
  139. R01 = R01 & T_RAD(5.5, -1.5, 1)       'RAGGIATORE PER SCASSO
  140. R01 = R01 & T_RAD(6, -1.5, 1)         'RAGGIATORE PER SCASSO
  141.  
  142. R01 = R01 & T_RAD(4.5 + 10, -1.5, 1)  'RAGGIATORE PER SCASSO
  143. R01 = R01 & T_RAD(5 + 10, -1.5, 1)    'RAGGIATORE PER SCASSO
  144. R01 = R01 & T_RAD(5.5 + 10, -1.5, 1) 'RAGGIATORE PER SCASSO
  145. R01 = R01 & T_RAD(6 + 10, -1.5, 1)    'RAGGIATORE PER SCASSO
  146.  
  147. R01 = R01 & T_RECT1(-0.8, 6, -5.8, 1)
  148. R01 = R01 & T_RECT1(11, 11 + 6.8, -5.8, 1)
  149.  
  150. fn = R01
  151.  
  152. P1 = 250
  153. P2 = L - 400
  154. MVAL = 500
  155. STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
  156.  
  157. Call SAVE_SUB(NND, STRINGA)
  158.  
  159. POSINTAB = def_posintab(NND)
  160. Call CUT_END_S(L, H, "0", POSINTAB)
  161. Call FVTPT(3, NND, "")
  162. Call CUT_END_S(L, H, "B", POSINTAB)
  163. Call FVTPT(3, NND, "B")
  164. Call CUT_END_S(L, H, "C", POSINTAB)
  165. Call FVTPT(3, NND, "C")
  166.  
  167.  
  168. End Sub
  169.  
  170.  
  171.  
  172. Sub S_1026845A(ByVal NND As Integer)
  173. ACT_MOD = "1026845"
  174. CLAMP = 0
  175.  
  176. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  177. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  178. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  179. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  180. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  181.  
  182. '************************************* SCRITTURA LISTATO
  183.  
  184. R01 = T_RECT1(-4.6, 10.4, -2.8, 12.2) & T_RECT1(-4.6, 10.4, H - 15.2, H + 6)
  185. R02 = T_RECT1(L + 4.6, L - 10.4, -2.8, 12.2) & T_RECT1(L + 4.6, L - 10.4, H - 15.2, H + 6)
  186. R03 = T_SLOT(30.4, H - 2.75, 10.5, 5, 90) & T_SLOT(30.4 + M2, H - 2.75, 10.5, 5, 90)
  187. R04 = T_CIRC(11.2, 11.2, 3.3) & T_CIRC(11.2, H - 14.2, 3.3) & T_CIRC(L - 11.2, 11.2, 3.3) & T_CIRC(L - 11.2, H - 14.2, 3.3)
  188.  
  189. fn = R01 & R02 & R03 & R04
  190.  
  191. P1 = L / 2 - 85
  192. P2 = L / 2 + 85
  193. MVAL = 500
  194. STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
  195.  
  196. Call SAVE_SUB(NND, STRINGA)
  197.  
  198. POSINTAB = def_posintab(NND)
  199.  
  200.     STR_OUT(0) = TablePosition(L, H, 0, 0, POSINTAB)
  201.     STR_OUT(1) = TL_CUT_O
  202.     STR_OUT(2) = "TOOLANGLE(0)"
  203.     STR_OUT(3) = "MIDCUT(N)"
  204.     STR_OUT(4) = UnloadOutline(110, 6, 0, -6, L, H)
  205.     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(L) & "," & -LUTH & "," & Jcdf(0) & "," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, L, H, 0, 0)
  206.  
  207. Call FVTPT(3, NND, "")
  208.  
  209.  
  210.     STR_OUT(0) = TablePosition(L, H, 0, 0, POSINTAB)
  211.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  212.     STR_OUT(2) = TL_CUT_V2
  213.     STR_OUT(3) = "TOOLANGLE(90)"
  214.     STR_OUT(4) = "MIDCUT(N)"
  215.     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(H) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"
  216.     STR_OUT(6) = TL_CUT_O
  217.     STR_OUT(7) = "TOOLANGLE(0)"
  218.     STR_OUT(8) = "MIDCUT(N)"
  219.     STR_OUT(9) = UnloadOutline(110, 6, 0, -6, L, H)
  220.     STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(L) & "," & -LUTH & "," & Jcdf(0) & "," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, L, H, 0, 0)
  221.     STR_OUT(11) = "'FINE BLOCCO"
  222.    
  223. Call FVTPT(3, NND, "C")
  224.  
  225. End Sub
  226.  
  227.  
  228. Sub S_10288740(ByVal NND As Integer)
  229. ACT_MOD = "1028874"
  230. CLAMP = 0
  231.  
  232.  
  233. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  234. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  235. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  236. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  237. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  238. VV = Replace(VV, "P", "")
  239.  
  240.  
  241.  
  242. SCA = 10.4
  243. COR = 1.35
  244.  
  245. R01 = T_RAD(SCA + 4.5 + COR, H + 1.3, 4) 'RAGGIATORE PER SCASSO
  246. R01 = R01 & T_RAD(SCA + 5 + COR, H + 1.3, 4)  'RAGGIATORE PER SCASSO
  247. R01 = R01 & T_RAD(SCA + 5.5 + COR, H + 1.3, 4) 'RAGGIATORE PER SCASSO
  248. R01 = R01 & T_RAD(SCA + 6 + COR, H + 1.3, 4)  'RAGGIATORE PER SCASSO
  249. R01 = R01 & T_RAD(SCA + 4.5 + 11 + COR, H + 1.3, 4) 'RAGGIATORE PER SCASSO
  250. R01 = R01 & T_RAD(SCA + 5 + 11 + COR, H + 1.3, 4) 'RAGGIATORE PER SCASSO
  251. R01 = R01 & T_RAD(SCA + 5.5 + 11 + COR, H + 1.3, 4) 'RAGGIATORE PER SCASSO
  252. R01 = R01 & T_RAD(SCA + 6 + 11 + COR, H + 1.3, 4) 'RAGGIATORE PER SCASSO
  253.  
  254. R01 = R01 & T_RECT1(6 - 3.5 + SCA, 6 - 3.5 + SCA + 6.8, H - 1, H + 5.8) 'ATTENZIONE
  255. R01 = R01 & T_RECT1(17 - 3.5 + SCA, 17 - 3.5 + 6.8 + SCA, H - 1, H + 5.8)
  256.  
  257. R01 = R01 & T_RAD(L - 4.5 - SCA - COR, H + 1.3, 3) 'RAGGIATORE PER SCASSO
  258. R01 = R01 & T_RAD(L - 5 - SCA - COR, H + 1.3, 3) 'RAGGIATORE PER SCASSO
  259. R01 = R01 & T_RAD(L - 5.5 - SCA - COR, H + 1.3, 3) 'RAGGIATORE PER SCASSO
  260. R01 = R01 & T_RAD(L - 6 - SCA - COR, H + 1.3, 3) 'RAGGIATORE PER SCASSO
  261. R01 = R01 & T_RAD(L - 4.5 - 11 - SCA - COR, H + 1.3, 3) 'RAGGIATORE PER SCASSO
  262. R01 = R01 & T_RAD(L - 5 - 11 - SCA - COR, H + 1.3, 3) 'RAGGIATORE PER SCASSO
  263. R01 = R01 & T_RAD(L - 5.5 - 11 - SCA - COR, H + 1.3, 3) 'RAGGIATORE PER SCASSO
  264. R01 = R01 & T_RAD(L - 6 - 11 - SCA - COR, H + 1.3, 3) 'RAGGIATORE PER SCASSO
  265.  
  266. R01 = R01 & T_RECT1(L - (6 - 3.5 + SCA), L - (6 - 3.5 + SCA + 6.8), H - 1, H + 5.8) 'ATTENZIONE
  267. R01 = R01 & T_RECT1(L - (17 - 3.5 + SCA), L - (17 - 3.5 + 6.8 + SCA), H - 1, H + 5.8)
  268.  
  269. R02 = T_CIRC(10.4 + 27, H - 12.5, 5) & T_CIRC(10.4 + 27 + 11, H - 12.5, 5) & T_CIRC(L - 10.4 - 27, H - 12.5, 5) & T_CIRC(L - 10.4 - 27 - 11, H - 12.5, 5)
  270. R03 = T_SLOT(10.4 + 27, 2.75, 10.5, 5, 90) & T_SLOT(10.4 + 27 + 11, 2.75, 10.5, 5, 90) & T_SLOT(L - 10.4 - 27, 2.75, 10.5, 5, 90) & T_SLOT(L - 10.4 - 27 - 11, 2.75, 10.5, 5, 90)
  271.  
  272. R04 = T_RECT1(-4.6, 10.4, -0.1, 14.9) & T_RECT1(L + 4.6, L - 10.4, -0.1, 14.9)
  273. R05 = T_RECT1(-4.6, 10.4, H - 21.9, H + 6) & T_RECT1(L + 4.6, L - 10.4, H - 21.9, H + 6)
  274. R06 = T_CIRC(11.3, 14, 3.3) & T_CIRC(L - 11.3, 14, 3.3) & T_CIRC(11.3, H - 21, 3.3) & T_CIRC(L - 11.3, H - 21, 3.3)
  275.  
  276.  
  277. fn = R01 & R02 & R03 & R04 & R05 & R06
  278.  
  279. P1 = 250
  280. P2 = L - 400
  281. MVAL = 500
  282. STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
  283.  
  284. Call SAVE_SUB(NND, STRINGA)
  285.  
  286. POSINTAB = def_posintab(NND)
  287. Call CUT_END_S(L, H, "0", POSINTAB)
  288. Call FVTPT(3, NND, "")
  289. Call CUT_END_S(L, H, "B", POSINTAB)
  290. Call FVTPT(3, NND, "B")
  291. Call CUT_END_S(L, H, "C", POSINTAB)
  292. Call FVTPT(3, NND, "C")
  293.  
  294.  
  295. End Sub
  296.  
  297.  
  298.  
Tags: Coprifessura
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!