|
%_N_L9851_SPF
6 H& G& ?2 i, T4 s( ^9 ]PROC L9851(INT TOOLNO)
, ^% X' n6 D* G0 b; ]DEF INT ACT_TOOLNO
7 u" Y! |' m- \DEF REAL ACT_TOOL_LENGTH,W_POS,V_POS# x6 ~2 i' i1 m! l7 C8 [
IF $P_SUBPAR[1]==TRUE
3 Z8 q2 L. d2 EACT_TOOLNO=TOOLNO/ p- E7 V$ O5 f! E) X) }; G6 v
ELSE
& P M6 y3 `" V/ k" _- WACT_TOOLNO=$P_TOOLNO- R3 [; U* o( G
ENDIF
8 h* F- P2 J3 W* _" c. c5 u6 tACT_TOOL_LENGTH=$TC_DP3[ACT_TOOLNO,1]+$TC_DP12[ACT_TOOLNO,1]+ b5 [; h$ E" y. R- J
W_POS=$AA_IM[W] `1 N! o1 Q! v1 N; X3 x- ^# }
V_POS=$AA_IM[V]5 B H# p0 y( O" G" F
$P_CHBFR[0]=CTRANS(Z,ACT_TOOL_LENGTH-W_POS-V_POS)
$ d+ l5 \2 W4 UR0=$P_GG[8]1 I5 c7 t: @. i% x/ y) P
G[8]=R0- E. H: u9 H' l% v0 N( z( c. L
M17 |
|