
B-63343EN/02 SAMPLE PROGRAM 2.USER PROGRAMS FOR DISPLAYING GUIDANCE DRAWING FOR GUIDANCE CUTTING
- 163 -
/* #21827 /* WORK
/*
/*@W_MUDV #21828 /*
/*@W_1004 #21829 /*
/*@W_UNIT1 #21830 /*
/*@LINE_CUT 1
/*@SET_FLAG 0
/*@LINE_OF 22135
/*
/*;
/*; Output LINE CUT data to PMC R area
/*;
/*O1105 M98 P1107 /* SET UNIT_F8 97/08/29
O1095 M98 P1107 /* SET UNIT_F8 97/08/29
IF [UNIT_F8 EQ 7.3]THEN
W_MUDV = 1000 ;
ELSE
IF [UNIT_F8 EQ 7.2]THEN
W_MUDV = 100 ;
ELSE
W_MUDV= 10000 ;
ENDIF;
ENDIF;
/*
CUNT = 0 ;
WORK_210 = 1 ; /* 2**10
WHILE [CUNT LT 10 ] DO 1 ;
WORK_210 = WORK_210 * 2 ;
CUNT = CUNT + 1;
END 1 ;
/*
CUNT = 0 ;
WORK_220 = 1 ; /* 2**20
WHILE [CUNT LT 20 ] DO 2 ;
WORK_220 = WORK_220 * 2 ;
CUNT = CUNT + 1;
END 2 ;
/*
CUNT = 0 ;
WORK_230 = 1 ; /* 2**30
WHILE [CUNT LT 30 ] DO 3 ;
WORK_230 = WORK_230 * 2 ;
CUNT = CUNT + 1;
END 3 ;
/*
/* SELCT LINE . DATA FROM WARNING CHECK.
/*
IF [[P1006.1 AND 8] EQ 8]THEN
WORK_D = 0.5 ;
ELSE
WORK_D = 1 ;
ENDIF;
/*
M98 P1106 /* Set Nose-R
/*
#21821 = 0 /* initialize flag
/*
/* READ INPUT DATA
SET_X1 = #[LINE_OF] ; /* POINT 1 X1
SET_Z1 = #[LINE_OF+2] ; /* 1 Z1
SET_X2 = #[LINE_OF+4] ; /* POINT 2 X2
SET_Z2 = #[LINE_OF+6] ; /* 2 Z2
SET_A = #[LINE_OF+8] /* ANGLE A
/*
IF [SET_A NE #0] THEN ;
LINE_KID = 2 ;
ELSE;