
B-63343EN/02 SAMPLE PROGRAM 2.USER PROGRAMS FOR DISPLAYING GUIDANCE DRAWING FOR GUIDANCE CUTTING
- 159 -
/* arc
G242 X[W_HDCXP] Y[W_HDCYP+14]
G02 X[W_HDCXP+14] Y[W_HDCYP] I[W_HDCXP] J[W_HDCYP] Q0
N0040
IF [WORK_LMT EQ 1] THEN ; /* if limit set ?
IF [DRCT_CUT EQ 1] THEN ; /* if drawing cutter direction ?
/* arrow on line
G240 P7 ; /* set color white
G242 X[48*W_COS+W_CXPOS] Y[48*W_SIN+W_CYPOS]
G01 X[[48-12]*W_COS-[0-6]*W_SIN+W_CXPOS] Y[[48-12]*W_SIN+[0-6]*W_COS+W_CYPOS]
G01 X[[48-12]*W_COS-[0+6]*W_SIN+W_CXPOS] Y[[48-12]*W_SIN+[0+6]*W_COS+W_CYPOS]
G01 X[48*W_COS+W_CXPOS] Y[48*W_SIN+W_CYPOS]
G206 P7 X[[48-5]*W_COS+W_CXPOS] Y[[48-5]*W_SIN+W_CYPOS]
G240 P5 ; /* set color pink
G242 X[48*W_COS+W_CXPOS] Y[48*W_SIN+W_CYPOS]
G01 X[[48-12]*W_COS-[0-6]*W_SIN+W_CXPOS] Y[[48-12]*W_SIN+[0-6]*W_COS+W_CYPOS]
G01 X[[48-12]*W_COS-[0+6]*W_SIN+W_CXPOS] Y[[48-12]*W_SIN+[0+6]*W_COS+W_CYPOS]
G01 X[48*W_COS+W_CXPOS] Y[48*W_SIN+W_CYPOS]
/* limit line
G240 P15 ; /* set color
G242 X[48*W_COS-[0-6]*W_SIN+W_CXPOS] Y[48*W_SIN+[0-6]*W_COS+W_CYPOS]
G01 X[48*W_COS-[0+6]*W_SIN+W_CXPOS] Y[48*W_SIN+[0+6]*W_COS+W_CYPOS]
G242 X[48*W_COS-[0-6]*W_SIN+W_CXPOS+1] Y[48*W_SIN+[0-6]*W_COS+W_CYPOS]
G01 X[48*W_COS-[0+6]*W_SIN+W_CXPOS+1] Y[48*W_SIN+[0+6]*W_COS+W_CYPOS]
G242 X[48*W_COS-[0-6]*W_SIN+W_CXPOS] Y[48*W_SIN+[0-6]*W_COS+W_CYPOS+1]
G01 X[48*W_COS-[0+6]*W_SIN+W_CXPOS] Y[48*W_SIN+[0+6]*W_COS+W_CYPOS+1]
G242 X[48*W_COS-[0-6]*W_SIN+W_CXPOS-1] Y[48*W_SIN+[0-6]*W_COS+W_CYPOS]
G01 X[48*W_COS-[0+6]*W_SIN+W_CXPOS-1] Y[48*W_SIN+[0+6]*W_COS+W_CYPOS]
G242 X[48*W_COS-[0-6]*W_SIN+W_CXPOS] Y[48*W_SIN+[0-6]*W_COS+W_CYPOS-1]
G01 X[48*W_COS-[0+6]*W_SIN+W_CXPOS] Y[48*W_SIN+[0+6]*W_COS+W_CYPOS-1]
ENDIF ;
ENDIF ;
ASET = ASET + 90 ; /* +90
CUNT = CUNT + 1 ; /* loop count up
END 1; /* end while loop.
/* center circle
G240 P15 ; /* set color
G242 X[W_CXPOS+8] Y[W_CYPOS]
G03 X[W_CXPOS+8] Y[W_CYPOS] I[W_CXPOS] J[W_CYPOS] Q4
G206 P15 X[W_CXPOS] Y[W_CYPOS]
G240 P11 ; /* set color
G242 X[W_CXPOS+4] Y[W_CYPOS]
G03 X[W_CXPOS+4] Y[W_CYPOS] I[W_CXPOS] J[W_CYPOS] Q4
G206 P11 X[W_CXPOS] Y[W_CYPOS]
M99
/*************************************************************
/* Copyright (C) 1993 by FANUC LTD. ALL rights reserved. *
/*************************************************************
/*
/* symbol define
/*
/*$INCLUDE MGSYMBOL.INC
/*
/*@X_WRK#21790
/*@Z_WRK#21791
/*@R_WRK #21792
/*@WORK_D #21813
/*@CW_F #21794
/*@WRK_VAR #21795
/*@WRK_VAR2 #21796
/*@ARC_OF 22145
/*
/* Output circle data to PMC R area
/*
/*O1104 M98 P1107 /* SET UNIT_F8 97/08/29
O1094 M98 P1107 /* SET UNIT_F8 97/08/29
X_WRK=#[ARC_OF]