
2.USER PROGRAMS FOR DISPLAYING GUIDANCE DRAWING FOR GUIDANCE CUTTING SAMPLE PROGRAM B-63343EN/02
- 162 -
RN_DX = RN + RN /*
N25 RN_DZ = RN
IF [TIP EQ 4||[TIP] EQ 3||[TIP] EQ 8] THEN
RN_DX = -RN_DX
ENDIF
IF [TIP EQ 5||[TIP] EQ 7] THEN
RN_DX = 0
ENDIF
IF [TIP EQ 2||[TIP] EQ 3||[TIP] EQ 7] THEN
RN_DZ = -RN_DZ
ENDIF
IF [TIP EQ 6||[TIP] EQ 8] THEN
RN_DZ = 0
ENDIF
IF [TIP LE 0||[TIP] GE 9] THEN
RN_DZ = 0
RN_DX = 0
ENDIF
N99 M99
/*************************************************************
/* Copyright (C) 1993 by FANUC LTD. ALL rights reserved. *
/*************************************************************
/*
/* SYMBOL DEFINE
/*
/*$INCLUDE MGSYMBOL.INC
/*
/*@LINE_KID #21790 /* KIND OF LINE (0:X PARA,1:Z PARA,2:OBLIQUE)
/*@WORK_X #21791 /* WORK X DATA
/*@WORK_Z #21792 /* WORK Z DATA
/*@WORK_SIN #21793 /* OUTPUT SIN (*2**30)
/*@WORK_COS #21794 /* OUTPUT COS (*2**30)
/*@VERT_LEN #21795 /* OUTPUT OP
/*@COFI_A #21796 /* AX
/*@COFI_B #21797 /* +B
/*@CROS_X #21798 /* VERTICAL CROSS POINT X
/*@CROS_Z #21799 /* VERTICAL CROSS POINT Z
/*@RMV_DIR #21800 /* REMOVE DIRECTION
/*@WORK_210 #21801 /* 2**10=1024
/*@WORK_220 #21802 /* 2**20=1048576
/*@WORK_230 #21803 /* 2**30=1073741824
/*@CUNT #21804 /* CUNTER
/*@CHK_SIN #21805 /* SIN FOR CHECK (*2**30/2**20)
/*@CHK_COS #21806 /* COS FOR CHECK (*2**30/2**20)
/*@WORK_SET #21807 /* SETA
/*@WORK_X1 #21808 /*
/*@WORK_Z1 #21809 /*
/*@WORK_X2 #21810 /*
/*@WORK_Z2 #21811 /*
/*@WORK_A #21812 /*
/*@WORK_D #21813
/*;
/*@SET_X1 #21814 /* START POINT X
/*@SET_Z1 #21815 /* Y
/*@SET_X2 #21816 /* END POINT I
/*@SET_Z2 #21817 /* J
/*@SET_A #21818 /* ANGLE
/*;
/*@COFI_BO #21819 /* +B (CUTTING LINE)
/*@WORK_XO #21820 /* CROSS POINT X (CUTTING LINE)
/*
/* #21821 /* INITIAL FLAG
/* #21822 /* MINIMUM UNITS 1000 OR 10000
/* #21823 /* MINIMUM UNITS 0.001 OR 0.0001
/* #21824 /* WORK
/* #21825 /* WORK
/* #21826 /* WORK