Start
$ ^" [& f4 J1 D' c: B6 E0 RInclude(variabledefines)
" L5 x! h1 S, a4 p. Y2 a9 JInclude(definedefaults)% n/ O" c5 s1 w
RunFunction(shaftdata2)
% y% z I& K( C7 C' {$ {DefineGaugeAdjustParameters(1,1,2,1)
- E" |7 A% l) lWriteBoolean( PPB_WorkRunOff, 0)( L: {/ u; m( m) E$ ]& o( _! I
B_Axis_Angle= 0! g/ T2 M: R( p7 [
RunPartProgram(testturretmove)5 S+ {, m# b' N6 b( ?6 s6 C6 n
WaitPartProgram()
' R8 j) k" k% \7 J/ |GrindClearanceRadius(1,110.0000)# k/ `1 R) N( f+ U
'WriteBoolean( PPB_ColdStart, 1)$ L" H8 z: R ^: O, {( m$ H
'ReadBoolean( PPB_ColdStart, ColdStart)
7 u! i1 N3 ~7 D1 P$ ?" v; x6 A'IF( ColdStart > 0)) f' S; j4 T1 p
'StatusMessage(1,"Gauge Calibration"). P5 H& Y3 R u0 [8 U, S
'MoveAxis(Z2,0.0000,MoveAxis_Set1,2). g$ e. ^( h0 o
'WriteBoolean( PPB_GageZeroing, 1)
j- e) B8 J- y% O' I# t. l4 F( f# Y'ReadReal( PPR_CalDiff, CalDiff)4 C& P& m7 P! B0 ]. I* |4 D
'GaugeSize(1,-368.00,0.0000,0.0000,266.725,0,1,1,GaugeSize_Set1,8)
) ^ B* a0 ?: H: u2 L'WriteBoolean( PPB_GageZeroing, 0)! |, n- b+ q: u
'DefineGaugeAdjustParameters(1,1,2,1)
" {# ]* E6 Q' f9 _ F( e'ENDIF
9 H3 o0 Y6 b! Z: f/ x( i'Print("CalDiff=" , CalDiff)7 B6 k% ^8 F5 k7 K1 `, G3 v' ?0 ^* s
MoveAxis(Z2,WhlOffset + WWidth - 20,MoveAxis_Set1,2)
5 m1 o5 c* J' q''
; j# j" J$ L Z: r9 F# w# h# C) a'LatRet= 0; m9 d6 l" _- }9 @
'LocateLateralReturnMeasurement(2,50,60.0000,0.0000,L0 + LHBody - Facestock,0.0000,LatRet,LateralLocation_Set1,6)" E$ w6 _2 Z( h' A: w0 {
'Print("Lateral Return =" , LatRet)
; H9 O7 b h) @: `ReadBoolean( SPB_MC_SingStep, SingleStep)( E7 F# g( R; _) L
IF( SingleStep > 0)
+ p0 K+ R/ k A8 x/ }; c5 nMessageBox("STOCK CHECK","Has LH body face already been ground?","If you answer 'yes' stock will be subtracted","from lateral return measurement.","",7,MessageRet)7 e" G" ]+ L+ c$ y6 v$ i! i
IF( MessageRet < 0)
# `; X" d P' D# S" C# ~3 Q7 Y( @' ^Print("No change to lateral return")7 s$ U; l& Y: T4 X9 L
ELSE
G4 f3 ?8 G# d* w* j) JLatRet= LatRet - LHFaceStock
$ p) Z' B8 k3 U g* [: Y: uPrint("Lateral Return =" , LatRet)
! H. {% T8 t2 Y' c1 z6 @/ kENDIF
. t$ q& Q0 s5 K1 @' D- ^ENDIF$ ^7 f, @, H% y5 n- s
|