机械必威体育网址
标题:
请问谁有LANDIS磨床的编程说明或者手册（计算机语言编程的，如下）
[打印本页]
作者:
小飞_技术员
时间:
2018-4-26 23:40
标题:
请问谁有LANDIS磨床的编程说明或者手册（计算机语言编程的，如下）
Start
' n; t% E _9 m
Include(variabledefines)
# P$ f% s% T* V4 K( [
Include(definedefaults)
^0 y: |; ]0 ?5 r# N2 p. @1 K
RunFunction(shaftdata2)
7 R# M2 F X6 C& Q
DefineGaugeAdjustParameters(1,1,2,1)
0 v, J) o6 F, Z0 A2 D/ d2 w: j: P
WriteBoolean( PPB_WorkRunOff, 0)
8 V, i& h3 C. x3 a- z3 |2 k1 |
B_Axis_Angle= 0
" B" N4 a3 u, n J9 K
RunPartProgram(testturretmove)
$ Z( K/ d9 G9 P- ]1 t2 K, t
WaitPartProgram()
9 l9 P) C3 |0 l+ X. q) o
GrindClearanceRadius(1,110.0000)
6 Z( V& Y% N; i8 d* `7 w7 ~1 y
'WriteBoolean( PPB_ColdStart, 1)
" L; i5 | j) a8 L9 e
'ReadBoolean( PPB_ColdStart, ColdStart)
9 b% B m8 n& T1 i2 d7 p) K5 h
'IF( ColdStart > 0)
# a+ J' O9 B8 K7 ?+ |" y
'StatusMessage(1,"Gauge Calibration")
, i: r( L ]$ B, r% Z% t
'MoveAxis(Z2,0.0000,MoveAxis_Set1,2)
' F4 M$ b& i9 @- p* H4 y
'WriteBoolean( PPB_GageZeroing, 1)
9 P# a; n6 M: T/ c' Q7 r( P& X
'ReadReal( PPR_CalDiff, CalDiff)
5 |& w/ e6 Z0 k- M: z3 s% e
'GaugeSize(1,-368.00,0.0000,0.0000,266.725,0,1,1,GaugeSize_Set1,8)
6 U1 T, i9 E7 Y' C1 \( d4 C
'WriteBoolean( PPB_GageZeroing, 0)
5 K0 `1 C% ~0 e8 n5 X, e5 g2 b
'DefineGaugeAdjustParameters(1,1,2,1)
- e; q. f/ d/ z8 p9 g: m: y* B2 i; x
'ENDIF
# w0 w" x! k; U1 w u
'Print("CalDiff=" , CalDiff)
/ i4 K. A2 M" o3 E3 ?2 J6 Q
MoveAxis(Z2,WhlOffset + WWidth - 20,MoveAxis_Set1,2)
7 m! w. G$ z% n$ h( [% J
''
* _% t; o: v5 D% `8 ~3 e- ^
'LatRet= 0
: r/ y1 U; o9 t, q
'LocateLateralReturnMeasurement(2,50,60.0000,0.0000,L0 + LHBody - Facestock,0.0000,LatRet,LateralLocation_Set1,6)
% M# j, e6 V. C2 u$ W9 x
'Print("Lateral Return =" , LatRet)
0 e3 W9 p6 _3 k' ?' M, `/ G a
ReadBoolean( SPB_MC_SingStep, SingleStep)
+ ~5 a% h. }" Q1 A
IF( SingleStep > 0)
& v- x e4 F! Y
MessageBox("STOCK CHECK","Has LH body face already been ground?","If you answer 'yes' stock will be subtracted","from lateral return measurement.","",7,MessageRet)
/ Y1 F! L/ W+ j+ x
IF( MessageRet < 0)
: L% o" p. o9 W. X; t* {: ]0 O( d% g
Print("No change to lateral return")
+ F+ F! a& l% D% x& U: U
ELSE
4 G, f8 I. v' n: k4 z
LatRet= LatRet - LHFaceStock
& {* [4 V0 q0 O8 ~) c7 y, ]8 p
Print("Lateral Return =" , LatRet)
8 ^7 f2 _' Z$ h6 h& s
ENDIF
8 A" r* S2 n0 P& B5 [
ENDIF
1 z6 j6 K5 \* e6 k
作者:
大禹123
时间:
2018-4-27 11:27
力士乐的系统
作者:
小飞_技术员
时间:
2018-5-17 10:47
大禹123 发表于 2018-4-27 11:27
$ ~. M# t; E8 m0 S- f0 j
力士乐的系统
: H# O+ F' a& W; h$ K. `' z- {
不对，是CNC6400系统
- o+ k/ G2 w7 M b8 [1 t2 e
欢迎光临 机械必威体育网址 (//www.szfco.com/)
Powered by Discuz! X3.4