Start) S# g& q: x+ T2 c: z4 s( G
Include(variabledefines)
! e, E! B d. zInclude(definedefaults)9 R2 y- w [0 I# }/ G; o
RunFunction(shaftdata2); s' m8 u0 x7 x3 W; M" R
DefineGaugeAdjustParameters(1,1,2,1)- K9 {. e7 Q- n- e6 Y
WriteBoolean( PPB_WorkRunOff, 0)
8 }8 h4 `) B! b7 p5 d( z% LB_Axis_Angle= 0
; @3 ?5 I( _, I" @4 Q- dRunPartProgram(testturretmove)/ O4 }4 Q; V; [/ `. K
WaitPartProgram()8 ^% O' {" _. g2 r+ R- i$ {
GrindClearanceRadius(1,110.0000)
; Y% C0 L( n* r% K' U7 j) t0 k5 A+ G'WriteBoolean( PPB_ColdStart, 1), m+ R" q4 s/ r G" @
'ReadBoolean( PPB_ColdStart, ColdStart)
! u% ]& O# b% E- D5 i, S) i5 O'IF( ColdStart > 0)
) {4 O/ o% }! h: w'StatusMessage(1,"Gauge Calibration")9 o3 W0 A2 X0 E
'MoveAxis(Z2,0.0000,MoveAxis_Set1,2)2 @7 @( h8 f6 t+ l
'WriteBoolean( PPB_GageZeroing, 1), m5 T C( y, y$ M. Q
'ReadReal( PPR_CalDiff, CalDiff)
& J2 I3 ~1 l1 G'GaugeSize(1,-368.00,0.0000,0.0000,266.725,0,1,1,GaugeSize_Set1,8)
# q, R! A* @* j' D; a'WriteBoolean( PPB_GageZeroing, 0)
j$ ^& h6 S: {* Y'DefineGaugeAdjustParameters(1,1,2,1). Q' e/ Y% r; |. m2 N
'ENDIF7 f+ S4 _% s; l" P: K) n
'Print("CalDiff=" , CalDiff)/ ]! g* i- X9 A# _2 j1 r5 {
MoveAxis(Z2,WhlOffset + WWidth - 20,MoveAxis_Set1,2)
( q3 }+ V) i1 p e''8 X% m. q' x) p( \# {7 r8 f
'LatRet= 03 r& s+ e0 \7 I/ P" r
'LocateLateralReturnMeasurement(2,50,60.0000,0.0000,L0 + LHBody - Facestock,0.0000,LatRet,LateralLocation_Set1,6)
# U. P+ f) }! M0 p8 I& ^'Print("Lateral Return =" , LatRet)0 U j- W0 }/ P9 b* t A9 }
ReadBoolean( SPB_MC_SingStep, SingleStep)# \1 Z& t, s. p: Q/ g
IF( SingleStep > 0)$ `+ w) _6 n' G- h
MessageBox("STOCK CHECK","Has LH body face already been ground?","If you answer 'yes' stock will be subtracted","from lateral return measurement.","",7,MessageRet)# m( t$ E# `6 v
IF( MessageRet < 0)
; ^% M3 v* f2 E5 lPrint("No change to lateral return")# k8 `( e" a2 {; z
ELSE
; d" `* o2 b1 w G% v2 WLatRet= LatRet - LHFaceStock; M4 x" f' O9 _5 S q
Print("Lateral Return =" , LatRet)# r2 x8 S, E) M, `( I' J# Q. h
ENDIF( B# T% q7 p' M! f7 ]3 k$ Z
ENDIF( o( d( t2 a; u! M+ z- ]9 {
|
发表于 2018-4-26 23:40:29
楼主