Start, l9 c' K Z, _5 m0 I I
Include(variabledefines)
" O! B" r( t5 U( OInclude(definedefaults)
/ z" F% y; [. J% IRunFunction(shaftdata2)/ P6 z3 z t0 B" g5 N: J, {
DefineGaugeAdjustParameters(1,1,2,1)
; O5 U, k4 u9 @' BWriteBoolean( PPB_WorkRunOff, 0). J" I. M' i, v/ A4 x5 t3 F, p
B_Axis_Angle= 0
: U& K4 k. A2 }# \ pRunPartProgram(testturretmove): v( |' u7 G( U. c- I
WaitPartProgram()
6 y$ J, {/ d N: ` {GrindClearanceRadius(1,110.0000)
& v( f- @4 d, K0 o+ k'WriteBoolean( PPB_ColdStart, 1)- ?2 v) g8 u5 @& c; \0 X/ a% ^
'ReadBoolean( PPB_ColdStart, ColdStart)8 q9 F( m1 P8 T% I0 Z
'IF( ColdStart > 0)
/ @4 j! k) [( o% @4 Z* @5 V. P'StatusMessage(1,"Gauge Calibration")7 _* B% c! S; m$ F8 Y8 I3 Z: R
'MoveAxis(Z2,0.0000,MoveAxis_Set1,2)
# g0 z3 C! l7 ], F9 U7 u2 o'WriteBoolean( PPB_GageZeroing, 1)
: }0 V) ~8 q: K! c; m'ReadReal( PPR_CalDiff, CalDiff)
6 S0 ^8 }* F1 y; W2 d'GaugeSize(1,-368.00,0.0000,0.0000,266.725,0,1,1,GaugeSize_Set1,8)" W7 y; T8 K; @$ t; E. B
'WriteBoolean( PPB_GageZeroing, 0)% k6 h4 _" z _
'DefineGaugeAdjustParameters(1,1,2,1). V" u0 Z" f8 {. U
'ENDIF3 n0 U- G- B% G& W8 s! w
'Print("CalDiff=" , CalDiff)
5 G! y7 V4 n+ ^: ?( c: SMoveAxis(Z2,WhlOffset + WWidth - 20,MoveAxis_Set1,2)
! | N/ p- c, H! U; x''
# R7 n4 r6 X7 Q) L: ]* |'LatRet= 0
' S! [7 L: l+ W: a8 d6 v: O# k'LocateLateralReturnMeasurement(2,50,60.0000,0.0000,L0 + LHBody - Facestock,0.0000,LatRet,LateralLocation_Set1,6)1 m$ p5 r! ]- ?# A1 w7 \3 L
'Print("Lateral Return =" , LatRet)
: Z8 n0 r, u7 G5 }5 ]& H0 h/ B' z @ReadBoolean( SPB_MC_SingStep, SingleStep)2 H r, \- g. R
IF( SingleStep > 0)# n) \# g9 L, x- ^+ t
MessageBox("STOCK CHECK","Has LH body face already been ground?","If you answer 'yes' stock will be subtracted","from lateral return measurement.","",7,MessageRet)
9 s6 P6 l* H3 i' m" iIF( MessageRet < 0)" i8 |" C1 t" A4 D+ w7 \
Print("No change to lateral return")1 V1 V: K a$ }
ELSE
$ A( K' E) r" `9 O2 ~: I. Q: k3 sLatRet= LatRet - LHFaceStock
* _' X( Q& H: M- Z/ t7 jPrint("Lateral Return =" , LatRet)
4 l- T5 y3 f- GENDIF0 P6 P: q* n! O( f- O# g
ENDIF8 \: E' @. g" N) b
|
发表于 2018-4-26 23:40:29
楼主