|
%_N_L9851_SPF8 Q! h6 M/ a0 b5 R5 V3 Z7 ~
PROC L9851(INT TOOLNO)
% W) `8 D/ A5 {4 x1 d( ODEF INT ACT_TOOLNO& a) |" S; b+ g: ]: s+ w9 O7 f
DEF REAL ACT_TOOL_LENGTH,W_POS,V_POS
z7 l9 T6 P& o0 LIF $P_SUBPAR[1]==TRUE
. H1 u; e" r' Q6 o/ p" K, g( s8 RACT_TOOLNO=TOOLNO
% b' a7 ? _3 N2 T! ^ELSE6 K+ S% N6 u% u( ^ m. N: [. Z
ACT_TOOLNO=$P_TOOLNO
! p/ M/ v' x2 @4 S0 J0 S/ Z$ @ENDIF
7 Q) Q8 i1 ]/ n2 q9 |* I6 T2 PACT_TOOL_LENGTH=$TC_DP3[ACT_TOOLNO,1]+$TC_DP12[ACT_TOOLNO,1]
6 ^9 k' Z0 V T6 _W_POS=$AA_IM[W]+ N# g0 A3 x; J1 U# \
V_POS=$AA_IM[V]
) w& h! |% v, o9 V$P_CHBFR[0]=CTRANS(Z,ACT_TOOL_LENGTH-W_POS-V_POS)% m' f; O9 n F: A! z. y$ O
R0=$P_GG[8]
p: R( }0 F1 k9 D6 e2 g# TG[8]=R0
4 B$ y% C# u- k UM17 |
|