|
%_N_L9851_SPF. B+ i, f. A( }2 }9 w1 ~
PROC L9851(INT TOOLNO)$ c$ _3 Q# c8 k: f
DEF INT ACT_TOOLNO" f2 a' a* j# Q4 x' U5 D4 G
DEF REAL ACT_TOOL_LENGTH,W_POS,V_POS
' U2 h1 N3 u! Y7 e8 S; w' a+ vIF $P_SUBPAR[1]==TRUE7 }1 n, w* D0 A) c) N- n
ACT_TOOLNO=TOOLNO0 O% K2 b/ E& g# A5 Y
ELSE
4 J7 o& B3 e3 J! |6 j" \) jACT_TOOLNO=$P_TOOLNO
; Y; t; @& M) m) q: f; v9 uENDIF
5 h' t/ O# B+ ~* o, a6 ^ACT_TOOL_LENGTH=$TC_DP3[ACT_TOOLNO,1]+$TC_DP12[ACT_TOOLNO,1]
5 ^0 |. @0 _) [6 ~( i- o/ vW_POS=$AA_IM[W]
: z4 d* |6 N- P1 i( AV_POS=$AA_IM[V]
, {5 n; i* K0 }6 m2 p! n, ]$P_CHBFR[0]=CTRANS(Z,ACT_TOOL_LENGTH-W_POS-V_POS)2 Y$ B& f* F( m2 d7 U
R0=$P_GG[8] ?" n, C% ~: \6 T
G[8]=R0
5 S; ]0 W1 I8 f) E& E+ F" VM17 |
|