
B-63343EN/02 SAMPLE PROGRAM 2.USER PROGRAMS FOR DISPLAYING GUIDANCE DRAWING FOR GUIDANCE CUTTING
- 167 -
#21822=1000 ;
#21823=0.001 ;
IF [#3005 AND 4 EQ 4] THEN ;METRICK THEN
#21822=10000 ;INCH
#21823=0.0001 ;
ENDIF /*
N3 IF [ROUND[ABS[CROS_Z]*#21822]/#21822 LT #21823] THEN;
IF [ROUND[ABS[CROS_X]*#21822]/#21822 LT #21823] THEN;
N5 IF [WORK_A NE 0 && WORK_A NE #0] GOTO 351;
WORK_SET = -1/[[WORK_X2-WORK_X1]/[WORK_Z2-WORK_Z1]];
WORK_SET = ATAN[WORK_SET]/[1];
WORK_SIN = ABS[SIN[WORK_SET]] ;
WORK_COS = ABS[COS[WORK_SET]] ;
N354 WORK_SIN = WORK_SIN * WORK_230
WORK_COS = WORK_COS * WORK_230
GOTO 356
N351 WORK_SET = ABS[WORK_A]
WORK_SIN = ABS[COS[WORK_SET]] ;
WORK_COS = ABS[SIN[WORK_SET]] ;
N352 WORK_SIN = WORK_SIN * WORK_230
WORK_COS = WORK_COS * WORK_230
/**
N356 VERT_LEN = 0
IF [WORK_A NE 0 && WORK_A NE #0] GOTO 355;
WORK_SET = [WORK_X2-WORK_X1]/[WORK_Z2-WORK_Z1];
GOTO 357
N355 WORK_SET = TAN[WORK_A] ;
N357 CROS_Z = [#5041*WORK_D] * WORK_SET + #5042
CROS_Z = CROS_Z /[WORK_SET * WORK_SET + 1]
CROS_X = CROS_Z * WORK_SET
IF[ROUND[ABS[CROS_Z-#5042]*#21822]/#21822 GT #21823]GOTO358
IF [WORK_A NE 0 && WORK_A NE #0] GOTO 380;
WORK_SET = -1/[[WORK_X2-WORK_X1]/[WORK_Z2-WORK_Z1]];
WORK_SET = ATAN[WORK_SET]/[1];
WORK_COS = [COS[WORK_SET]] ;
N381 WORK_COS = WORK_COS * WORK_230
GOTO 387
N380 WORK_SET = [WORK_A]
WORK_SET = -[1/TAN[WORK_A]];
WORK_SET = ATAN[WORK_SET]/[1];
WORK_COS = [COS[WORK_SET]] ;
N382 WORK_COS = WORK_COS * WORK_230
N387 IF[COFI_A LT 0 && COFI_B EQ 0] THEN WORK_COS=-WORK_COS
GOTO 359
/***
N358 IF [CROS_Z-#5042 LE 0] THEN;
WORK_COS=-WORK_COS ;
ENDIF
N359 IF[ROUND[ABS[CROS_X-#5041*WORK_D]*#21822]/#21822 GT #21823]GOTO 361;
IF [WORK_A NE 0 && WORK_A NE #0] GOTO 385;
WORK_SET = -1/[[WORK_X2-WORK_X1]/[WORK_Z2-WORK_Z1]];
WORK_SET = ATAN[WORK_SET]/[1];
N383 WORK_SIN = [SIN[WORK_SET]] ;
WORK_SIN = WORK_SIN * WORK_230
GOTO 388
N385 WORK_SET = [WORK_A]
WORK_SET = -[1/TAN[WORK_A]];
WORK_SET = ATAN[WORK_SET]/[1];
WORK_SIN = [SIN[WORK_SET]] ;
N384 WORK_SIN = WORK_SIN * WORK_230
N388 IF[COFI_A LT 0 && COFI_B EQ 0] THEN WORK_SIN=-WORK_SIN
GOTO 360
N361 IF [[CROS_X-#5041*WORK_D] LE 0] THEN;
WORK_SIN=-WORK_SIN ;
ENDIF;
ENDIF ;
ENDIF;