Start, c7 `% F0 b1 K$ r/ {
Include(variabledefines)7 }+ t6 t d! A, E, h- @1 T
Include(definedefaults)
- p, }/ n) `' @8 U; K1 S+ pRunFunction(shaftdata2)+ {! Z) a8 ?5 s: a# p/ ~, k- I
DefineGaugeAdjustParameters(1,1,2,1)6 A8 Q0 ` j" p2 R
WriteBoolean( PPB_WorkRunOff, 0); M0 w& j& `" C* K
B_Axis_Angle= 0
; U f( L; }) T+ ~/ `; u5 DRunPartProgram(testturretmove)5 u( U6 @6 t" O3 j
WaitPartProgram()
g" N' `5 t" nGrindClearanceRadius(1,110.0000)# C5 ]4 T3 T& N. d# _ t
'WriteBoolean( PPB_ColdStart, 1)( M7 S) {6 g3 E% e: ]% k' u
'ReadBoolean( PPB_ColdStart, ColdStart)4 A8 {. R7 \4 _+ S* s3 c; U* y- h
'IF( ColdStart > 0)
5 M5 _* l! l: Y2 n0 }/ u8 n* }% ~'StatusMessage(1,"Gauge Calibration")8 u2 ]% R7 N5 C" t
'MoveAxis(Z2,0.0000,MoveAxis_Set1,2)
* y& Z/ |0 _( H ?! b'WriteBoolean( PPB_GageZeroing, 1)
8 H5 z! N& |$ O'ReadReal( PPR_CalDiff, CalDiff)
6 U3 T# u1 }+ ?4 ^& e'GaugeSize(1,-368.00,0.0000,0.0000,266.725,0,1,1,GaugeSize_Set1,8)0 E- @2 ~" H: L
'WriteBoolean( PPB_GageZeroing, 0)8 _1 O0 L$ M8 C$ ]9 h
'DefineGaugeAdjustParameters(1,1,2,1); H" ^# z9 C* t
'ENDIF
$ j- }0 b6 I2 `9 v3 E2 m, G'Print("CalDiff=" , CalDiff)$ o4 u3 \, {2 o, }# J" H- ^
MoveAxis(Z2,WhlOffset + WWidth - 20,MoveAxis_Set1,2)
( o$ j9 H' L. K& A''
, }5 ^ R( E, C3 Q4 T'LatRet= 0
; J* y5 `5 f! X/ m'LocateLateralReturnMeasurement(2,50,60.0000,0.0000,L0 + LHBody - Facestock,0.0000,LatRet,LateralLocation_Set1,6)" ]% B+ O% X. H# w @5 d) H
'Print("Lateral Return =" , LatRet)+ i( P: C9 }* m
ReadBoolean( SPB_MC_SingStep, SingleStep)9 a& m& P5 m: m W; J
IF( SingleStep > 0)# K. Y; Z( V3 L6 f2 k
MessageBox("STOCK CHECK","Has LH body face already been ground?","If you answer 'yes' stock will be subtracted","from lateral return measurement.","",7,MessageRet)
! a5 b( O7 b( F+ D8 {( F; p$ E) Q& |IF( MessageRet < 0)
; t8 U/ |: q% w# P/ v5 oPrint("No change to lateral return")
# I7 l5 f5 r( @& u0 M+ {& K' XELSE
9 t9 M+ ]' c. P; [LatRet= LatRet - LHFaceStock0 ^* O9 k1 Q. Z2 w; N `2 p& _7 g$ T
Print("Lateral Return =" , LatRet)( P# u( S: O) F
ENDIF
/ w" `& J4 N9 r- L6 q% r4 f# kENDIF2 |* |9 J9 `- u& S( b
|
發表于 2018-4-26 23:40:29
QQ好友和群
QQ空間