08.97
6.7 Axis couplings via synchronized actions
Synchronized Actions (FBSY)
6-146 ESiemens AG 2002. All rights reserved
SINUMERIK 840D/840Di/810D Descrip. of Functions Synchronized Actions (FBSY) -- 11.02 Edition
N160 ; **** Table 2 Define linear compensatory motion of XACH ******
CTABDEF(YGEO,XGEO,2,1) ; Periodic Table 2
N16 XGEO=0.000 YGEO=0.000
N16 XGEO=0.001 YGEO=0.000
N17 POLY PO[XGEO]=(116.000,0.024,0.012) PO[YGEO]=(4.251,0.067,--0.828)
N18 PO[XGEO]=(244.000,0.072,--0.048) PO[YGEO]=(4.251,--2.937)
N19 PO[XGEO]=(359.999,--0.060,0.012) PO[YGEO]=(0.000,--2.415,0.828)
N16 XGEO=360.000 YGEO=0.000
N20 CTABEND
M17
%_N_NONCIRC_MPF
; Coupled axis grouping for non-circular machining
; XACH is the infeed axis of the grinding wheel
; CACH is the workpiece axis as a rotary axis and master axis
; Application: Grind non-circular contour
; Table 1 mirrors the override for axis CACH as a function of the position of CACH
; Override of XGEO axis with handwheel infeed for scratching
N100 DRFOF ; deselect handwheel override
N200 MSG(“select DRF, (handwheel 1 active) and select INCREMENT.== handwheel override ACTIVE”)
N300 M00
N500 MSG() ; reset message
N600 R2=1 ; LEADON Table 2, activate with ID=3/4 CACH to XACH
N700 R3=1 ; LEADON Table 1, activate with ID=5/6 CACH to CASW, override
N800 R4=1 ; endlessly turning rotary axis CACH, start with ID=7/8
N900 R5=36000 ; FA[CACH] speed of endlessly turning rotary axis
N1100 STOPRE
N1200 ; ********* Set axes and master axis to following axis *******
; Traverse master and following axes to initial positions
N1300 G0 XGEO=0 CASW=10 CACH=0
N1400 LEADOF(XACH,CACH) ; coupling OFF XACH compensatory movement
N1500 LEADOF(CASW,CACH) ; coupling OFF CASW override table
N1600 CURV_TABS ; subprogram with definition of tables
N1700 ; ******* activate LEADON compensatory motion XACH *******
N1800 WAITP(XGEO) ; synchronize axis with channel
N1900 ID=3 EVERY $R2==1 DO LEADON(XACH,CACH,2)
N2000 ID=4 EVERY $R2==0 DO LEADOF(XACH,CACH)
N2100 ; ************ activate LEADON CASW override table ****
N2200 WAITP(CASW)
N2300 ID=5 EVERY $R3==1 DO LEADON(CASW,CACH,1) ; CTAB coupling ON master axis CACH
N2400 ID=6 EVERY $R3==0 DO LEADOF(CASW,CACH) ; CTAB coupling OFF master axis CACH
N2500 ; ** control CASH override from position CASW with ID 10 *
N2700 ID=11 DO $$AA_OVR[CACH]=$AA_IM[CASW] ; assign “axis position” CASW to OVR CACH
N2900 WAITP(CACH)
N3000 ID=7 EVERY $R4==1 DO MOV[CACH]=1 FA[CACH]=R5 ; start as endlessly turning rotary axis
N3100 ID=8 EVERY $R4==0 DO MOV[CACH]=0 ; stop as endlessly turning rotary axis
N3200 STOPRE
N3300 R90=$AA_COUP_ACT[CASW] ; status of coupling for CASW for checking
N3400 MSG(“activate CASW override table with LEADON ”<<R90<<“, go to END with NC START”)
10.00