
B-63343EN/02 SAMPLE PROGRAM 2.USER PROGRAMS FOR DISPLAYING GUIDANCE DRAWING FOR GUIDANCE CUTTING
- 151 -
F_AP1 = RIGHT ; /*
F_AP2 = LEFT ; /*
F_RM1 = RIGHT ;/*
F_RM2 = LEFT ; /*
GOTO 30
ENDIF;
/*
N320 IF [WORK_SET EQ 270]THEN;
WORK_FAB = 1 ; /* TOOL POS IS BELOW LINE
F_AP1 = RIGHT ; /*
F_AP2 = LEFT ; /*
F_RM2 = LEFT ; /*
F_RM1 = RIGHT ; /*
GOTO 30
ENDIF;
/*
N330 IF [WORK_SET EQ 90]THEN;
WORK_FAB = 1 ; /* TOOL POS IS BELOW LINE
F_AP1 = LEFT ; /*
F_AP2 = RIGHT ;/*
F_RM2 = LEFT ; /*
F_RM1 = RIGHT ;/*
GOTO 30
ENDIF;
/*
/* OBLIQUE LINE.
/*
N510 WORK_X = COFI_A*[#5042-RN_DZ]+COFI_BO /*FIRST LINE
/*
N520 IF [ROUND[[[#5041-RN_DX]*WORK_D]*WORK_AMT] GE ROUND[WORK_X*WORK_AMT]]THEN /* TOOL CENTER
WORK_FAB = 1 /* TOOL POS IS ABOVE LINE
ENDIF;
/*
/* SET HANDLE ROTATE DIRECTION.
/*
N530 IF [WORK_FAB EQ 0] THEN ; /* ABOVE LINE ?
F_AP1 = RIGHT /*
F_AP2 = LEFT /*
F_RM2 = RIGHT /*
F_RM1 = LEFT /*
ELSE; /* BELOW LINE.
F_AP1 = RIGHT ; /*
F_AP2 = LEFT ; /*
F_RM2 = LEFT ; /*
F_RM1 = RIGHT ; /*
ENDIF;
/*
N30 WORK_FAB = 0 /* above line
IF [WORK_SET EQ 0 || WORK_SET EQ 90 || WORK_SET EQ 180 || WORK_SET EQ 270]THEN /* x
/ z pallrel
IF [WORK_SET EQ 90 || WORK_SET EQ 270]THEN /* X pallrel
/* WORK_Z = #20235 /* new Z
WORK_Z = WORK_POS /* new Z
IF[WORK_SET EQ 270 && #5042 LE WORK_Z]GOTO 31 /*
IF[WORK_SET EQ 90 && WORK_Z LE #5042]THEN /*
N31 WORK_FAB = 1 /* above line
ENDIF
GOTO 100
ENDIF
/*
N540 IF [WORK_SET EQ 0 || WORK_SET EQ 180]THEN /* Z pallrel
/* WORK_X = #20235 /* new x
WORK_X = WORK_POS /* new x
/*
N550 IF[WORK_SET EQ 0 && WORK_X LE #5041]GOTO 33 /*
/*
N560 IF[WORK_SET EQ 180 && #5041 LE WORK_X]THEN /*