badade ha scritto:.....
Prima di esaminare il problema proposto mi sento di dire che non credo continuerò a postare esempi di programmazione, o riflessioni, aspetterò la partecipazione di altre persone, le riflessioni di programmatori che usano altri controlli.....!
Concordo con te che in due non stimola molto la discussione pubblica, anche se devo dire che mi
è piaciuto molto e soprattutto ho imparato qualcosa di nuovo sul Fanuc. Mi chiedo però se in questo forum ci siano dei programmatori di CN a bordo macchina, a parte i pochi intervenuti.
Ti posto il programma Selca finito e testato in grafica, si può copiare e portare direttamente sul CN. Questo lo dico a chiunque sia interessato a vedere e a provare in grafica questo piccolo programma. Solo una cosa.... sulla serie 40 non funziona G78XYZ-P0., bisogna usare la G777.
Sulla serie 30 e sul 1200, funziona benissimo..
Come ti dicevo il programma è diventato una grande variabile, e spero che sia abbastanza chiaro
da capire. Ho aggiunto anche una funzione di salto e cioè mettendo come possibilità di saltare una o più cave inserendo un segno negativo nella profondità .
Ok, un Saluto a tutti e buon proseguimento nel Forum.
N1 O1
N2 T10M6
N3 S2800M3
N4 P20=0
N5 [ PROFONDITA' FISSA / SE 0 LEGGE MAPPA
N6 P1=22
N7 [ PASSO IN X
N8 P2=22
N9 [ PASSO IN Y
N10 P3=6
N11 [ NUMERO CAVE IN X
N12 P4=6
N13 [ NUMERO CAVE IN Y
N14 P5=4
N15 [ DIAMETRO UTENSILE
N16 P11=20
N17 [ DIMENSIONE CAVA IN X
N18 P12=20
N19 [ DIMENSIONE CAVA IN Y
N20 P21=2
N21 [ MASSIMA ASPORTAZIONE IN Z
N22 [=========++++++++++========
N23 P3=P3-1
N24 P4=P4-1
N25 P5=P5/2
N26 P7=P1*P3/2
N27 P8=P2*P4/2
N28 P11=P11/2
N29 P12=P12/2
N30 P18=1
N31 P99=60
N32 P0=P20
N33 P23=P0
N34 [=========++++++++++========
N35 {P20>0}L1
N36 L3
N37 [ LEGGE SOTTOPROGRAMMA MAPPATURA
N38 L=1
N39 {P20>0}L6
N40 [ SE P20 > 0 NON LEGGE LA MAPPA E VA A L=6
N41 P0=PP99
N42 [ PP99 E' UNA FUNZIONE DI PARAMETRO SU PARAMETRO
N43 P23=P0
N44 [ P99=60 -----> PP99 EQUIVALE A P60
N45 P99=P99+1
N46 [ INCREMENTO IL P99 PER PORTARLO A 61,62,63,ECC....
N47 L=6
N48 G51XP7YP8
N49 [ TRASLAZIONE ORIGINE
N50 L2
N51 [ RICHIAMO SOTTO PROGRAMMA L=2
N52 P7=P7-P1
N53 L1KP3
N54 [ RIPETIZIONE DA L=1 PER IL VALORE DI P3
N55 {P20>0}L7
N56 [ SE P20 > 0 NON LEGGE LA MAPPA E VA A L=7
N57 P18=P18+1
N58 P99=60
N59 L3
N60 L=7
N61 P1=-P1
N62 P7=P7-P1
N63 P8=P8-P2
N64 L1KP4
N65 [ RIPETIZIONE DA L=1 PER IL VALORE DI P4
N66 Z200R
N67 [ SVINCOLO ASSE Z A FINE LAVORO
N68 M30
N69 [ FINE PROGRAMMA
N70 [===============
N71 [====================
N72 [ SOTTO PROGRAMMA L=2
N73 L=2
N74 {P0<0}L9
N75 [ SE P0 < 0 SALTA LA LAVORAZIONE E VA A L=9
N76 X0Y0R
N77 Z5R
N78 Z0F400
N79 [ VERIFICA LA PROFONDITA' DI PASSATA
N80 {P0<=P21}L8
N81 P0=P21
N82 [ ==================================
N83 L=8
N84 [ ==== CALCOLO DEL FONDO DELLA TASCA CON ANGOLO DISCESA DI 45
N85 P13=P11-P0
N86 P14=P12-P0
N87 [ ===========================================================
N88 [ ATTIVAZIONE CORETTORE RAGGIO
N89 G49IP5
N90 [ ============================
N91 [ ==== INIZIO CICLO DI CAVA MACRO G77
N92 G77XP13YP14
N93 X-P13
N94 Y-P14
N95 G78XP13Z-P0F300
N96 [ ==== CHIUSURA CICLO CAVA CON DISCESA IN RAMPA
N97 X0Y0
N98 [ CICLO DI CNDIZIONI PER VEIFICARE LA PROFONDITA' DI LAVORO
N99 {P0=P23}L9
N100 P0=P0+P21
N101 {P0<P23}L8
N102 P0=P23
N103 {P0=P23}L8
N104 [==========================================================
N105 L=9
N106 Z5R
N107 G32
N108 [ RITORNO DA SOTTOPROGRAMMA
N109 L=3
N110 [ CREO UNA MAPPATURA DELLE PROFONDITA'
N111 [ MAPPATURA PRIMA RIGA
N112 P60=2.2
N113 P61=-2.1
N114 P62=-2
N115 P63=-2
N116 P64=-2.1
N117 P65=2.2
N118 P66=0
N119 P67=0
N120 P68=0
N121 P69=0
N122 P70=0
N123 P71=0
N124 P72=0
N125 P73=0
N126 P74=0
N127 P75=0
N128 P76=0
N129 P77=0
N130 P78=0
N131 P79=0
N132 P80=0
N133 {P18=1}L4
N134 [ 2a RIGA
N135 P60=-2.1
N136 P61=2.1
N137 P62=2
N138 P63=2
N139 P64=2.1
N140 P65=-2.1
N141 P66=0
N142 P67=0
N143 P68=0
N144 P69=0
N145 P70=0
N146 P71=0
N147 P72=0
N148 P73=0
N149 P74=0
N150 P75=0
N151 P76=0
N152 P77=0
N153 P78=0
N154 P79=0
N155 P80=0
N156 {P18=2}L4
N157 [ 3a RIGA
N158 P60=2
N159 P61=2
N160 P62=2
N161 P63=2
N162 P64=2
N163 P65=2
N164 P66=0
N165 P67=0
N166 P68=0
N167 P69=0
N168 P70=0
N169 P71=0
N170 P72=0
N171 P73=0
N172 P74=0
N173 P75=0
N174 P76=0
N175 P77=0
N176 P78=0
N177 P79=0
N178 P80=0
N179 {P18=3}L4
N180 [ 4a RIGA
N181 P60=2
N182 P61=2
N183 P62=2
N184 P63=2
N185 P64=2
N186 P65=2
N187 P66=0
N188 P67=0
N189 P68=0
N190 P69=0
N191 P70=0
N192 P71=0
N193 P72=0
N194 P73=0
N195 P74=0
N196 P75=0
N197 P76=0
N198 P77=0
N199 P78=0
N200 P79=0
N201 P80=0
N202 {P18=4}L4
N203 [ 5a RIGA
N204 P60=-2.1
N205 P61=2.1
N206 P62=2
N207 P63=2
N208 P64=2.1
N209 P65=-2.1
N210 P66=0
N211 P67=0
N212 P68=0
N213 P69=0
N214 P70=0
N215 P71=0
N216 P72=0
N217 P73=0
N218 P74=0
N219 P75=0
N220 P76=0
N221 P77=0
N222 P78=0
N223 P79=0
N224 P80=0
N225 {P18=5}L4
N226 [ 6a RIGA
N227 P60=2.2
N228 P61=-2.1
N229 P62=-2
N230 P63=-2
N231 P64=-2.1
N232 P65=2.2
N233 P66=0
N234 P67=0
N235 P68=0
N236 P69=0
N237 P70=0
N238 P71=0
N239 P72=0
N240 P73=0
N241 P74=0
N242 P75=0
N243 P76=0
N244 P77=0
N245 P78=0
N246 P79=0
N247 P80=0
N248 {P18=6}L4
N249 [ 7a RIGA
N250 P60=0
N251 P61=0
N252 P62=0
N253 P63=0
N254 P64=0
N255 P65=0
N256 P66=0
N257 P67=0
N258 P68=0
N259 P69=0
N260 P70=0
N261 P71=0
N262 P72=0
N263 P73=0
N264 P74=0
N265 P75=0
N266 P76=0
N267 P77=0
N268 P78=0
N269 P79=0
N270 P80=0
N271 {P18=7}L4
N272 [ 8a RIGA
N273 P60=0
N274 P61=0
N275 P62=0
N276 P63=0
N277 P64=0
N278 P65=0
N279 P66=0
N280 P67=0
N281 P68=0
N282 P69=0
N283 P70=0
N284 P71=0
N285 P72=0
N286 P73=0
N287 P74=0
N288 P75=0
N289 P76=0
N290 P77=0
N291 P78=0
N292 P79=0
N293 P80=0
N294 {P18=8}L4
N295 [ 9a RIGA
N296 P60=0
N297 P61=0
N298 P62=0
N299 P63=0
N300 P64=0
N301 P65=0
N302 P66=0
N303 P67=0
N304 P68=0
N305 P69=0
N306 P70=0
N307 P71=0
N308 P72=0
N309 P73=0
N310 P74=0
N311 P75=0
N312 P76=0
N313 P77=0
N314 P78=0
N315 P79=0
N316 P80=0
N317 {P18=9}L4
N318 [ 10a RIGA
N319 P60=0
N320 P61=0
N321 P62=0
N322 P63=0
N323 P64=0
N324 P65=0
N325 P66=0
N326 P67=0
N327 P68=0
N328 P69=0
N329 P70=0
N330 P71=0
N331 P72=0
N332 P73=0
N333 P74=0
N334 P75=0
N335 P76=0
N336 P77=0
N337 P78=0
N338 P79=0
N339 P80=0
N340 {P18=10}L4
N341 [ 11a RIGA
N342 P60=0
N343 P61=0
N344 P62=0
N345 P63=0
N346 P64=0
N347 P65=0
N348 P66=0
N349 P67=0
N350 P68=0
N351 P69=0
N352 P70=0
N353 P71=0
N354 P72=0
N355 P73=0
N356 P74=0
N357 P75=0
N358 P76=0
N359 P77=0
N360 P78=0
N361 P79=0
N362 P80=0
N363 {P18=11}L4
N364 [ 12a RIGA
N365 P60=0
N366 P61=0
N367 P62=0
N368 P63=0
N369 P64=0
N370 P65=0
N371 P66=0
N372 P67=0
N373 P68=0
N374 P69=0
N375 P70=0
N376 P71=0
N377 P72=0
N378 P73=0
N379 P74=0
N380 P75=0
N381 P76=0
N382 P77=0
N383 P78=0
N384 P79=0
N385 P80=0
N386 {P18=12}L4
N387 [ 13a RIGA
N388 P60=0
N389 P61=0
N390 P62=0
N391 P63=0
N392 P64=0
N393 P65=0
N394 P66=0
N395 P67=0
N396 P68=0
N397 P69=0
N398 P70=0
N399 P71=0
N400 P72=0
N401 P73=0
N402 P74=0
N403 P75=0
N404 P76=0
N405 P77=0
N406 P78=0
N407 P79=0
N408 P80=0
N409 {P18=13}L4
N410 [ 14a RIGA
N411 P60=0
N412 P61=0
N413 P62=0
N414 P63=0
N415 P64=0
N416 P65=0
N417 P66=0
N418 P67=0
N419 P68=0
N420 P69=0
N421 P70=0
N422 P71=0
N423 P72=0
N424 P73=0
N425 P74=0
N426 P75=0
N427 P76=0
N428 P77=0
N429 P78=0
N430 P79=0
N431 P80=0
N432 {P18=14}L4
N433 [ 15a RIGA
N434 P60=0
N435 P61=0
N436 P62=0
N437 P63=0
N438 P64=0
N439 P65=0
N440 P66=0
N441 P67=0
N442 P68=0
N443 P69=0
N444 P70=0
N445 P71=0
N446 P72=0
N447 P73=0
N448 P74=0
N449 P75=0
N450 P76=0
N451 P77=0
N452 P78=0
N453 P79=0
N454 P80=0
N455 {P18=15}L4
N456 [ 16a RIGA
N457 P60=0
N458 P61=0
N459 P62=0
N460 P63=0
N461 P64=0
N462 P65=0
N463 P66=0
N464 P67=0
N465 P68=0
N466 P69=0
N467 P70=0
N468 P71=0
N469 P72=0
N470 P73=0
N471 P74=0
N472 P75=0
N473 P76=0
N474 P77=0
N475 P78=0
N476 P79=0
N477 P80=0
N478 {P18=16}L4
N479 [ 17a RIGA
N480 P60=0
N481 P61=0
N482 P62=0
N483 P63=0
N484 P64=0
N485 P65=0
N486 P66=0
N487 P67=0
N488 P68=0
N489 P69=0
N490 P70=0
N491 P71=0
N492 P72=0
N493 P73=0
N494 P74=0
N495 P75=0
N496 P76=0
N497 P77=0
N498 P78=0
N499 P79=0
N500 P80=0
N501 {P18=17}L4
N502 [ 18a RIGA
N503 P60=0
N504 P61=0
N505 P62=0
N506 P63=0
N507 P64=0
N508 P65=0
N509 P66=0
N510 P67=0
N511 P68=0
N512 P69=0
N513 P70=0
N514 P71=0
N515 P72=0
N516 P73=0
N517 P74=0
N518 P75=0
N519 P76=0
N520 P77=0
N521 P78=0
N522 P79=0
N523 P80=0
N524 {P18=18}L4
N525 [ 19a RIGA
N526 P60=0
N527 P61=0
N528 P62=0
N529 P63=0
N530 P64=0
N531 P65=0
N532 P66=0
N533 P67=0
N534 P68=0
N535 P69=0
N536 P70=0
N537 P71=0
N538 P72=0
N539 P73=0
N540 P74=0
N541 P75=0
N542 P76=0
N543 P77=0
N544 P78=0
N545 P79=0
N546 P80=0
N547 {P18=19}L4
N548 [ 20a RIGA
N549 P60=0
N550 P61=0
N551 P62=0
N552 P63=0
N553 P64=0
N554 P65=0
N555 P66=0
N556 P67=0
N557 P68=0
N558 P69=0
N559 P70=0
N560 P71=0
N561 P72=0
N562 P73=0
N563 P74=0
N564 P75=0
N565 P76=0
N566 P77=0
N567 P78=0
N568 P79=0
N569 P80=0
N570 {P18=20}L4
N575 M30
N576 L=4
N577 G32
PS. Badate mi riservo un po di tempo per leggere con più calma il tuo ultimo post.... Ciao