|
%_N_L9851_SPF8 V7 b5 }: a7 @4 x/ v
PROC L9851(INT TOOLNO)
% v9 E: {2 I3 p- ^7 c$ wDEF INT ACT_TOOLNO) }7 t+ G5 \ y d) z/ E9 l. Y
DEF REAL ACT_TOOL_LENGTH,W_POS,V_POS
1 k. f! r' }5 tIF $P_SUBPAR[1]==TRUE
8 ~, J c9 j- k8 W* Q& |ACT_TOOLNO=TOOLNO
8 X6 ^1 Y( a4 C! n# F; J4 HELSE( L8 T" w( r$ Q6 O" q+ G n# _
ACT_TOOLNO=$P_TOOLNO
3 [6 y( b H; V7 [ENDIF
0 q1 ^# |$ x e0 VACT_TOOL_LENGTH=$TC_DP3[ACT_TOOLNO,1]+$TC_DP12[ACT_TOOLNO,1]
# f* d% R: d' d/ h0 E$ u. w% m+ O- J cW_POS=$AA_IM[W]
" i! j1 f8 ]( \- s6 W1 O, XV_POS=$AA_IM[V]
" j1 ~6 J W* i$ ~3 c$P_CHBFR[0]=CTRANS(Z,ACT_TOOL_LENGTH-W_POS-V_POS)
$ n+ Q& g6 |0 V2 g$ ]! ^8 G) I" jR0=$P_GG[8]
- M0 b; R1 H' b% J. E7 rG[8]=R05 l& t9 a! F$ V
M17 |
|