|
%_N_L9851_SPF
* n* S) b# N+ D$ u$ R9 G# h$ IPROC L9851(INT TOOLNO)# w s- x& q B% F" {( m
DEF INT ACT_TOOLNO3 _, Q/ ^. Z- w2 P
DEF REAL ACT_TOOL_LENGTH,W_POS,V_POS0 k) s( ~6 L3 d
IF $P_SUBPAR[1]==TRUE& n4 z+ j. G0 u+ W/ k! J5 i
ACT_TOOLNO=TOOLNO
- z: N1 s; x& Q+ ~ELSE
4 @, `0 X: _8 ^4 q5 C f! iACT_TOOLNO=$P_TOOLNO
) B% o7 C6 I* f0 | sENDIF T. o0 A& F. C/ M( U( V
ACT_TOOL_LENGTH=$TC_DP3[ACT_TOOLNO,1]+$TC_DP12[ACT_TOOLNO,1]+ ?- s$ M. C C$ M, G& ^2 J
W_POS=$AA_IM[W]3 ~8 q# z d2 ?, t1 b3 S2 @5 ]
V_POS=$AA_IM[V]# w' x+ q$ Y) ^
$P_CHBFR[0]=CTRANS(Z,ACT_TOOL_LENGTH-W_POS-V_POS)% E5 O: S: C2 H) k
R0=$P_GG[8]: t7 b7 I9 b7 L+ R" r
G[8]=R0
* m y1 F& B! ?0 B' D9 k) w; i: PM17 |
|