Code Siemens 840 D

 Un autre exemple de code pour Siemens permettant de réaliser un palpage sur machine pour la mesure d'un alésage.

les valeurs R101,R102,R105 seront utilisées pour stocker le centre et diamètre de l'alésage.

DEF REAL ZCLEAR, RG1X, RG1Y, RG1Z

DEF REAL PDEPTH1,RGDIA 

ZCLEAR=100.0

RG1X=10.0

RG1Y=20.0

RG1Z=-1.5

PDEPTH1=3.0

RGDIA=10.0

T1 M6

G54

SPOS=0

G01 F300. ;VITESSE APPROCHE

G00 Z=ZCLEAR ;DEPLACEMENT PLAN SECU

C0. A0.

X=RG1X

Y=RG1Y ;SE DÉPLACER VERS LE CENTRE DE L'ALESAGE

Z=RG1Z+10. ;DÉPLACER À Z 10" AU-DESSUS DU HAUT DE LA PIECE

G1 Z=RG1Z-PDEPTH1 ; POSITIONNMENT DANS L'ALEASGE

; Définir les paramètres modaux

_VMS=150

_NMSP=2 ; 2 mesures

_FA=5.0  ; Course mesure

_PRNUM=1 ; Palpeur 1

_MVAR=1   ; Mesure alésage

_SETVAL=RGDIA ; Diamètre

_KNUM=0   ; Sans Correction et sans DO

CYCLE977 ; CYCLE977 Pièce: Mesure d'alésage

R101=_OVR[5];Valeur du centre en X

R102=_OVR[6];Valeur du centre en Y

R105=_OVR[4];Valeur du diamètre

G01 Z=RG1Z+2. F300 ;DÉPLACER À Z 2" AU-DESSUS DU HAUT DE LA PIECE

G00 Z=ZCLEAR ;DEPLACEMENT PLAN SECU

M30