Codice: Seleziona tutto
% (Macro Fresatura numeri )
O1000 (richiamo macro tramite G65 P1000 o M98 P1000 )
#100=[#100+1] (Contatore progressivo pezzi )
#110=#100 (Variabile di appoggio per ricavare cifra unita ,centinaia e migliaia )
#101=-1 (variabile cifra unita)
#102=-1 (variabile cifra decine)
#103=-1 (variabile cifra centinaia)
#104=-1 (variabile cifra migliaia)
#105=10 (variabile destinazione ritorno salto GOTO)
( se le varibili cifre sono inferiori a 0 = a -1 la cifra non viene fresata )
(Algoritmo per ricavare le cifre che compongono un numero intero)
IF[#110LT10]GOTO1
#101 =[#110 MOD 10] (cifra unita)
#110 =FIX[#110 / 10]
IF[#110LT10] GOTO2
#102 =[#110 MOD 10] (cifra decine)
#110 = FIX[#110 / 10]
IF[#110LT10]GOTO3
#103 =[#110 MOD 10] (cifra centinaia)
#110 = FIX[#110 / 10]
IF[#110LT10]GOTO4
#104 =[#110 MOD 10] (cifra migliaia )
GOTO10
N1 #101=#110
GOTO10
N2 #102=#110
GOTO10
N3 #103=#110
GOTO10
N4 #104=#110
N10 #105=[#105+10](Ritorno a riga 20)
IF[#104GT0]GOTO[#104+100]
N20 #105=[#105+10] (Ritorno a riga 30)
IF[#103GE0]GOTO[#103+100]
N30 #105=[#105+10] (Ritorno a riga 40)
IF[#102GE0]GOTO[#102+100]
N40 #105=[#105+10] (Ritorno a riga 50)
IF[#101GE0]GOTO[#101+100]
N50 G90 M99
N100
(IL CODICE PER FRESARE LE CIFRE DOVRA' LAVORARE IN INCREMENTALE G91 )
(FRESARE LA CIFRA , TERMINATO SI DOVRA' SPOSTARE VERSO SINISTRA PER FRESARE LA SUCESSIVA)
(E' IMPORTANTE CHE OGNI CIFRA INIZIA LA FRESATURA E TERMINA LA FRESATURA NELLA STESSA POSIZIONE )
( CODICE ISO PER FRESARE 0)
#105=[#105+10]
GOTO#105
N101
( CODICE ISO PER FRESARE 1)
GOTO#105
N102
( CODICE ISO PER FRESARE 2)
GOTO#105
N103
( CODICE ISO PER FRESARE 3)
GOTO#105
N104
( CODICE ISO PER FRESARE 4)
GOTO#105
N105
( CODICE ISO PER FRESARE 5)
GOTO#105
N106
( CODICE ISO PER FRESARE 6)
GOTO#105
N107
( CODICE ISO PER FRESARE 7)
GOTO#105
N108
( CODICE ISO PER FRESARE 8)
GOTO#105
N109
( CODICE ISO PER FRESARE 9)
GOTO#105
M99
%
