RationalDMIS 7.1 激光补偿自动测量程序(正反均可)

$$从这开始运行程序！
KNPTN3=ASSIGN/0
DECL/INTGR,DRIC
DRIC=ASSIGN/1
KNPTR3 = PROMPT/TITLE,'提示',TEXT,'请输入步距：',EDIT,KNPTR1,TEXT,'请输入行程：',EDIT,KNPTR2,TEXT,'请选择测量轴：',LIST,KNPTN3,'X','Y','Z',TEXT,'请选择测量方向：',LIST,DRIC,'+','-'
KNPTN1=ASSIGN/INT(KNPTR2/KNPTR1)

F(PT1) = FEAT/POINT,CART, 0.000000, 0.000000, -249.400000, 0.000000,$
	 0.000000, 1.000000
TEXT/OPER, '从这个位置开始向轴正向运动，激光置零！'

MEAS/POINT, F(PT1), 0
ENDMES

D(ORG_PT1) = TRANS/XORIG, FA(PT1), YORIG, FA(PT1), ZORIG, FA(PT1)


DECL/INTGR,II,XX,YY,ZZ
XX=ASSIGN/0
YY=ASSIGN/0
ZZ=ASSIGN/0
IF/(KNPTN3.EQ.1)
XX=ASSIGN/1
ENDIF
IF/(KNPTN3.EQ.2)
YY=ASSIGN/1
ENDIF
IF/(KNPTN3.EQ.3)
ZZ=ASSIGN/1
ENDIF

IF/(DRIC.EQ.2)
DRIC=ASSIGN/-1
ENDIF

(CNC-L)

DO/II,0,KNPTN1,1
GOTO/XX*(KNPTR1*II)*DRIC, YY*(KNPTR1*II)*DRIC, ZZ*(KNPTR1*II)*DRIC
DMESW/DELAY,6
ENDDO
GOTO/XX*(KNPTR1*KNPTN1+1)*DRIC, YY*(KNPTR1*KNPTN1+1)*DRIC, ZZ*(KNPTR1*KNPTN1+1)*DRIC
DMESW/DELAY,6
DO/II,KNPTN1,0,-1
GOTO/XX*(KNPTR1*II)*DRIC, YY*(KNPTR1*II)*DRIC, ZZ*(KNPTR1*II)*DRIC
DMESW/DELAY,6
ENDDO
GOTO/XX*(-1)*DRIC, YY*(-1)*DRIC, ZZ*(-1)*DRIC
DMESW/DELAY,6

JUMPTO/(CNC-L)