Siemens SINUMERIK Series Function Manual

Also see for SINUMERIK 828D Turning: Diagnostic manual Function manual Equipment manual Programming manual Operating manual

M5: Measurement7.5 Setting zeros, workpiece measuring and tool measuringExtended FunctionsFunction Manual, 03/2013, 6FC5397-1BP40-3BA1 487Program code Comment$AC_MEAS_TYPE = 17 ; Set measurement type for oblique plane$AC_MEAS_ACT_PLANE = 0 ; Measuring plane is G17_XX=$P_AXN1 ; Define axes according to the plane_YY=$P_AXN2_ZZ=$P_AXN3G17 G1 _XX=10 _YY=10 F1000 ; 1. Approach measuring pointMEAS = 1 _ZZ=...$AA_MEAS_POINT1[_xx] = $AA_MW[_xx] ; Assign measurement value to abscissa$AA_MEAS_POINT1[_yy] = $AA_MW[_yy] ; Assign measurement value to ordinate$AA_MEAS_POINT1[_zz] = $AA_MW[_zz] ; Assign measurement value to applicateG1 _XX=20 _YY=10 F1000 ; 2. Approach measuring pointMEAS = 1 _ZZ=...$AA_MEAS_POINT2[_xx] = $AA_MW[_xx] ; Assign measurement value to abscissa$AA_MEAS_POINT2[_yy] = $AA_MW[_yy] ; Assign measurement value to ordinate$AA_MEAS_POINT2[_zz] = $AA_MW[_zz] ; Assign measurement value to applicateG1 _XX=20 _YY=20 F1000 ; 3. Approach measuring pointMEAS = 1 _ZZ=...$AA_MEAS_POINT3[_xx] = $AA_MW[_xx] ; Assign measurement value to abscissa$AA_MEAS_POINT3[_yy] = $AA_MW[_yy] ; Assign measurement value to ordinate$AA_MEAS_POINT3[_zz] = $AA_MW[_zz] ; Assign measurement value to applicate; Define setpoints for angle$AA_MEAS_SETANGLE[_xx] = 12 ; Rotation around the abscissa$AA_MEAS_SETANGLE[_yy] = 4 ; Rotation around the ordinate$AC_MEAS_FRAME_SELECT = 102 ; Select target frame - G55$AC_MEAS_T_NUMBER = 1 ; Select tool$AC_MEAS_D_NUMBER = 1RETVAL = MEASURE() ; Start measurement calculationif RETVAL <> 0setal(61000 + RETVAL)endifif $AC_MEAS_RESULTS[0] <> 12setal(61000 + $AC_MEAS_RESULTS[0])endif