Start r) [6 `7 F4 S( e# w( v
Include(variabledefines)
1 f/ F! e& J7 oInclude(definedefaults)2 {0 h6 W7 g' V" F
RunFunction(shaftdata2)
! ?9 j* r2 [4 G% w# VDefineGaugeAdjustParameters(1,1,2,1)( L/ P- ^ q! p$ W9 E
WriteBoolean( PPB_WorkRunOff, 0) c1 W. P2 x3 {0 S3 s; |% U8 _
B_Axis_Angle= 0" [; d' f, [; `6 \! y7 E
RunPartProgram(testturretmove)
0 C- |" ~6 T) E) K/ k* `9 qWaitPartProgram()
; @2 ^8 r- |' h7 e7 XGrindClearanceRadius(1,110.0000)
" v9 N5 x% k/ N4 t" ~'WriteBoolean( PPB_ColdStart, 1)
- `# I" l9 [' z8 q'ReadBoolean( PPB_ColdStart, ColdStart)
* \5 X {7 T- C. r5 ~; }$ i% T'IF( ColdStart > 0)
4 |2 o2 W% r. a2 o/ D'StatusMessage(1,"Gauge Calibration")* x* b# G! r% T5 f
'MoveAxis(Z2,0.0000,MoveAxis_Set1,2)
0 j2 ~" H6 d+ P, o$ S" {2 l, I: c'WriteBoolean( PPB_GageZeroing, 1)) Q. d% q0 A9 F1 W8 C
'ReadReal( PPR_CalDiff, CalDiff)
! J7 E' |# j- p% H5 m'GaugeSize(1,-368.00,0.0000,0.0000,266.725,0,1,1,GaugeSize_Set1,8)+ y4 z9 r* e9 d4 T
'WriteBoolean( PPB_GageZeroing, 0)
- ^" S& i" Y6 T2 m* d+ R; |. i'DefineGaugeAdjustParameters(1,1,2,1)
7 `8 h' K2 Q8 j'ENDIF) n( ^/ ^' I0 p, m0 a! u" Z& _
'Print("CalDiff=" , CalDiff)
/ ^% d) `! M1 DMoveAxis(Z2,WhlOffset + WWidth - 20,MoveAxis_Set1,2)
y( S# N8 g8 a% B''
1 C9 i: B! w# {' N* W'LatRet= 0# `' i+ F* W; @& u7 c9 u
'LocateLateralReturnMeasurement(2,50,60.0000,0.0000,L0 + LHBody - Facestock,0.0000,LatRet,LateralLocation_Set1,6)
3 }/ r/ I4 R; {, x% O1 b& o L'Print("Lateral Return =" , LatRet)
3 p" c" t# `; N: R: EReadBoolean( SPB_MC_SingStep, SingleStep)
+ a. {, N4 t6 G) G% ]IF( SingleStep > 0)7 R7 L: a; x3 U5 c5 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), W* g- ~9 o4 n$ Q ~" `" |! K
IF( MessageRet < 0)
. e7 z0 e) A% Q' gPrint("No change to lateral return")
' r! @6 R2 ]9 y8 KELSE
4 J; Q) d5 |. D1 _7 _+ i/ U# kLatRet= LatRet - LHFaceStock" w/ z5 W0 q% Q5 q8 T" Y, o) p
Print("Lateral Return =" , LatRet): v' N; U" [- D( b* {2 T1 \( V! N N
ENDIF% D \) q8 ]$ m$ |1 V
ENDIF' e8 J1 g( K5 u$ N* M) _! P
|
发表于 2018-4-26 23:40:29
