请问谁有LANDIS磨床的编程说明或者手册（计算机语言编程的，如下）
StartInclude(variabledefines)
Include(definedefaults)
RunFunction(shaftdata2)
DefineGaugeAdjustParameters(1,1,2,1)
WriteBoolean( PPB_WorkRunOff, 0)
B_Axis_Angle= 0
RunPartProgram(testturretmove)
WaitPartProgram()
GrindClearanceRadius(1,110.0000)
'WriteBoolean( PPB_ColdStart, 1)
'ReadBoolean( PPB_ColdStart, ColdStart)
'IF( ColdStart > 0)
'StatusMessage(1,"Gauge Calibration")
'MoveAxis(Z2,0.0000,MoveAxis_Set1,2)
'WriteBoolean( PPB_GageZeroing, 1)
'ReadReal( PPR_CalDiff, CalDiff)
'GaugeSize(1,-368.00,0.0000,0.0000,266.725,0,1,1,GaugeSize_Set1,8)
'WriteBoolean( PPB_GageZeroing, 0)
'DefineGaugeAdjustParameters(1,1,2,1)
'ENDIF
'Print("CalDiff=" , CalDiff)
MoveAxis(Z2,WhlOffset + WWidth - 20,MoveAxis_Set1,2)
''
'LatRet= 0
'LocateLateralReturnMeasurement(2,50,60.0000,0.0000,L0 + LHBody - Facestock,0.0000,LatRet,LateralLocation_Set1,6)
'Print("Lateral Return =" , LatRet)
ReadBoolean( SPB_MC_SingStep, SingleStep)
IF( SingleStep > 0)
MessageBox("STOCK CHECK","Has LH body face already been ground?","If you answer 'yes' stock will be subtracted","from lateral return measurement.","",7,MessageRet)
IF( MessageRet < 0)
Print("No change to lateral return")
ELSE
LatRet= LatRet - LHFaceStock
Print("Lateral Return =" , LatRet)
ENDIF
ENDIF
力士乐的系统 大禹123 发表于 2018-4-27 11:27
力士乐的系统
不对，是CNC6400系统
页:
[1]