
B-63343EN/02 SAMPLE PROGRAM 2.USER PROGRAMS FOR DISPLAYING GUIDANCE DRAWING FOR GUIDANCE CUTTING
- 153 -
ENDIF /*
/*
N800 IF [WORK_FAB EQ 1 && F_DNOW EQ 0] THEN /*
WORK_ARW=1 /*CUTTING DIRECTION IS UPPER
ENDIF /*
/*
N850 WORK_ALR=F_AP1 /*ALONG HANDLE
WORK_APU=F_RM1 /*APPROACH HANDLE
/*
WORK_S=SIN[WORK_SET] /*SIN A
WORK_C=COS[WORK_SET] /*COS A
/*
WORK_LMT=F_LMTNOW /*LIMIT SIGNAL
/*
N860 G202 X23 Y1 I22 J5 P2 /* clear part screen(CHAR)
/*
/* G202 P1 /* ERASE GRAPHIC
G202 X23 Y1 I22 J8 P1 /*CLEAR PART GRPH
/*
N300 M98 P1097 /*DISPLAY HANDLE ARROW
/*
N350
/*
N900 M99
/*************************************************************
/* Copyright (C) 1997 by FANUC LTD. ALL rights reserved. *
/*************************************************************
/*
/*$INCLUDE MGSYMBOL.INC /* include file
/*
/*
O1096
G244 P0 ; /* set solid line
W_CXPOS = -40 ; /* offset x pos
W_CYPOS = 168 ; /* offset y pos
CUNT = 0 ; /* counter clear
ASET = 0 ; /* init angle
/* WORK_C = COS[W_TEST] /* for debug
/* WORK_S = SIN[W_TEST] /*
/* W_COS = WORK_C /*
/* W_SIN = WORK_S /*
WHILE [CUNT LT 4] DO 1 ; /* 4 times
DRCT_CUT = 0 ; /* cutter direction
/* set angle
W_COS = WORK_C*COS[ASET]-WORK_S*SIN[ASET] ;
W_SIN = WORK_C*SIN[ASET]+WORK_S*COS[ASET] ;
IF [CUNT EQ 0] THEN ; /*
IF [WORK_ARW EQ 0] THEN ; /* if approach direction ?
G240 P2 ; /* set color green
ELSE ; /*
G240 P5 ; /* set color pink
DRCT_CUT = 1 ; /* set cutter direction
ENDIF ; /*
ENDIF; /*
IF [CUNT EQ 2] THEN ; /*
IF [WORK_ARW EQ 0] THEN ; /* if approach direction ?
G240 P5 ; /* set color pink
DRCT_CUT = 1 ; /* set cutter direction
ELSE ; /*
G240 P2 ; /* set color green
ENDIF ; /*
ENDIF; /*
IF [CUNT EQ 1 || CUNT EQ 3] THEN ; /*
G240 P6 ; /* set color light blue
ENDIF;
IF [CUNT EQ 0 || CUNT EQ 2] THEN ;