|
%_N_L9851_SPF
b; P/ z: G( _0 L MPROC L9851(INT TOOLNO) W" ?# T2 i) i% i; L: `; `; g8 X. M
DEF INT ACT_TOOLNO
1 Z+ d; V* Z6 o( N7 `: MDEF REAL ACT_TOOL_LENGTH,W_POS,V_POS
+ C& E* S6 I( o; p. r8 ZIF $P_SUBPAR[1]==TRUE0 y" e" p0 m( f4 v; i
ACT_TOOLNO=TOOLNO
$ K# Z. @; I5 T* w+ P- u5 YELSE8 q3 U, p' ]* V! ~
ACT_TOOLNO=$P_TOOLNO4 R a4 ?! {( C7 n8 r( ]& ]* j( C
ENDIF
/ m5 ]" v' {/ s: Z' [ACT_TOOL_LENGTH=$TC_DP3[ACT_TOOLNO,1]+$TC_DP12[ACT_TOOLNO,1]
, P; G/ w7 h L& x% K2 I0 q4 lW_POS=$AA_IM[W]
2 h. |7 Q o/ g, ~6 h, iV_POS=$AA_IM[V]7 G- W- P' H: g) F! n
$P_CHBFR[0]=CTRANS(Z,ACT_TOOL_LENGTH-W_POS-V_POS)
9 o* {2 C9 T( ER0=$P_GG[8]) f9 H, ~. [% y% Y" s; k8 X
G[8]=R05 c k! ^4 I- B, w( s
M17 |
|