Start: J" G$ X5 y! G# m, T% k
Include(variabledefines)8 T' h/ x1 T0 Z- B9 b
Include(definedefaults)# a7 V9 S* ^2 S6 [/ i0 d2 i. s
RunFunction(shaftdata2)
# s W+ U- I& {+ g. Y9 I5 _0 z. cDefineGaugeAdjustParameters(1,1,2,1)
9 g1 L; `4 u! F% y- l+ l# p: R* oWriteBoolean( PPB_WorkRunOff, 0)
p( H- B9 S6 b' _; C6 K! EB_Axis_Angle= 0 l, X$ g+ Y$ y, |' l
RunPartProgram(testturretmove)
# K: _ e/ R8 X1 n: XWaitPartProgram()! R" x# a/ D; O! c
GrindClearanceRadius(1,110.0000)
/ \/ a3 M5 X$ s$ o'WriteBoolean( PPB_ColdStart, 1)
- O0 D4 |( ?' d, [. p'ReadBoolean( PPB_ColdStart, ColdStart)
8 c7 F4 f! P) e' \& I'IF( ColdStart > 0)% X M+ |# d- ^* z) c% u
'StatusMessage(1,"Gauge Calibration"); J( ^/ ^( z4 _3 ~* I q3 c
'MoveAxis(Z2,0.0000,MoveAxis_Set1,2)# }2 ?% w; `3 s0 Y$ ]3 I
'WriteBoolean( PPB_GageZeroing, 1)( }3 v, N8 F! @& _& N# H& P
'ReadReal( PPR_CalDiff, CalDiff); D+ K* L0 N' Q7 Z6 J3 b
'GaugeSize(1,-368.00,0.0000,0.0000,266.725,0,1,1,GaugeSize_Set1,8)
& d- P9 @9 D* y* y/ n'WriteBoolean( PPB_GageZeroing, 0)
( C, `8 p( s6 Y6 j" `8 f6 k* C'DefineGaugeAdjustParameters(1,1,2,1)- B8 [* L' ?/ x& L
'ENDIF2 m# G) q2 {3 b9 u/ N
'Print("CalDiff=" , CalDiff): F2 A' V9 D O" F$ h1 Y
MoveAxis(Z2,WhlOffset + WWidth - 20,MoveAxis_Set1,2)
" B, x0 I5 k& p* R5 ]6 k''* w( w2 X! n) d
'LatRet= 0# x2 }2 N8 R g1 V
'LocateLateralReturnMeasurement(2,50,60.0000,0.0000,L0 + LHBody - Facestock,0.0000,LatRet,LateralLocation_Set1,6)* T8 s$ v" k8 Y* I
'Print("Lateral Return =" , LatRet)
1 k3 O" s3 }1 k) Z5 C' UReadBoolean( SPB_MC_SingStep, SingleStep)7 \. L) `% {! J
IF( SingleStep > 0)
9 S! B) t- U* w0 GMessageBox("STOCK CHECK","Has LH body face already been ground?","If you answer 'yes' stock will be subtracted","from lateral return measurement.","",7,MessageRet)) @6 M2 ?& W8 ?0 y1 z
IF( MessageRet < 0)( t; |! I3 a5 j: y/ Z
Print("No change to lateral return")+ f8 v. Z \$ Z% U
ELSE$ i% [, a( |6 d- Y4 v) r
LatRet= LatRet - LHFaceStock
' \0 a: ^+ }4 q) v3 Y9 ZPrint("Lateral Return =" , LatRet)
4 \, F/ U# x/ D1 ^/ u! a$ rENDIF. ]2 x9 T6 G2 J% Q3 m; ^( k
ENDIF1 m0 B0 `) [" |: f( W/ K9 g
|
发表于 2018-4-26 23:40:29
