|
%_N_L9851_SPF
* n+ B, T/ S1 _ `& LPROC L9851(INT TOOLNO)7 r. x6 q' w c5 ] B. O
DEF INT ACT_TOOLNO) q8 P& v! w, A6 Q5 z* P
DEF REAL ACT_TOOL_LENGTH,W_POS,V_POS% ]4 R2 j' f5 F4 K3 @. e# C
IF $P_SUBPAR[1]==TRUE
! ?9 S% _( \6 S6 rACT_TOOLNO=TOOLNO; x/ t& Z5 y+ M e
ELSE. k3 Y; r! I/ l) i
ACT_TOOLNO=$P_TOOLNO# V% ^' d- n+ X7 b( E% L, u
ENDIF4 J( i/ t3 Y- m
ACT_TOOL_LENGTH=$TC_DP3[ACT_TOOLNO,1]+$TC_DP12[ACT_TOOLNO,1]+ j2 K' u/ a3 I% h$ i' }) K
W_POS=$AA_IM[W]# b( ~7 P( Z3 X0 T$ F- z
V_POS=$AA_IM[V]8 ?/ ]+ x' y1 n% Z3 a
$P_CHBFR[0]=CTRANS(Z,ACT_TOOL_LENGTH-W_POS-V_POS)5 m4 V. l. Q% h
R0=$P_GG[8]* W0 B- H# ^4 G' |# n! j* K5 F
G[8]=R0
# F, u' A! v5 H9 vM17 |
|