programmation macro pour faire plusieur piece

%
:1010
(RONDELLES PARAMETREES)
(NOM PRG RONDELLE-PARAMETRE)
#650=0
#500=30(DIAMETRE BRUTE)
#520=3(1=PE 2=PTFE 3=PA6 NAT)
#501=16(DIAMETRE RONDELLE)
#502=3(EPAISSEUR RONDELLE)
#503=.2(CHANFRIEN EXT)
#504=6.3(DIAMETRE DE PERCAGE)
#521=1(EBAUCHE EXTER 1=OUI 0=NON)
#522=5(PASSE MAXI RAYON)
#510=2(PROFONDEUR PASSE EBAUCHE)
#508=1(0=G01 1=CYCLE)
#509=10(PROFONDEUR PASSE PERCAGE)
#505=0(REPRISE 0=NON 1=OUI)
#506=3(LARGEUR OUTIL TRONCONNAGE)
#511=3
#512=.5
(PROFONDEUR PASSE TRONCONNAGE)
#507=2(NOMBRE DE PIECE PAR SORTIE BARRE)

GOTO[#520*1000]

N1000(PE)
#130=50(VITESSE COUPE EBAUCHE)
#131=.3(AVANCE EBAUCHE)
#132=75(VITESSE COUPE FINITION)
#133=.2(AVANCE FINITION)
#134=50(VITESSE COUPE PERCAGE)
#135=.3(AVANCE PERCAGE)
#136=35(VITESSE COUPE TRONCONNAGE)
#137=.15(AVANCE TRONCONNAGE)
#138=8(ARROSAGE)
GOTO1234

N2000(PTFE)
#130=500(VITESSE COUPE EBAUCHE)
#131=0.4(AVANCE EBAUCHE)
#132=500(VITESSE COUPE FINITION)
#133=0.2(AVANCE FINITION)
#134=500(VITESSE COUPE PERCAGE)
#135=0.2(AVANCE PERCAGE)
#136=500(VITESSE COUPE TRONCONNAGE)
#137=0.2(AVANCE TRONCONNAGE)
#138=8(ARROSAGE)
GOTO1234

N3000(PA6 NAT)
#130=100(VITESSE COUPE EBAUCHE)
#131=.5(AVANCE EBAUCHE)
#132=100(VITESSE COUPE FINITION)
#133=.2(AVANCE FINITION)
#134=50(VITESSE COUPE PERCAGE)
#135=.4(AVANCE PERCAGE)
#136=50(VITESSE COUPE TRONCONNAGE)
#137=.2(AVANCE TRONCONNAGE)
#138=8(ARROSAGE)
GOTO1234


N1234G50S2000
G99
G28U0
G53Z-150.

IF[#650GT0]GOTO#650

N8T0808(EBAUCHE EXTERIEUR)
#140=#500-[#501+1](DIFF DES DIAM)
#150=FUP[#140/[#522*2]](NOMBRE PASSE ENTIERE)
#151=#140/#150(VALEUR DE LA PASSE)
#155=#500-#151(X PASSE)
IF[#140LE[#522*2]]THEN#155=#501+1
G97M3S[[#130*1000]/[#501*3.14]]
G0X[#500+4]Z2
G1Z0.4F.2
X-1.6
G0X[#500+4]Z2
IF[#521EQ0]GOTO8888

WHILE[#155GE[#501+1]]DO1
X#155Z2
#100=[[#502+#506]*#507]+[#505*.5]+5.(LONGUEUR TOTALE USINEE)
#101=FUP[[#100+5]/#510](NOMBRE DE PASSES)
#102=#100/#101(VALEUR DE LA PASSE EFFECTIVE)
#101=#101+1
WHILE[#101GT0]DO2
G1W-#102F#131
W2
W-2
#101=#101-1
END2
G0Z2.
#155=#155-#151
END1
X[#500+5]
G0Z1.
X[#501+4]Z0.5
G1X-1.6F.2
M8
G0Z10.
N8888G28U0
G53Z-150.


(GOT09)

N1T0101(PERCAGE)
G97M3S[[#134*1000]/[#504*3.14]]
G0Z50
X0.3Z20M#138
G1Z-1.F.1
G0Z15
#100=[[#502*#507]+[#506*[#507-1]]+[#504/4]+1](LONGUEUR TOTALE PERCEE)
IF[#508EQ1]GOTO111
#101=FUP[[#100+5]/#509](NOMBRE DE PASSES)
#102=#100/#101(VALEUR DE LA PASSE EFFECTIVE)
WHILE[#101GT0]DO2
G1W-#102F#135
W.5
W-.5
#101=#101-1
END2
GOTO112
N111(CYCLE DE PERCAGE)
G83Z-#100Q[#509*1000]F#135
G80
N112
G28U0
G53Z-150.


(GOT07)

N9T0909(FINITION EXTERIEUR)
G97M3S[[#132*1000]/[#501*3.14]]
#100=[[#502+#506]*#507]+[#505*.5](LONGUEUR TOTALE USINEE)
G0Z-#100
X[#500+2]
Z-#100M#138
G1X#501F#133
Z0
X#511
G0Z10.
G28U0
G53Z-150.


(GOT01)

N10T1010(CHANFREINAGE)
G97M3S[[#132*1000]/[#501*3.14]]
G0Z[[#506/2]+#502+#506+[#505/2]]M#138
X#500
#100=#507+1(NOMBRE DE CHANFREIN)
WHILE[#100GT0]DO3
G0W-[#502+#506+[0.5*#505]]
G1X[#501-[#506+#503+#503-0.34]]F#137
G4F.5
G0X#500
#100=#100-1
END3
G0G28U0
G53Z-150.


N7T0707(TRONCONNAGE)
G97M3S[[#136*1000]/[#500*3.14]]
G0Z0

X[#500+2]Z0M#138
M68
#100=#507(NOMBRE DE TRONCONNAGE)
WHILE[#100GT0]DO1
G97M3S[[#136*1000]/[#500*3.14]]
G0W-[#502+#506+[0.5*#505]]
G1X#501F#137
#101=#501-[#504+1](DIFFERENCE DES DIAMETRES)
#102=FUP[#101/#512](NOMBRE DE PASSE)
#103=#101/#102(VALEUR DE LA PASSE EFFECTIVE)
WHILE[#102GT0]DO2
G1U-#103F#137
G0U3.
U-3.
#102=#102-1
END2
S500F.15
G1X#511
G0X#500
#100=#100-1
END1
M69

N1111G0G28U0
G53Z-150.
G65P8010Z3R-10T1111
/M30
M99
%