|
|
Start) x$ [4 _5 H! y x4 S1 e
Include(variabledefines)! Z. H) F+ N5 [7 z
Include(definedefaults)
, d4 {$ p% {$ A8 a+ mRunFunction(shaftdata2)9 s: t: r5 ~2 G* I; T( \ P* @9 M( p0 i
DefineGaugeAdjustParameters(1,1,2,1)2 F, l g% ]4 ?! V. V P
WriteBoolean( PPB_WorkRunOff, 0)
4 Y: G+ |2 O4 E. j) H b4 P. tB_Axis_Angle= 04 u# U- \' I9 ^1 i$ [$ m6 ^
RunPartProgram(testturretmove), w5 q5 }) t1 c
WaitPartProgram()7 c! \0 g& f- o' v3 h
GrindClearanceRadius(1,110.0000)
1 m$ c7 b7 Y. |' q( M/ [- ~'WriteBoolean( PPB_ColdStart, 1)
* G4 B# _+ L8 a4 F+ `'ReadBoolean( PPB_ColdStart, ColdStart)2 U9 b- u! f+ ^: V. g, d
'IF( ColdStart > 0)5 p9 X9 F: U% p
'StatusMessage(1,"Gauge Calibration"), E4 T7 Z5 }8 A7 x1 y& [# d
'MoveAxis(Z2,0.0000,MoveAxis_Set1,2)
5 t$ m- Y* L+ n4 z" P'WriteBoolean( PPB_GageZeroing, 1)$ B! E" h. c% F1 F+ X3 ]
'ReadReal( PPR_CalDiff, CalDiff)
; @" n( C$ F% p1 `5 B' X5 H8 t" r'GaugeSize(1,-368.00,0.0000,0.0000,266.725,0,1,1,GaugeSize_Set1,8)
7 w9 D4 s# _! y) ~'WriteBoolean( PPB_GageZeroing, 0)! _ x1 G. c, d& Z. q! |* n
'DefineGaugeAdjustParameters(1,1,2,1)
' V9 N2 d* a/ @' k/ E; T/ m. T'ENDIF( G2 Q! a1 I% q0 ?. R4 w
'Print("CalDiff=" , CalDiff)
' @( g, j3 C+ _4 |6 M! WMoveAxis(Z2,WhlOffset + WWidth - 20,MoveAxis_Set1,2), t7 e' Q9 c3 f# k2 f5 z
''8 e1 D, L* W. Q) M
'LatRet= 0
* _2 i; C# A% E. Y' Y2 Y; I'LocateLateralReturnMeasurement(2,50,60.0000,0.0000,L0 + LHBody - Facestock,0.0000,LatRet,LateralLocation_Set1,6)
8 X; {8 p) o: ['Print("Lateral Return =" , LatRet)
6 y% X3 d. h- {& ^ReadBoolean( SPB_MC_SingStep, SingleStep)/ [9 W2 |3 ?2 U: Z, Q
IF( SingleStep > 0)
. |* m7 \9 ~( SMessageBox("STOCK CHECK","Has LH body face already been ground?","If you answer 'yes' stock will be subtracted","from lateral return measurement.","",7,MessageRet)6 v; U, J( r: [# @8 J% O. r! H3 u
IF( MessageRet < 0)( O) i! @5 |/ C
Print("No change to lateral return")
: f% E8 E3 A5 y7 |9 f$ U7 }ELSE
1 A3 a' y0 a; t# o; ^LatRet= LatRet - LHFaceStock0 [8 O1 u# N; k& P$ n4 ~- _
Print("Lateral Return =" , LatRet)
6 o7 t7 H/ t0 q5 u$ jENDIF
/ \8 q2 {. h, C# V: P6 B$ y3 q! G7 ]ENDIF
* I4 A6 I. L( y: C4 ^- | |
|
發(fā)表于 2018-4-26 23:40:29
QQ好友和群
收藏
淘帖
問(wèn)題專業(yè)，描述清楚
伸手黨/灌水/看不懂
樓主