2.USER PROGRAMS FOR DISPLAYING GUIDANCE DRAWING FOR GUIDANCE CUTTING SAMPLE PROGRAM B-63343EN/02
- 164 -
IF [SET_Z1 NE #0 && SET_Z2 NE #0]THEN;
IF [SET_X1 NE #0 && SET_X2 NE #0]THEN;
LINE_KID = 2
GOTO 2000
ENDIF;
ENDIF;
IF [SET_Z1 NE #0] THEN;
LINE_KID = 0
GOTO 2000
ENDIF;
IF [SET_Z2 NE #0] THEN;
LINE_KID = 0
GOTO 2000
ENDIF;
IF [SET_X1 NE #0] THEN;
LINE_KID = 1
GOTO 2000
ENDIF;
IF [SET_X2 NE #0] THEN;
LINE_KID = 1
ENDIF;
ENDIF;
/*
/*
N2000 WORK_X1 = SET_X1 /* START POINT X1
WORK_Z1 = SET_Z1 /* Z1
WORK_X2 = SET_X2 /* END POINT X2
WORK_Z2 = SET_Z2 /* Z2
N80 IF [WORK_X1 EQ #0]GOTO 81
WORK_X1 = [SET_X1 + #20100]*WORK_D /* START POINT X1
N81 IF [WORK_Z1 EQ #0]GOTO 82
WORK_Z1 = SET_Z1 + #20101 /* Z1
N82 IF [WORK_X2 EQ #0]GOTO 83
WORK_X2 = [SET_X2 + #20100]*WORK_D /* END POINT X2
N83 IF [WORK_Z2 EQ #0]GOTO 84
WORK_Z2 = SET_Z2 + #20101 /* Z2
N84 WORK_A = SET_A ; /* ANGLE
/*
/*
/* SKIP ANGLE WITH (X1,Z1) AND (X2,Z2)
/*
IF [SET_Z1 NE #0 && SET_Z2 NE #0]THEN;
IF [SET_X1 NE #0 && SET_X2 NE #0]THEN;
WORK_A = #0 ;
ENDIF;
ENDIF;
/*
IF [SET_A EQ #0] GOTO 90
IF [WORK_A EQ #0] GOTO 90
/*
IF [ABS[WORK_A] EQ 90 ||ABS[WORK_A] EQ 270] THEN;
LINE_KID = 0 ;
ENDIF;
IF [ABS[WORK_A] EQ 0 ||ABS[WORK_A] EQ 180 ||ABS[WORK_A] EQ 360] THEN;
LINE_KID = 1 ;
ENDIF;
WORK_SET = WORK_A
/*
N90 IF [LINE_KID EQ 0] GOTO 100 ; X PARA
IF [LINE_KID EQ 1] GOTO 200 ; Z PARA
IF [LINE_KID EQ 2] GOTO 300 ; OBLIQUE LINE
/*
/* X PARA
/*
N100 IF [SET_Z1 EQ #0 ] THEN ;
IF [SET_Z2 EQ #0] THEN;
WORK_Z = #5042 ; /* WORK CORRD.