Start! @8 S3 b2 g9 F! _6 J
Include(variabledefines)4 Z, e$ G& q5 `
Include(definedefaults)
1 |0 o% ]& n. S/ c. ^3 l8 PRunFunction(shaftdata2)) v6 S* z% s, w, M/ C1 S
DefineGaugeAdjustParameters(1,1,2,1)- @. ]/ P$ L, I* _( {) E( J' M
WriteBoolean( PPB_WorkRunOff, 0)8 J8 f: B; @+ v
B_Axis_Angle= 04 D) h/ J$ @3 M. \) F
RunPartProgram(testturretmove)) L" p2 ]; E3 X4 I0 E8 ], n
WaitPartProgram()
/ v9 ~3 c/ q; H7 L& F tGrindClearanceRadius(1,110.0000)
2 D( t! E$ e: J+ W. a/ g'WriteBoolean( PPB_ColdStart, 1)9 u- p% b' {* \$ j* @" B: F
'ReadBoolean( PPB_ColdStart, ColdStart) _$ C+ m& }% x V) ]
'IF( ColdStart > 0)% ?2 b' `5 W; K' f
'StatusMessage(1,"Gauge Calibration")
+ D. L* `8 D) [. x% I, I'MoveAxis(Z2,0.0000,MoveAxis_Set1,2)) b0 b* h7 A; V/ r! X% J) a- U
'WriteBoolean( PPB_GageZeroing, 1)
# z) p2 i: j$ z+ c& }, t/ `'ReadReal( PPR_CalDiff, CalDiff)( |5 L \( G/ o( o/ K! v- B8 U* t8 V; N
'GaugeSize(1,-368.00,0.0000,0.0000,266.725,0,1,1,GaugeSize_Set1,8)
5 t4 h5 u i8 V. E; E1 A'WriteBoolean( PPB_GageZeroing, 0)
) M# o1 m- N: m& j'DefineGaugeAdjustParameters(1,1,2,1)* X7 M7 Q' o1 C. \
'ENDIF
; R8 O" p7 M2 w'Print("CalDiff=" , CalDiff)2 c9 T* R1 u% k9 O4 z( r& L" I9 b+ L
MoveAxis(Z2,WhlOffset + WWidth - 20,MoveAxis_Set1,2)
! |+ |/ s9 h3 O* W, U0 [& ?''
% ~9 F# d) T! V7 ]) b'LatRet= 0
, J t7 T |; c( X5 M$ ?. |'LocateLateralReturnMeasurement(2,50,60.0000,0.0000,L0 + LHBody - Facestock,0.0000,LatRet,LateralLocation_Set1,6)) f0 w. ~ C0 Z$ `% k
'Print("Lateral Return =" , LatRet)
/ [: k# d0 ?7 U V$ u8 c" TReadBoolean( SPB_MC_SingStep, SingleStep)( l& R- [, d! ~: Y# v
IF( SingleStep > 0)
: Y* b O3 ]7 l7 tMessageBox("STOCK CHECK","Has LH body face already been ground?","If you answer 'yes' stock will be subtracted","from lateral return measurement.","",7,MessageRet)9 A1 r" V& X% C. t! ?
IF( MessageRet < 0)
& d" f3 g* Y" e! M7 ~Print("No change to lateral return")+ L1 h, H- d2 M3 g
ELSE* s' u8 m$ `7 }0 ~' ?" Y
LatRet= LatRet - LHFaceStock" z2 t# P# ^8 a+ p* ^! b
Print("Lateral Return =" , LatRet)
1 z1 i! [( g6 m0 S3 B zENDIF- e& I1 v# t0 u- W
ENDIF$ r3 y4 l( n8 A% Z( r: U
|
发表于 2018-4-26 23:40:29
楼主