Start
% u- n+ h1 o3 J0 W, B/ b, WInclude(variabledefines)
2 {( N& x* k" Z( uInclude(definedefaults)
+ x/ M( u ?/ g+ ~. ?% L, @RunFunction(shaftdata2)
) F) S7 D# W. S( O: h" @5 f( m jDefineGaugeAdjustParameters(1,1,2,1)
# M9 S0 c/ Y8 D% \% |; S6 w3 OWriteBoolean( PPB_WorkRunOff, 0)
, l8 u* T# V/ g7 N( l- GB_Axis_Angle= 0
" j7 K4 k/ x! w }; M) iRunPartProgram(testturretmove)
2 P8 e; J4 _- kWaitPartProgram()- p+ q: A3 T4 V
GrindClearanceRadius(1,110.0000)
. g j0 V/ m/ c8 ~'WriteBoolean( PPB_ColdStart, 1) F* E5 y' r1 A4 `$ c
'ReadBoolean( PPB_ColdStart, ColdStart)
9 K3 v7 l+ v T) |'IF( ColdStart > 0)
x2 `# d( K5 j7 `! T'StatusMessage(1,"Gauge Calibration")
+ u# X1 `+ R8 g'MoveAxis(Z2,0.0000,MoveAxis_Set1,2)( a; _( Q/ b7 Y1 ]% y* V# v, \
'WriteBoolean( PPB_GageZeroing, 1)
/ w! {8 @& X/ z'ReadReal( PPR_CalDiff, CalDiff)
0 y5 @! K% G. S& |7 a2 T4 T'GaugeSize(1,-368.00,0.0000,0.0000,266.725,0,1,1,GaugeSize_Set1,8)
8 c! ]( t* c( O. m) j# q3 h'WriteBoolean( PPB_GageZeroing, 0)/ g" Q7 I4 h+ t- W+ l+ b" m
'DefineGaugeAdjustParameters(1,1,2,1); w4 I ~2 e6 U* [: ?$ ^: X
'ENDIF
( n/ E1 k( K( E) ^3 \'Print("CalDiff=" , CalDiff)
) W# c' [- q$ }MoveAxis(Z2,WhlOffset + WWidth - 20,MoveAxis_Set1,2)9 V) O# Z6 @- {6 N8 _
''
% Q( g \: r! _% d/ `' D( B'LatRet= 0
0 A/ Q: u( P3 U8 `2 {'LocateLateralReturnMeasurement(2,50,60.0000,0.0000,L0 + LHBody - Facestock,0.0000,LatRet,LateralLocation_Set1,6) {9 _ {+ `8 K+ U t; ~* G
'Print("Lateral Return =" , LatRet)
! |0 B+ O8 a V" d* E1 bReadBoolean( SPB_MC_SingStep, SingleStep)# w; q2 q& W/ ]0 ^, t6 [8 N
IF( SingleStep > 0)9 n4 w+ p! s' g9 m- s! F7 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)
8 I- `: e" X# H5 wIF( MessageRet < 0)1 v) I1 k/ q. ]* ]
Print("No change to lateral return")
# y$ C8 C: m' P. ?4 i5 [. H2 `ELSE2 B0 G. ?1 C& G0 p# W
LatRet= LatRet - LHFaceStock
( ~, C6 H t4 QPrint("Lateral Return =" , LatRet)5 ?" V! X- v: K+ b2 X
ENDIF
! D$ _2 p5 D" C( [ENDIF
9 p8 ~6 K: F- [2 c8 W |
发表于 2018-4-26 23:40:29
楼主