RationalDMIS 2022调机空跑程序_DMIS


RationalDMIS 2022调机空跑程序_前端_02

RECALL/D(MCS)
DECL/REAL,LX,LY,LZ,PX,PY,PZ
DECL/COMMON,INTGR,DONUM,COUNTER
TEXT/OPER, '请移动到 前左下角'
LX = VALUE/GOTO,XAXIS
LY = VALUE/GOTO,YAXIS
LZ = VALUE/GOTO,ZAXIS

TEXT/OPER, '请移动到 后右上角'
PX = VALUE/GOTO,XAXIS
PY = VALUE/GOTO,YAXIS
PZ = VALUE/GOTO,ZAXIS
DONUM = PROMPT/'000000'
TEXT/OPER, '机器开始移动'
MODE/PROG,MAN
DO/COUNTER,1,DONUM
GOTO/PX,PY,LZ
GOTO/LX,PY,LZ
GOTO/LX,LY,LZ
GOTO/PX,LY,LZ
GOTO/PX,PY,LZ
GOTO/LX,LY,LZ
GOTO/LX,LY,PZ

GOTO/PX,LY,PZ
GOTO/PX,PY,PZ
GOTO/LX,PY,PZ
GOTO/LX,LY,PZ
GOTO/PX,PY,PZ
GOTO/LX,LY,LZ

GOTO/LX,PY,PZ
GOTO/LX,PY,LZ
GOTO/LX,LY,LZ
GOTO/LX,LY,PZ
GOTO/LX,PY,PZ
GOTO/PX,LY,LZ

GOTO/PX,LY,PZ
GOTO/LX,LY,PZ
GOTO/LX,LY,LZ
GOTO/PX,LY,LZ
GOTO/PX,PY,PZ

GOTO/PX,LY,PZ
GOTO/PX,LY,LZ
GOTO/PX,PY,LZ
GOTO/PX,PY,PZ
GOTO/PX,LY,PZ
GOTO/LX,PY,LZ

GOTO/PX,PY,LZ
GOTO/PX,PY,PZ
GOTO/LX,PY,PZ
GOTO/LX,PY,LZ
GOTO/PX,PY,PZ

ENDDO
ENDFIL