Publicité
Notice de Programmation et d'utilisation
P/N 70000409 – Dispositifs de programmation avancés
Exemple :
G90 G70 G0 G17
T0 Z0
X0 Y0
T1 F30
X1.5 Y0 * DEPLACER VERS CENTRE DE TROU
Z.1
G1 Z-.5 * DEPLACER Z A LA PROFONDEUR
G65 P76 D2.0 S.010 J35 K20
G0 Z.1 * RELEVER Z AU PLAN DE DEGAGEMENT
TO Z0
X0 Y0
M2
O76 ** MACRO DE FRAISAGE DE TROU
*
* D#7 = DIAMETRE DE TROU (+=CCW,-=CW), J#5 = AVANCE D'EBAUCHE
* S#19 = QUANTITE MATIERE DE FINITION, K#6 = AVANCE DE FINITION.
* #1020 = DIAMETRE OUTIL.
*
[SAVEG90 #99 * REGLER CHAINE SAUVEGARDE G90 A VAR 99
[SAVEG00 #98 * REGLER CHAINE SAUVEGARDE G00 A VAR 98
[SAVEFRT #97 * REGLER CHAINE SAUVEGARDE FRT A VAR 97
[TDIA
#96 * REGLER CHAINE TDIA A VAR 96
[EPSI .00001 * REGLER CHAINE EPSI A .00001
SAVEG90 = #1090 * SAUVEGARDER MODE DIM ACTUEL (ABS=90,INCR=91)
SAVEG00 = #1016 * SAUVEGARDER MODE MOUVEMENT ACTUEL
(RAPIDE=0,AVANCE=1)
SAVEFRT = #1022 * SAUVEGARDER VITESSE D'AVANCE ACTUELLE
TDIA = ABS(#1020) * SAUVEGAR DER DIAMETRE OUTIL ABSOLU
IF(!VAR(7)) THEN
IMPRESSION (ERREUR! DIAMETRE TROU PAS FOURNI)
M30
ENDIF
IF(!VAR(5)) THEN; #5=#1022; ENDIF * PAR DÉFAUT VITESSE AVANCE EBAUCHE.
IF(!VAR(6)) THEN; #6=#5; ENDIF * PAR DÉFAUT VITESSE AVANCE FINITION.
IF(!VAR(19)) THEN; #19=0.; ENDIF * PAR DÉFAUT PAS DE MATIERE DE FINITION.
IF(ABS(#7/2)<ABS(#19)) THEN
IMPRESSION (ERREUR! DIAM OUTIL TROP GRAND)
M30
ENDIF
#33 = (ABS(#7)/2-ABS(#19)- TDIA /2); * RAYON PASSE D'EBAUCHE.
IF(#33<0|#33=0) THEN
IMPRESSION (ERREUR! QUANTITE D'EBAUCHE TROP GRANDE)
M30
ENDIF
IF( #1041 > 40+ EPSI ) THEN
22
* CHECK IF TOOL COMP IS ON
Tous droits réservés. Sous réserve de modification s sans préavis.
8-Avril-99
Publicité
