找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 3599|回复: 2

请问谁有LANDIS磨床的编程说明或者手册(计算机语言编程的,如下)

[复制链接]
发表于 2018-4-26 23:40:29 | 显示全部楼层 |阅读模式
Start
$ ^" [& f4 J1 D' c: B6 E0 RInclude(variabledefines)
" L5 x! h1 S, a4 p. Y2 a9 JInclude(definedefaults)% n/ O" c5 s1 w
RunFunction(shaftdata2)
% y% z  I& K( C7 C' {$ {DefineGaugeAdjustParameters(1,1,2,1)
- E" |7 A% l) lWriteBoolean( PPB_WorkRunOff, 0)( L: {/ u; m( m) E$ ]& o( _! I
B_Axis_Angle= 0! g/ T2 M: R( p7 [
RunPartProgram(testturretmove)5 S+ {, m# b' N6 b( ?6 s6 C6 n
WaitPartProgram()
' R8 j) k" k% \7 J/ |GrindClearanceRadius(1,110.0000)# k/ `1 R) N( f+ U
'WriteBoolean( PPB_ColdStart, 1)$ L" H8 z: R  ^: O, {( m$ H
'ReadBoolean( PPB_ColdStart, ColdStart)
7 u! i1 N3 ~7 D1 P$ ?" v; x6 A'IF( ColdStart > 0)) f' S; j4 T1 p
'StatusMessage(1,"Gauge Calibration"). P5 H& Y3 R  u0 [8 U, S
'MoveAxis(Z2,0.0000,MoveAxis_Set1,2). g$ e. ^( h0 o
'WriteBoolean( PPB_GageZeroing, 1)
  j- e) B8 J- y% O' I# t. l4 F( f# Y'ReadReal( PPR_CalDiff, CalDiff)4 C& P& m7 P! B0 ]. I* |4 D
'GaugeSize(1,-368.00,0.0000,0.0000,266.725,0,1,1,GaugeSize_Set1,8)
) ^  B* a0 ?: H: u2 L'WriteBoolean( PPB_GageZeroing, 0)! |, n- b+ q: u
'DefineGaugeAdjustParameters(1,1,2,1)
" {# ]* E6 Q' f9 _  F( e'ENDIF
9 H3 o0 Y6 b! Z: f/ x( i'Print("CalDiff=" , CalDiff)7 B6 k% ^8 F5 k7 K1 `, G3 v' ?0 ^* s
MoveAxis(Z2,WhlOffset + WWidth - 20,MoveAxis_Set1,2)
5 m1 o5 c* J' q''
; j# j" J$ L  Z: r9 F# w# h# C) a'LatRet= 0; m9 d6 l" _- }9 @
'LocateLateralReturnMeasurement(2,50,60.0000,0.0000,L0 + LHBody - Facestock,0.0000,LatRet,LateralLocation_Set1,6)" E$ w6 _2 Z( h' A: w0 {
'Print("Lateral Return =" , LatRet)
; H9 O7 b  h) @: `ReadBoolean( SPB_MC_SingStep, SingleStep)( E7 F# g( R; _) L
IF( SingleStep > 0)
+ p0 K+ R/ k  A8 x/ }; c5 nMessageBox("STOCK CHECK","Has LH body face already been ground?","If you answer 'yes' stock will be subtracted","from lateral return measurement.","",7,MessageRet)7 e" G" ]+ L+ c$ y6 v$ i! i
IF( MessageRet < 0)
# `; X" d  P' D# S" C# ~3 Q7 Y( @' ^Print("No change to lateral return")7 s$ U; l& Y: T4 X9 L
ELSE
  G4 f3 ?8 G# d* w* j) JLatRet= LatRet - LHFaceStock
$ p) Z' B8 k3 U  g* [: Y: uPrint("Lateral Return =" , LatRet)
! H. {% T8 t2 Y' c1 z6 @/ kENDIF
. t$ q& Q0 s5 K1 @' D- ^ENDIF$ ^7 f, @, H% y5 n- s
回复

使用道具 举报

发表于 2018-4-27 11:27:33 | 显示全部楼层
力士乐的系统
 楼主| 发表于 2018-5-17 10:47:06 | 显示全部楼层
大禹123 发表于 2018-4-27 11:270 K' y! G! K3 l5 \% X) d6 ~
力士乐的系统
9 o6 @1 v7 I  t! ^$ V7 E
不对,是CNC6400系统
8 ?8 N& S0 B$ b- I; N/ ^; _* C  S
您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

Archiver|手机版|小黑屋|机械社区 ( 京ICP备10217105号-1,京ICP证050210号,浙公网安备33038202004372号 )

GMT+8, 2025-10-19 14:29 , Processed in 0.064196 second(s), 14 queries , Gzip On.

Powered by Discuz! X3.5 Licensed

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表