求大神解释这些定义的坐标系详细的含义。我只能看懂一点…
CORR:
WO_ANG1[1]=SET(0,270,0,0,225,270,315)

DEF_MACH_AX1=CTRANS(X,DEF_MACH_AX1_X,Y,DEF_MACH_AX1_Y,Z,DEF_MACH_AX1_Z):CFINE(X,PREV_ERR_X,Y,PREV_ERR_Y,Z,PREV_ERR_Z)
CORR_FRAME=DEF_POS[1]:CTRANS(X,D_X0,Z,0-D_Y0)
STOPRE

;------------------------------------------------------
; == G54 / A=0
$P_UIFR[1]=DEF_MACH_AX1:DEF_POS[1] :CFINE(X,0,Y,0,Z,0,A,0)

; == G55 / A=270 ( D0,D1,D2,D101 )
$P_UIFR[2]=DEF_MACH_AX1:CROT(X,-270):CORR_FRAME:CROT(X,270):CROT(Z,D_ANG) :CFINE(Z,-0.035) ;DO NOT MODIFY

; == G505 / A=225 ( )
$P_UIFR[5]=DEF_MACH_AX1:CROT(X,-225):CORR_FRAME:CROT(X,225):CROT(Z,D_ANG) :CFINE(X,0,Y,0,Z,0,A,0)

; == G506 / A=270 ( )
$P_UIFR[6]=DEF_MACH_AX1:CROT(X,-270):CORR_FRAME:CROT(X,270):CROT(Z,D_ANG) :CFINE(X,0-0.01,Y,0+0.04-0.015+0.08,Z,0-0.03+0.005,A,0)

; == G507 / A=315 ( )
$P_UIFR[7]=DEF_MACH_AX1:CROT(X,-315):CORR_FRAME:CROT(X,315):CROT(Z,D_ANG) :CFINE(X,0,Y,0,Z,0,A,0)

;------------------------------------------------------

FOR IDX=1 TO ANG_NUM-1
IF (ABS($P_UIFR[IDX,X,FI]) > WO_TOL) OR (ABS($P_UIFR[IDX,Y,FI]) > WO_TOL) OR (ABS($P_UIFR[IDX,Z,FI]) > WO_TOL) GOTOF ERROR1
ENDFOR
RET