
2.USER PROGRAMS FOR DISPLAYING GUIDANCE DRAWING FOR GUIDANCE CUTTING SAMPLE PROGRAM B-63343EN/02
- 152 -
N33 WORK_FAB = 1 /* above line
ENDIF
GOTO 100
ENDIF
ENDIF
/*
N32 WORK_X = COFI_A*#5042+COFI_B
/*
IF[ROUND[[#5041*WORK_D]*WORK_AMT] GE ROUND[WORK_X*WORK_AMT]]THEN /* tool position is above
line?
N34 WORK_FAB = 1 /* above line
ENDIF
/*
N100 G310 R980 P21117 L4 /* read from p.m.c distance from work
/*
N600 IF [#21117 LT 0] THEN /*DISTANCE SIGN CHECK
F_DNOW = 1 ; /* NOW -
F_DAGO = 1 ; /* NOW -
ELSE
F_DNOW = 0 ; /* NOW +
F_DAGO = 0 ; /* NOW +
ENDIF;
/*
N650 DSP_FWRK=1 /* REQUEST DISPLAY HANDLE ARROW
/*
F_LMTNOW=R975.7 /* LIMIT SIGNAL NOW
F_LMTAGO=F_LMTAGO /* LIMIT SIGNAL AGO
/*
N999 M99
/*
/* STRAIGHT LINE CUT MAIN PROGRAM
/*
O1093 G310 R980 P[WDST] L4 /* read from p.m.c distance from work
/*
N500 IF [WORK_DST LT 0] THEN /*
F_DNOW = 1 /* NOW -
ELSE /*
F_DNOW = 0 /* NOW +
ENDIF
/*
N510 IF [DSP_FWRK EQ 1] THEN /*IF REQUEST DISPLAY FLAG ON
DSP_FWRK=0 /*
GOTO 100 /*
ENDIF /*
/*
F_LMTNOW=R975.7 /* LIMIT SIGNAL
/*
N520 IF [F_LMTNOW NE F_LMTAGO] THEN /* IF LIMIT SIGNAL CHANGED
F_LMTAGO=F_LMTNOW /* THEN
GOTO 100 /*
ENDIF /*
/*
N530 IF [F_LMTNOW EQ 1] GOTO 900 /* LIMIT EFFECTIVE?
/*
N540 IF [R985.6 EQ 1] GOTO 900 /* GUIDANCE CUTTING?
/*
/* WORK_F104 = F104 /*
/* WORK_F104 = WORK_F104 AND 3 /* INPOS CHECK
/*
/* N550 IF [WORK_F104 EQ 3] GOTO 900 /* IF STOPPING
N560 IF [F_DNOW EQ F_DAGO] GOTO 900 /* IF NOW NE AGO THEN
F_DAGO=F_DNOW /*
/*
N100 WORK_ARW=0 /*CUTTING DIRECTION IS LOWER
/*
IF [WORK_FAB EQ 0 && F_DNOW EQ 1] THEN /*
WORK_ARW=1 /*CUTTING DIRECTION IS UPPER