Start) \6 g% l- o5 a
Include(variabledefines)" U7 e6 V( k$ }1 h. Y
Include(definedefaults)
# B( g |5 p# }7 q3 ORunFunction(shaftdata2)
! T1 t8 z* `1 @DefineGaugeAdjustParameters(1,1,2,1). v( x- Y4 x8 y/ W, T2 y
WriteBoolean( PPB_WorkRunOff, 0)
: f# @% }6 [0 y: y' LB_Axis_Angle= 0) m% f2 w% `8 Q; }1 a! a _7 D+ L$ o
RunPartProgram(testturretmove)
1 r" o: Y$ _2 ~& P+ ]# L) _0 QWaitPartProgram()( ]/ b! J, h; \# R' ^+ _4 {
GrindClearanceRadius(1,110.0000)5 Z: v' [9 h4 w9 M4 e/ O1 m7 h' @
'WriteBoolean( PPB_ColdStart, 1)7 \- D& |4 Q) U1 L. I" d
'ReadBoolean( PPB_ColdStart, ColdStart)
0 I$ n* K) {+ `/ G7 o, _'IF( ColdStart > 0)
0 j3 l( I; a. e' U7 F" C0 W'StatusMessage(1,"Gauge Calibration")
; V S. ? J$ \3 x* X'MoveAxis(Z2,0.0000,MoveAxis_Set1,2)
" s6 I% J3 [+ `! J( @'WriteBoolean( PPB_GageZeroing, 1), A* L3 S: V Q
'ReadReal( PPR_CalDiff, CalDiff)9 k/ [. y3 J; q
'GaugeSize(1,-368.00,0.0000,0.0000,266.725,0,1,1,GaugeSize_Set1,8)# F9 W9 P" w, z5 }: }' P! M
'WriteBoolean( PPB_GageZeroing, 0)
$ ~, }! x, r h, C) V v6 p/ v! N'DefineGaugeAdjustParameters(1,1,2,1)$ v8 R% j9 ?" I
'ENDIF {6 b" B7 y' d
'Print("CalDiff=" , CalDiff)
/ Z% m# k9 a: ~3 zMoveAxis(Z2,WhlOffset + WWidth - 20,MoveAxis_Set1,2)' P$ i m4 d: ^ U g l6 z
''# X4 c% j0 M+ m+ \5 C4 s- W, o3 _
'LatRet= 05 G$ C8 u0 o4 |$ P' M
'LocateLateralReturnMeasurement(2,50,60.0000,0.0000,L0 + LHBody - Facestock,0.0000,LatRet,LateralLocation_Set1,6)
- u# q9 R4 S4 u" t% p'Print("Lateral Return =" , LatRet)4 L0 d* m# u/ t) z
ReadBoolean( SPB_MC_SingStep, SingleStep)
: ^ z7 C r1 }( gIF( SingleStep > 0)) r! ]: h7 h1 a( w, C1 Z
MessageBox("STOCK CHECK","Has LH body face already been ground?","If you answer 'yes' stock will be subtracted","from lateral return measurement.","",7,MessageRet); M* Z$ C" Q6 c, `
IF( MessageRet < 0)
( y8 @9 n2 ?9 h9 WPrint("No change to lateral return")5 \3 T9 {/ J. [4 h1 y
ELSE
: s# X J; j* X! A& g. T' b; ^( ILatRet= LatRet - LHFaceStock( k! j% H4 W C) i. L$ S
Print("Lateral Return =" , LatRet)
( j# j8 W# w0 C9 m* K- _ENDIF: K: r& R+ i6 Z* L9 |7 i
ENDIF
: m0 K6 Z6 P8 Y& D |
发表于 2018-4-26 23:40:29
楼主