|
%_N_L9851_SPF' m3 F6 U R* L! i R% }& i
PROC L9851(INT TOOLNO)! y0 ?6 V* s3 X! ^4 ~. F
DEF INT ACT_TOOLNO0 e' P5 s# b1 U! _2 {
DEF REAL ACT_TOOL_LENGTH,W_POS,V_POS) h( V' d3 |: D1 e9 r
IF $P_SUBPAR[1]==TRUE% ]5 i/ |$ _7 r% B8 d4 Y3 E
ACT_TOOLNO=TOOLNO
4 S' x4 J( }1 w+ V* |8 @' VELSE
8 H/ ^( _' Q1 E/ @/ f" zACT_TOOLNO=$P_TOOLNO
1 o i/ K( Q! m5 G X% D: sENDIF; y1 w, C5 v q
ACT_TOOL_LENGTH=$TC_DP3[ACT_TOOLNO,1]+$TC_DP12[ACT_TOOLNO,1]
6 U$ l, M; C5 _% q, A; d0 PW_POS=$AA_IM[W]
$ F+ E/ N4 n' U# a$ n6 vV_POS=$AA_IM[V]
. c4 Y$ X2 w# k5 g$ \9 n( c2 s$P_CHBFR[0]=CTRANS(Z,ACT_TOOL_LENGTH-W_POS-V_POS)
' o* c, N# Z( e8 A8 J" V2 MR0=$P_GG[8]
4 |! D# {) P. u/ e1 T) tG[8]=R04 r, N3 P+ L6 `: j, y
M17 |
|