|
%_N_L9851_SPF
: ~1 z2 I+ O& }7 YPROC L9851(INT TOOLNO)
, `. J# ^4 R' i: O1 mDEF INT ACT_TOOLNO
# L& q2 N6 h) m( z; `DEF REAL ACT_TOOL_LENGTH,W_POS,V_POS
, _! Y2 P& ^% n+ Q/ cIF $P_SUBPAR[1]==TRUE
) W) E, z; \: R# DACT_TOOLNO=TOOLNO
( l" u- L, k- d. F& m( ?/ WELSE1 a* Y+ f) E# h6 `" X
ACT_TOOLNO=$P_TOOLNO$ T/ _# l% m* T3 n$ c3 Z2 K3 e r
ENDIF
" [" b" K5 T- c% Q! H* `ACT_TOOL_LENGTH=$TC_DP3[ACT_TOOLNO,1]+$TC_DP12[ACT_TOOLNO,1]5 h7 y0 C7 u) a( b2 g1 a9 H% D
W_POS=$AA_IM[W]1 @; M$ ], z g/ e* d" l# o. I
V_POS=$AA_IM[V]
& k' P3 f- o6 U: @$P_CHBFR[0]=CTRANS(Z,ACT_TOOL_LENGTH-W_POS-V_POS)/ w7 `, B! q4 A9 C5 R" l/ W
R0=$P_GG[8]
, u* V& _8 E `' m3 Q0 JG[8]=R0
8 F# o! w& T& I' ]! H% _1 AM17 |
|