Programacion Aries

%
O9013 (ISO DEMO)
(V0.0 MIERCOLES 9.5.07)
(COPY VAR FROM EDITOR DOWN TO USABLE ISO VAR)
(VAR 1-33 FREE)
(VAR 100-129 FREE)
G595A10060B130C29 (MACHINE 10060-10088 TO 130-158)
G595A10100B550C100 (TOOL 10100-10289 TO 550-689)
(CONVERT SOME VALUES FROM INCH TO MM)
G590A10105B505C1
G590A10119B519C1
(GO TO WAITPOSITION)
G90G0Z#132
G90G0X#130Y#131A#133
(DO HERE SOME CALCULATIONS..)#1=#140+#506+#553-#560/2 (X-AXIS + DISTANCIA DE APRIETE PUNTO TRABAJO LATERAL 1 - media muela)
#2=#141+[#502/2]*COS[#507]+#554 (Y-AXIS + DIAMETRO/2*COSENO[ANGULO DE ATAQUE] + DISTANCIA SEGURIDAD)
#3=#142-[#502/2]*SIN[#507] (Z-AXIS + DIAMETRO/2*SENO[ANGULO DE ATAQUE])
#4=-[#503+90.0] (A-AXIS ANGULO LATERAL PLACA HORIZONTAL)
#5=-90.0 (C-AXIS)
#6=360.0/#500 (ANGULO DE DIVISION ENTRE DIENTES)#7=0.0 (AUXILIAR DE NUMERO DE DIENTES)
#8=-[#550+90.0] (PUNTO TRABAJO MUELA)
#9=#1-#552 (PUNTO TRABAJO LATERAL 2)
#10=[[#558/2]/TAN[#557/2]] (Profundidad maxima en Y)
#11=FUP[[#558-#560]/[2*#561]] (Nº de pasadas por exceso, en medio paso, en incrementos fijados en #561)
#12=0.0 (auxiliar para incrementos en x)
#13=0.0 (auxiliar para calculo de carrera en y)
#14=SIN[#557/2] (calculo delseno del angulo de ensamble/2)
#15=0.0 (auxiliar de carrera en y)
#17=0.0 (auxiliar del numero de pasadas)
#18=0.0 (auxiliar del numero de picos)
G504A#5 (CHECK C POSITION)
(SETTING GRINDING POINT ON WHEEL)
(Q= WHEEL NR 1..6)
(E= DE= DELTA WHEEL SETTING DIST.)
(R= DR= DELTA WHEEL RADIUS)
(C= C-AXIS)
(W= WPOS= GRINDING ANGLE ON WHEEL)
G513Q#555E0.0R0.0W#8C#5 (SETTING GRINDING POINT)(START SPINDLE AND COOLING)
(Q= WHEEL NR 1..6)
(R= WHEEL ROTATION 0=OFF 1=CW -1=CCW)
(C= COOLING 0=OFF 1=ON)
(TO USE SPECIFIC SPEED AND VALVES USE THESE PARAMS)
(S= SPEED)
(V= VALVE 1, 2)
G514Q#555R-1.0C1.0 (START SPINDLE AND COOLING)
(FAST POSITIONING)
(A= TARGET A-POS)
G511A#4 (FAST POSITIONING)
G513X[#1+#560/2]Y#2A#4F0 (WITH G0 OVER GRINDING POINT)
G513Z#3F0 (WITH G0 0MM OVERGRINDING POINT)
G513Y[#2-#563-#554]F#556 (ENTRA EROSIONANDO LATERAL 1 CON FEEDRATE #556)
G513X[#1+#560/2+1.0]Y#2A#4F0 (separa en X 1.0 mm)
G513Y#2F0 (SALE CON FEEDRATE)
N1 IF[#7 EQ #500] GOTO 2 (pasada de desbaste, CONTADOR NUMERO DIENTES)
N3 IF[#18 EQ #562]GOTO 4 (CONTADOR DE NUMERO DE PICOS)
N5 IF[#17 EQ #11] GOTO 6 (empieza por las pasadas de la derecha)
(FAST POSITIONING)
(A= TARGETA-POS)
G511A#4 (FAST POSITIONING)
#13=-[[#560/2]/#14]-[#559/#14]+[[#557/2]*#14]] (calculo de ajuste de y con la tangente y la distancia de seguridad)
#15=[#10*[[#558/2]-#12]]/[#558/2] (calculo de y por Tales)
#16=[#15-#13] (carrera neta de y)
(MOVE WITH GRINDINGPOINT ON WHEEL)
G513X[#1-#12]Y#2A#4F0 (WITH G0 OVER GRINDING POINT)
G513Z#3F0 (WITH G0 0MM OVER GRINDING POINT)G513Y[#2-#16-#554]F#556 (ENTRA EROSIONANDO CON FEEDRATE #556)
G513Y#2F0 (SALE CON FEEDRATE)
#12=#12+#561 (calculo de la nueva x para la siguiente pasada)
#17=#17+1
GOTO 5
N6
#17=0.0 (inicializa el numero de pasadas)
#12=#12+#558 (cambia al siguiente hueco)
#18=#18+1.0
GOTO 3
N4
#17=0.0
#12=0.0
#18=0.0
N7 IF[#18 EQ #562] GOTO 8
N9 IF[#17 EQ #11] GOTO 10 (pasadas de la izquierda)
(SETTING GRINDINGPOINT ON WHEEL)
(Q= WHEEL NR 1..6)
(E= DE= DELTA WHEEL SETTING DIST.)
(R= DR= DELTA WHEEL RADIUS)
(C= C-AXIS)
(W= WPOS= GRINDING ANGLE ON WHEEL)
G513Q#555E0.0R0.0W#8C#5 (SETTING GRINDING POINT)
(START SPINDLE AND COOLING)
(Q= WHEEL NR 1..6)
(R= WHEEL ROTATION 0=OFF 1=CW -1=CCW)
(C= COOLING 0=OFF 1=ON)
(TO USE SPECIFIC SPEED AND VALVES USE THESE PARAMS)
(S= SPEED)
(V= VALVE 1, 2)G514Q#555R-1.0C1.0 (START SPINDLE AND COOLING)
(FAST POSITIONING)
(A= TARGET A-POS)
G511A#4 (FAST POSITIONING)
#13=[[#560/2]/#14]-[#559/#14]+[[#557/2]*#14]] (calculo de ajuste de y con la tangente y la distancia de seguridad)
#15=[#10*[[#558/2]-#12]]/[#558/2] (calculo de y por Tales)
#16=[#15-#13] (carrera neta de y)
(MOVE WITH GRINDINGPOINT ON WHEEL)
G513X[#1-#552+#12]Y#2A#4F0 (WITH G0...