
2.USER PROGRAMS FOR DISPLAYING GUIDANCE DRAWING FOR GUIDANCE CUTTING SAMPLE PROGRAM B-63343EN/02
- 158 -
G242 X[W_HDCXP-10] Y[W_HDCYP]
G03 I[W_HDCXP] J[W_HDCYP] Q4
G242 X[W_HDCXP-7] Y[W_HDCYP]
G03 I[W_HDCXP] J[W_HDCYP] Q4
G206 X[W_HDCXP-9] Y[W_HDCYP]
G242 X[W_HDCXP+4] Y[W_HDCYP-4]
G02 I[W_HDCXP+2] J[W_HDCYP-2] Q4
G206 X[W_HDCXP+2] Y[W_HDCYP-2]
/* draw handle inside circle
G240 P7 ; /* set color white
G242 X[W_HDCXP-7] Y[W_HDCYP]
G03 I[W_HDCXP] J[W_HDCYP] Q4
G242 X[W_HDCXP+4] Y[W_HDCYP-4]
G02 I[W_HDCXP+2] J[W_HDCYP-2] Q4
G206 P7 X[W_HDCXP-2] Y[W_HDCYP+2]
G240 P15 ; /* set color
IF [WORK_ALR EQ 1] THEN ;
IF [CUNT EQ 0] THEN;
GOTO 20 /* right rotation
ENDIF;
IF [CUNT EQ 2] THEN;
GOTO 30 /* left rotation
ENDIF;
ENDIF;
IF [WORK_ALR EQ 2] THEN ;
IF [CUNT EQ 0] THEN;
GOTO 30 /* left rotation
ENDIF;
IF [CUNT EQ 2] THEN;
GOTO 20 /* right rotation
ENDIF;
ENDIF;
IF [WORK_APU EQ 1] THEN ;
IF [CUNT EQ 1] THEN;
GOTO 20 /* right rotation
ENDIF;
IF [CUNT EQ 3] THEN;
GOTO 30 /* left rotation
ENDIF;
ENDIF;
IF [WORK_APU EQ 2] THEN ;
IF [CUNT EQ 1] THEN;
GOTO 30 /* left rotation
ENDIF;
IF [CUNT EQ 3] THEN;
GOTO 20 /* right rotation
ENDIF ;
ENDIF ;
GOTO 40 ;
N0020
/* right rotatetion arrow
G242 X[W_HDCXP] Y[W_HDCYP+14]
G01 X[W_HDCXP-2] Y[W_HDCYP+14+2]
G242 X[W_HDCXP] Y[W_HDCYP+14]
G01 X[W_HDCXP-2] Y[W_HDCYP+14-2]
/* arc
G242 X[W_HDCXP] Y[W_HDCYP+14]
G03 X[W_HDCXP-14] Y[W_HDCYP] I[W_HDCXP] J[W_HDCYP] Q0
GOTO 40 ;
N0030
/* left rotatetion arrow
G242 X[W_HDCXP] Y[W_HDCYP+14]
G01 X[W_HDCXP+2] Y[W_HDCYP+14+2]
G242 X[W_HDCXP] Y[W_HDCYP+14]
G01 X[W_HDCXP+2] Y[W_HDCYP+14-2]