|
|
Start
' b' H0 M1 Q8 ^0 y6 K4 x& Q! UInclude(variabledefines)
) `+ u% O% I( B. T# pInclude(definedefaults)) d( P* H3 W) E$ d( x% j
RunFunction(shaftdata2)
4 v. C7 j1 e QDefineGaugeAdjustParameters(1,1,2,1) L7 j8 H& m7 ^) I2 g1 N; L7 i' t! \
WriteBoolean( PPB_WorkRunOff, 0)- } H2 z7 K! m1 u' ~* }1 l
B_Axis_Angle= 0
7 @( e! c2 _& R( T8 bRunPartProgram(testturretmove)
: {0 k8 Y: q! KWaitPartProgram()
' ]0 ^* l& R4 h5 L$ WGrindClearanceRadius(1,110.0000)9 |7 C8 G0 H9 n
'WriteBoolean( PPB_ColdStart, 1): t, S P" ?3 L) Q* w0 Q8 G$ F
'ReadBoolean( PPB_ColdStart, ColdStart)
+ l/ y: b; c& q3 j- z'IF( ColdStart > 0): o1 l3 U9 ?6 b* o) E7 I
'StatusMessage(1,"Gauge Calibration") g( S, C: S- e6 ~" d. B
'MoveAxis(Z2,0.0000,MoveAxis_Set1,2)
0 f5 W5 J2 w4 v'WriteBoolean( PPB_GageZeroing, 1)) X& b8 K- l, f9 e: m
'ReadReal( PPR_CalDiff, CalDiff)
7 ?% C, \+ N/ f% t: n'GaugeSize(1,-368.00,0.0000,0.0000,266.725,0,1,1,GaugeSize_Set1,8)
' w5 V+ N0 z, p# I3 B'WriteBoolean( PPB_GageZeroing, 0)- o; d. h/ h2 w
'DefineGaugeAdjustParameters(1,1,2,1)
1 P: D& r* C- l) z'ENDIF. W( s) R! Q: T5 U) D4 L
'Print("CalDiff=" , CalDiff)) w1 {0 C1 O! }: ?. e0 F5 G
MoveAxis(Z2,WhlOffset + WWidth - 20,MoveAxis_Set1,2)
6 _ R3 H) Z: h: j2 T''4 ]% A) ]- [/ O9 q+ G' [: a7 s
'LatRet= 0 A; o; d( k ?
'LocateLateralReturnMeasurement(2,50,60.0000,0.0000,L0 + LHBody - Facestock,0.0000,LatRet,LateralLocation_Set1,6), r% M; d: n: ]9 T
'Print("Lateral Return =" , LatRet)
* |5 U! {$ c9 N# c" T& R2 _ReadBoolean( SPB_MC_SingStep, SingleStep)- w b8 z) b* K% {1 S) X& _
IF( SingleStep > 0). _! e0 ^% @ J b+ A- X# m
MessageBox("STOCK CHECK","Has LH body face already been ground?","If you answer 'yes' stock will be subtracted","from lateral return measurement.","",7,MessageRet)/ S/ A @5 B3 J, N* s1 P: Q3 @
IF( MessageRet < 0)
' [+ v1 n6 l2 A5 dPrint("No change to lateral return"): `% k( M- y2 w7 b6 ?; P
ELSE
, L; y4 r( W4 A' s: ?5 dLatRet= LatRet - LHFaceStock
; G Z% ]! P$ A& V; K4 JPrint("Lateral Return =" , LatRet)
) S! }! q: a$ |$ U( c( c2 wENDIF6 |1 W. \& s0 w
ENDIF* G8 H" d! |# l! W
|
|
發(fā)表于 2018-4-26 23:40:29
QQ好友和群
收藏
淘帖
問(wèn)題專業(yè),，描述清楚
伸手黨/灌水/看不懂
樓主