Start
. V1 j. v& J" o$ J. t) ~0 K OInclude(variabledefines)
- r$ K v; }& H9 PInclude(definedefaults)! h5 W$ n6 u" _0 C
RunFunction(shaftdata2)& f/ M0 w" K1 i1 D4 x
DefineGaugeAdjustParameters(1,1,2,1)8 T& Z, I8 n% O$ O
WriteBoolean( PPB_WorkRunOff, 0)
! D% s- N, a+ d4 f- t$ v$ RB_Axis_Angle= 0* j3 ]/ K" W/ J
RunPartProgram(testturretmove)* b% C, u' @$ F6 A, a5 D
WaitPartProgram()# g/ [- q: ?$ K! @4 d5 W! S5 w3 x
GrindClearanceRadius(1,110.0000)
. G. s6 d5 i& `# H# v/ F'WriteBoolean( PPB_ColdStart, 1)
2 h3 T/ a9 E3 b+ y'ReadBoolean( PPB_ColdStart, ColdStart)3 f- f0 J9 N; i# }9 r8 n! N2 R! T
'IF( ColdStart > 0)
; E! [4 T2 {; g q5 o'StatusMessage(1,"Gauge Calibration")
" d5 [3 U8 q# R5 e'MoveAxis(Z2,0.0000,MoveAxis_Set1,2)
$ R) L; `6 p+ B. c1 Y'WriteBoolean( PPB_GageZeroing, 1)/ \; y8 W# P0 A( u3 c* f" F
'ReadReal( PPR_CalDiff, CalDiff)% ?' r% D0 i1 v% P6 \
'GaugeSize(1,-368.00,0.0000,0.0000,266.725,0,1,1,GaugeSize_Set1,8)
9 \0 e% r8 r% q/ l6 d! h) O'WriteBoolean( PPB_GageZeroing, 0)
6 Q' ?1 V. U( h! u7 b1 y'DefineGaugeAdjustParameters(1,1,2,1)
5 Y: e H* \' a. k% k2 z0 y3 L1 n'ENDIF
6 I1 _. o4 u& ?, {'Print("CalDiff=" , CalDiff)
6 j& q& L& G3 Q4 E* JMoveAxis(Z2,WhlOffset + WWidth - 20,MoveAxis_Set1,2)+ e; c; b& r$ G ?) u! W3 u" i$ ?/ h
'' ?, K, _+ y! A' @7 u6 E( h
'LatRet= 0
* ?# Q4 T0 q# h( V1 S; K: B0 C& Q'LocateLateralReturnMeasurement(2,50,60.0000,0.0000,L0 + LHBody - Facestock,0.0000,LatRet,LateralLocation_Set1,6)' u0 S% Q# d$ ^" z
'Print("Lateral Return =" , LatRet)) ~- H1 h2 X5 c$ r" c+ q9 \
ReadBoolean( SPB_MC_SingStep, SingleStep)
" { W' W. Z8 Z9 ]- o; ZIF( SingleStep > 0)* M: H3 w# d$ G
MessageBox("STOCK CHECK","Has LH body face already been ground?","If you answer 'yes' stock will be subtracted","from lateral return measurement.","",7,MessageRet)+ r. G. c2 q5 O2 T3 R# D J
IF( MessageRet < 0)
. t/ t6 ^8 H$ f$ m# B- [6 JPrint("No change to lateral return")
) {9 w, N- }0 Z, qELSE5 Q2 W' A( I; w
LatRet= LatRet - LHFaceStock: \) W. C1 u1 E S6 |( c; \9 V3 Y
Print("Lateral Return =" , LatRet)
- _" f7 Q9 _- _1 i* `ENDIF9 D. c. P4 v) l* k. a2 I
ENDIF
' z1 @2 f7 s4 ^; _: v. s; o: O |