
5.USER PROGRAMS FOR DISPLAYING GUIDANCE DRAWING AT FIGURE DATA INPUTTING SAMPLE PROGRAM B-63343EN/02
- 184 -
/* arrow on line
/*N030 G242 X[32*COS[45]+#10010] Y[32*SIN[45]+#10011]
N030 G242 X[32*COS[45]-16] Y[32*SIN[45]+160]
/* G01 X[[32-8]*COS[45]-[0-3]*SIN[45]+#10010] Y[[32-8]*SIN[45]+[0-3]*COS[45]+#10011]
G01 X[[32-8]*COS[45]-[0-3]*SIN[45]-16] Y[[32-8]*SIN[45]+[0-3]*COS[45]+160]
/* G01 X[[32-8]*COS[45]-[0+3]*SIN[45]+#10010] Y[[32-8]*SIN[45]+[0+3]*COS[45]+#10011]
G01 X[[32-8]*COS[45]-[0+3]*SIN[45]-16] Y[[32-8]*SIN[45]+[0+3]*COS[45]+160]
/* G01 X[32*COS[45]+#10010] Y[32*SIN[45]+#10011]
G01 X[32*COS[45]-16] Y[32*SIN[45]+160]
/* G206 P4 X[[32-5]*COS[45]+#10010] Y[[32-5]*SIN[45]+#10011]
G206 P4 X[[32-5]*COS[45]-16] Y[[32-5]*SIN[45]+160]
/* line
/*N040 G242 X[32*COS[45]+#10010] Y[32*SIN[45]+#10011] ;
N040 G242 X[32*COS[45]-16] Y[32*SIN[45]+160] ;
/* G01 X#10010 Y#10011 ;
G01 X-16 Y160 ;
N050 G240 P0 C11 ; /* color = black
G243 X33 Y3 ('(X,Z)') ;
G243 X36 Y6 ('(I,K)') ;
G243 X38 Y4 ('R') ;
N300
M99 P300
/*************************************************************
/* Copyright (C) 1997 by FANUC LTD. ALL rights reserved. *
/*************************************************************
/* GUIDANCE FOR NECKING DIN509-E
O1085
G244 P1 ; /* SET DOT LINE
G240 P4 ; /* set color blue
/* #10008=0
/* #10009=170
G242 X0 Y 170 ;
G01 X0 Y[170-32] ;
G244 P0 ; /* set solid line
G01 X[0-40] Y[170-32-16] ;
G01 X[0-40-48] Y[170-32-16] ;
G02 X[0-88-16] Y[170-48+16] I[0-88] J[170-32] Q1 ;
G244 P1 ; /* SET DOT LINE
G01 X[0-104] Y170
G244 P0 ; /* set solid line
/* START POINT MARK
N015 G242 X[0-2] Y[170-32] ;
G03 X[0-2] Y[170-32] I[0] J[170-32] Q4 ;
G206 P4 X[0] Y[170-32]
/* END POINT MARK
G242 X[0-104-2] Y[170-32] ;
G03 X[0-104-2] Y[170-32] I[0-104] J[170-32] Q4 ;
G206 P4 X[0-104] Y[170-32]
/* WT line
N020 G242 X0 Y[170-16] ;
G01 X[0-88-16] Y[170-16] ;
/* right arrow on line
G01 X[0-104+3] Y[170-16+3]
G242 X[0-104] Y[170-16]
G01 X[0-104+3] Y[170-16-3]
/* left arrow on line
G242 X[0-3] Y[170-16+3] ;
G01 X0 Y[170-16]
G01 X[0-3] Y[170-16-3]
/* R line
N030 G242 X[0-88] Y[170-32] ;
G01 X[[-16]*COS[-45]+0-88] Y[16*SIN[-45]+170-32] ;
/* arrow of R line
G01 X[[-16]*COS[-45]+0-88] Y[16*SIN[-45]+170-32+3]
G242 X[[-16]*COS[-45]+0-88] Y[16*SIN[-45]+170-32] ;
G01 X[[-16]*COS[-45]+0-88+3] Y[16*SIN[-45]+170-32]
/* G242 X#10012 Y #10013 ;