%_N_KOP_SINUS_MPF
N5 R1=1
N6 R2=1
N7 R5=36000
N8 STOPRE
;*** Définir la table périodique n° 4 par des segments polynomiaux ***
N10 CTABDEF (YGEO,XGEO,4,1)
N16 G1 F1200 XGEO=0.000 YGEO=0.000
N17 POLY PO[XGEO]=(79.944,3.420,0.210) PO[YGEO]=(24.634,0.871,-9.670)
N18 PO[XGEO]=(116.059,0.749,-0.656) PO[YGEO]=(22.429,-5.201,0.345)
N19 PO[XGEO]=(243.941,-17.234,11.489) PO[YGEO]=(-22.429,-58.844,39.229)
N20 PO[XGEO]=(280.056,1.220,-0.656) PO[YGEO]=(-24.634,4.165,0.345)
N21 PO[XGEO]=(360.000,-4.050,0.210) PO[YGEO]=(0.000,28.139,-9.670)
N22 CTABEND
; Déplacer l'axe pilote et l'axe asservi en marche rapide jusqu'à la position initiale
N80 G0 BACH=0 CACH=0
N50 LEADOF(CACH,BACH)
N235 ;*** Activation du mouvement de couplage pour l'axe CACH ***
N240 WAITP(CACH)
N245 ID=1 EVERY $R1==1 DO LEA-
DON(CACH, BACH, 4)
N250 ID=2 EVERY $R1==0 DO LEA-
DOF(CACH, BACH)
N265 WAITP(BACH)
N270 ID=3 EVERY $R2==1 DO
MOV[BACH]=1 FA[BACH]=R5
N275 ID=4 EVERY $R2==0 DO
MOV[BACH]=0
N280 M00
N285 STOPRE
N290 R1=0
N295 R2=0
N300 R5=180
N305 M30
Actions synchrones
Description fonctionnelle, 07/2023, A5E48765042D AF
5.7 Couplages d'axes par actions synchrones
;
ID 1, 2 activer désactiver le couplage : LEA-
DON (CACB, BACH)
;
ID 3, 4 activer/désactiver le mouvement de
l'axe pilote : MOV BACH
;
BACH avance/min
;
Accoster les positions initiales
;
*** Fin de la définition de la table ***
;
Noms d'axes de canal
;
Désactiver le couplage existant le échéant
;
Synchroniser l'axe sur le canal
;
Coupler avec la table 4
;
Désactivation du couplage
;
Faire tourner l'axe pilote en continu avec
avance dans R5
;
Arrêter l'axe pilote
;
Désactivation condition de couplage
;
Désactivation condition pour rotation de
l'axe pilote
;
Nouvelle avance pour BACH
Exemples
143