CODE SIEMENS Prise origine sur fraiseuse

 Exemple de code SIEMENS pour dégauchir une pièce. Le code permet de dégauchir la pièce en prenant :

l'origine en Z sur un point

le X Y à l'intérieur d'un alésage

Et calcul de l'angle avec 2 pts palpé sur Y

T1 M6

G0 D1 M23 ;ALLUMER LE PALPEUR M23 AVANCE SANS ROTATION DE LA BROCHE

G500 ;ANNULER TOUT DÉCALAGE ACTIF

G0 X46 Y14 ; POSITION 1ER POINT

G0 Z6 ; APPROCHE PREMIER POINT

_MVAR=100 _SETVAL=3.0 _MA=3 _KNUM=0 _TSA=.5 _FA=15 _PRNUM=1

CYCLE978 ; PALPER "Z"

R1=_OVR[4]; "VALEUR DE Z"

G0 Z15

G0 X52.7 Y10.2 ; {POSITION DU CENTRE DU TROU}

; {DOIVENT CORRESPONDRE AUX ÉLÉMENTS SUIVANTS CYCLE979}

; {CPA=C/L POUR X & CPO=C/L POUR Y}

; CPA Centre en abscisses

; CPO Centre en ordonnées

G0 Z=R1+5

G1 F60 Z=R1-1.5 ; PENETRATION DANS L'ALÉSAGE

; 101 Détermination DO dans alésage avec correction DO

_MVAR=101 _SETVAL=10.0 _PRNUM=1101 _TSA=.5 _NMSP=1

_FA=15 _VMS=0 _KNUM=0 _CPA=52.7 _CPO=10.2

_RF=1000 _INCA=90 _STA1=90

CYCLE979   ; "X" & "Y" CENTRE DU TROU DE CENTRAGE 

R30=_OVR[5] ; R30 = "X1" C/L  ALESAGE

R31=_OVR[6] ; R31 = "Y1" C/L ALESAGE

G0 Z15

G0 X7 Y5.00

G0 Z=R1+1

G1 Z=R1-1.5

; _MA = 2 selon Y

_MVAR=100 _SETVAL=8.0 _MA=2 _KNUM=0 _TSA=.5 _FA=15 _PRNUM=1

CYCLE978; PALPER "Y1"

R3=_OVR[4]; "Y1"

G0 Z15

G0 X56 Y5.00

G0 Z=R1+5

G1 Z=R1-1.5

_MVAR=100 _SETVAL=8.0 _MA=2 _KNUM=0 _TSA=.5 _FA=15 _PRNUM=1

CYCLE978; PALPER "Y2"

R13=_OVR[4]; "Y2"

G0 Z15

;CALCULER L'ANGLE DE ROTATION DE LA PIÈCE

R53=R13-R3

R54=49.0 ;DISTANCE ENTRE LES PALPAGES 'Y'.

R60=ATAN2(R53,R54)

$P_UIFR[1]=CROT(Z,R60):CTRANS(X,R30,Y,R31,Z,R1);ENTRÉE DES DONNÉES D'OFFSET DANS G54 (1=G54 2=G55 ...)

$P_UIFR[1,C,TR]=$P_UIFR[1,C,TR]+R60

M30

CYCLE978 Palpage Pièce: Mesure d'une surface parallèle à l'axe

CYCLE979 Palpage  Pièce Alésage

ATAN2 = Calcul d'un angle Opposé/Adjacent

CTRANS = Calcul de la matrice de translation

$P_UIFR  => définir les origines