|
%_N_L9851_SPF
- E$ R) k1 _' U$ _9 Y, E! z5 g; KPROC L9851(INT TOOLNO)
. q" w* L1 {) fDEF INT ACT_TOOLNO
2 \0 h' J8 j" Q9 j$ e, d' U! E5 uDEF REAL ACT_TOOL_LENGTH,W_POS,V_POS
% S0 ]% I8 b0 h; W) V) d2 t+ yIF $P_SUBPAR[1]==TRUE
4 S! g5 I- E6 ^ACT_TOOLNO=TOOLNO
! @" ~2 N5 G/ n/ MELSE \; i: Q9 }( ~0 S
ACT_TOOLNO=$P_TOOLNO
% a* Y' n s, h( M$ h; D! k9 qENDIF
0 B+ l- T% x7 HACT_TOOL_LENGTH=$TC_DP3[ACT_TOOLNO,1]+$TC_DP12[ACT_TOOLNO,1]) B6 Y3 \* D" Z. o4 U& q( N
W_POS=$AA_IM[W]
/ d+ n1 ~- ]2 J) |& S% RV_POS=$AA_IM[V]0 Z' f7 U' ?# R
$P_CHBFR[0]=CTRANS(Z,ACT_TOOL_LENGTH-W_POS-V_POS)
9 ~6 n7 J# \" v6 T% DR0=$P_GG[8]- Y/ ^; U2 w9 G6 k/ S
G[8]=R0
/ M3 V9 z% E' G. lM17 |
|