Start
! ?6 ?4 ]1 G' e% W" P Y6 eInclude(variabledefines)
/ d5 T2 z9 x& U+ I/ Y1 G4 \ t4 p) hInclude(definedefaults)
6 r' f T0 z( N5 ~( A! H9 U s4 zRunFunction(shaftdata2)9 W; M2 F4 _9 D6 m' Y4 i2 ~
DefineGaugeAdjustParameters(1,1,2,1). D+ R' J* t" n% y; D9 ~' W# _
WriteBoolean( PPB_WorkRunOff, 0)3 N& o+ f& O2 M- Z+ P* p! [
B_Axis_Angle= 0* a4 ]1 B+ c% J- w( |
RunPartProgram(testturretmove)
) k6 h" d9 ]) I! ? Z0 kWaitPartProgram(). d/ |8 P" {4 n: L7 A0 c
GrindClearanceRadius(1,110.0000)) _ k7 x' j" J2 h' h, }
'WriteBoolean( PPB_ColdStart, 1)
6 z( ?) ]! R* J5 E& F'ReadBoolean( PPB_ColdStart, ColdStart)
, F2 ~3 X5 C( S+ Y'IF( ColdStart > 0)
: d3 x# E! N, R2 e% v" G'StatusMessage(1,"Gauge Calibration")5 M8 f( l: w( ?1 b! n* R3 _2 u
'MoveAxis(Z2,0.0000,MoveAxis_Set1,2)* c3 F) U* J( F. \
'WriteBoolean( PPB_GageZeroing, 1)
p' P9 M: T o' Y6 s8 m$ ^'ReadReal( PPR_CalDiff, CalDiff)' x6 J: N. H% N1 t: W% j/ }( A# y' N
'GaugeSize(1,-368.00,0.0000,0.0000,266.725,0,1,1,GaugeSize_Set1,8)6 i6 M; d: y8 f
'WriteBoolean( PPB_GageZeroing, 0)
+ e# y; g" \, M9 ~'DefineGaugeAdjustParameters(1,1,2,1)# c5 o) z: @! G
'ENDIF" i; e7 e. G; o& t$ ^
'Print("CalDiff=" , CalDiff)
7 e& {% `: U8 b2 f1 Z1 J+ M0 k2 _7 AMoveAxis(Z2,WhlOffset + WWidth - 20,MoveAxis_Set1,2)) P% c0 l' y) x2 ~+ v4 ?0 i
''6 V. C% c6 L; K. P) F' F+ M
'LatRet= 0' [0 @7 \4 n; _4 w3 ]. e/ z* W! U
'LocateLateralReturnMeasurement(2,50,60.0000,0.0000,L0 + LHBody - Facestock,0.0000,LatRet,LateralLocation_Set1,6)
+ j/ f* ~) ]5 k9 N C'Print("Lateral Return =" , LatRet)
. V' m5 j, v$ Z4 i( a- GReadBoolean( SPB_MC_SingStep, SingleStep)( @ m, {* y* E% n! A' N2 v
IF( SingleStep > 0)2 F6 o* b" {' M! X% C$ L8 v* 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) X& F6 |# j; g; q8 ^4 r
IF( MessageRet < 0)
9 c4 B. c B" \! w+ C' B1 yPrint("No change to lateral return")8 ~0 c7 j5 c+ G6 L
ELSE7 r' g% B4 `. @1 u8 J0 L" f/ T* Z
LatRet= LatRet - LHFaceStock/ P; B9 g& _" U* B- W
Print("Lateral Return =" , LatRet)) e& Q7 e5 h' y w7 o8 G
ENDIF
( `; |1 D% l# tENDIF$ [2 h5 I# ~* i: ?) w- G& y5 M
|
发表于 2018-4-26 23:40:29
