2.USER PROGRAMS FOR DISPLAYING GUIDANCE DRAWING FOR GUIDANCE CUTTING SAMPLE PROGRAM B-63343EN/02
- 160 -
Z_WRK=#[ARC_OF+2]
R_WRK=#[ARC_OF+4]
/*
/* set actual position
/*
IF [ X_WRK EQ #0 ] THEN ; /* center i=null ?
; X_WRK= 0 ;
X_WRK= #5041;
ENDIF ;
/*
IF [ Z_WRK EQ #0 ] THEN ; /* center i=null ?
; Z_WRK= 0 ;
Z_WRK= #5042;
ENDIF ;
/*
IF [[P1006.1 AND 8] EQ 8] THEN
WORK_D= 0.5 ; /* RADIUS
ELSE
WORK_D= 1.0 ; /* DIA.
ENDIF;
;
IF [ R_WRK EQ #0 ] THEN ; /* radius r=null ?
R_WRK= 0 ;
R_WRK= [[X_WRK-#5041]*WORK_D]*[[X_WRK-#5041]*WORK_D]+[Z_WRK-#5042]*[Z_WRK-#5042]
/* calculate distance from center
R_WRK= SQRT[R_WRK] ;
IF [ R_WRK LT 0 ] THEN ; /* minus ?
R_WRK= 0 ;
ENDIF ;
ENDIF ;
/*
M98 P1106 /* Set Tool Nose-R value
/*
/* set cw/ccw mode
/*
IF [ R_WRK GE 0 ] THEN ; /* radius data>=0 ?
CW_F= 0 ; /* cw mode
ELSE ;
CW_F= 1 ; /* ccw mode
ENDIF ;
/*
/* set pmc r data
/*
IF [ CW_F EQ 0 ] THEN ; /* cw mode ?
G310 R961 Q2 L1 ; /* set g02 mode
ELSE ;
G310 R961 Q3 L1 ; /* set g03 mode
ENDIF ;
/*
/*
WRK_VAR= ROUND[[UNIT_F8-FIX[UNIT_F8]]*10] ; /* get decimal fraction column
IF [ WRK_VAR EQ 5 ] THEN ;
WRK_VAR= 100000 ;
ENDIF ;
IF [ WRK_VAR EQ 4 ] THEN ;
WRK_VAR= 10000 ;
ENDIF ;
IF [ WRK_VAR EQ 3 ] THEN ;
WRK_VAR= 1000 ;
ENDIF ;
IF [ WRK_VAR EQ 2 ] THEN ;
WRK_VAR= 100 ;
ENDIF ;
IF [ WRK_VAR EQ 1 ] THEN ;
WRK_VAR= 10 ;
ENDIF ;
IF [ WRK_VAR EQ 0 ] THEN ;