宏程序调用的问题

更换测头角度的安全移动宏

M(EASI_CLEARMNT_GOTO) = MACRO/GX, GY, GZ, GI, GJ, GK
DECL/LOCAL, REAL, CURX, CURY, CURZ, DD, DX, DY, DZ
DECL/LOCAL, CHAR, 255, SSNAME, MMODE
MMODE = VALUE/MODE
IF/( MMODE .EQ. 'PROG,MAN' )
  CURX = VALUE/GOTO, XAXIS
  CURY = VALUE/GOTO, YAXIS
  CURZ = VALUE/GOTO, ZAXIS
  SSNAME = VALUE/SNSLCT
  DX = OBTAIN/SS(@SSNAME), 2
  DY = OBTAIN/SS(@SSNAME), 3
  DZ = OBTAIN/SS(@SSNAME), 4
  CURX = ASSIGN/ (CURX - DX)
  CURY = ASSIGN/ (CURY - DY)
  CURZ = ASSIGN/ (CURZ - DZ)
  DD = ASSIGN/((GX-CURX)*GI+(GY-CURY)*GJ+(GZ-CURZ)*GK)
  GOTO/CURX+DX+GI*DD, CURY+DY+GJ*DD, CURZ+DZ+GK*DD
ENDIF
ENDMAC

用call语句对宏进行调用.

如果我要调用SNSLCT/S(ROOTSN1_A90_B90),如何设定这段宏程序呢？

------------------------------------------------------------------------
DMIS 空间--欢迎您！

我调用call语句对宏进行调用，还可以用，例如 call/M(EASI_CLEARMNT_GOTO),0,0,30,0,0,1

------------------------------------------------------------------------
DMIS 空间--欢迎您！

我把这段宏程序加到其他程序里就出错，你们看我写的对不对，谢谢

call/M(EASI_CLEARMNT_GOTO),0,0,30,0,0,1

M(EASI_CLEARMNT_GOTO) = MACRO/GX, GY, GZ, GI, GJ, GK

DECL/LOCAL, REAL, CURX, CURY, CURZ, DD, DX, DY, DZ

DECL/LOCAL, CHAR, 255, SSNAME, MMODE

MMODE = VALUE/MODE

IF/( MMODE .EQ. 'PROG,MAN' )

  CURX = VALUE/GOTO, XAXIS

  CURY = VALUE/GOTO, YAXIS

  CURZ = VALUE/GOTO, ZAXIS

  SSNAME = VALUE/SNSLCT

  DX = OBTAIN/SS(@SSNAME), 2

  DY = OBTAIN/SS(@SSNAME), 3

  DZ = OBTAIN/SS(@SSNAME), 4

  CURX = ASSIGN/ (CURX - DX)

  CURY = ASSIGN/ (CURY - DY)

  CURZ = ASSIGN/ (CURZ - DZ)

  DD = ASSIGN/((GX-CURX)*GI+(GY-CURY)*GJ+(GZ-CURZ)*GK)

  GOTO/CURX+DX+GI*DD, CURY+DY+GJ*DD, CURZ+DZ+GK*DD

ENDIF

ENDMAC

M(CIR)=MACRO/xx,yy,'shine'

DECL/LOCAL,DOUBLE,CIR,zz

CIR=ASSIGN/40

zz=ASSIGN/-3

F(@shine) = FEAT/CIRCLE, INNER, CART, xx, yy, zz, 0, 0, 1, CIR*2

MEAS/CIRCLE, F(@shine), 4

GOTO/xx, yy, 10

PTMEAS/CART, xx+CIR, Yy, zz, -1, 0, 0

PTMEAS/CART, xx, yy+CIR, zz, 0, -1, 0

PTMEAS/CART, xx-CIR, yy, zz, 1, 0, 0

PTMEAS/CART, xx, yy-CIR, zz, 0, 1, 0

GOTO/xx, yy, 10

ENDMES

ENDMAC

$$ instructions

CALL/M(foro),12.5,12.5,(CIR1)

$$ instructions

call/M(EASI_CLEARMNT_GOTO),0,0,30,0,0,1

SNSLCT/S(ROOTSN1_A90_B0)

M(CIR)=MACRO/yy,zz,'shine'

DECL/LOCAL,DOUBLE,CIR,xx

CIR=ASSIGN/40

xx=ASSIGN/-75

F(@shine) = FEAT/CIRCLE, INNER, CART, xx, yy, zz, 0, 1, 0, CIR*2

MEAS/CIRCLE, F(@shine), 4

GOTO/-80,yy, zz

PTMEAS/CART, xx, Yy, zz+CIR, 0, 0, 1

PTMEAS/CART, xx, yy+CIR, zz, 0, -1, 0

PTMEAS/CART, xx, yy, zz-CIR, 0, 0, -1

PTMEAS/CART, xx, yy-CIR, zz, 0, 1, 0

GOTO/-80,yy, zz

ENDMES

ENDMAC

$$ instructions

CALL/M(foro),0,0,(CIR2)

$$ instructions

call/M(EASI_CLEARMNT_GOTO),-80,0,30,0,0,1

帮我看看什么地方不对，需要改什么地方？   先谢谢了

------------------------------------------------------------------------
DMIS 空间--欢迎您！