请问这程序能验证标准球吗？

请问这程序能验证标准球吗？

  F(123) = FEAT/SPHERE,OUTER,CART, -151.414555, -140.085082, -467.933475,$
  19.050000, 0.000000, 0.000000, 1.000000, -70.528779
$$ This sample DMIS Macro is provided by External-Array Software, Inc.
$$ It should be modified for your own use. There is no guarantee for
$$ the quality of this Macro. November, 2003
$$ FUNCION: Move machine along GI, GJ, GK direction so that the
$$     sensor mounting point will be on the plane defined by
$$     PLANE( POINT(GX, GY, GZ), VECTOR( GI, GJ, GK) )
$$ ALL Macro parameters are in PCS and Current UNITS
$$ Last update: 3-1-04 Add mode checking. only works in PROG MODE

  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
DECL/COMMON,INTGR,PPP1,PPP2,PPP3,PPP4

EEE =PROMPT/CHECK,'2.0有加长杆',PPP1,$

          CHECK,'2.0',PPP2

IF/(PPP1.EQ.1)

WRITE/DID(DEFAULTSCREEN),'2.0有加长杆'

RECALL/D(MCS)

$$ Sensor::2.0 calibration
CALL/M(EASI_CLEARMNT_GOTO), -151.414555, -146.711475, -328.430464, 0.000000,$
-0.047447, 0.998874
SNSLCT/S(2.0)
GOTO/ -151.414555, -141.011475, -448.430464
CALIB/SENS, S(2.0), F(123), 5
GOTO/ -151.414555, -140.085082, -447.408475
PTMEAS/CART, -151.414555, -140.085082, -458.408475, 0.000000, 0.000000, 1.000000
GOTO/ -143.179740, -140.085082, -448.052872
GOTO/ -136.198601, -140.085082, -452.717520
GOTO/ -131.533953, -140.085082, -459.698660
PTMEAS/CART, -141.889555, -140.085082, -467.933475, 1.000000, 0.000000, 0.000000
GOTO/ -131.533953, -131.850267, -467.933475
GOTO/ -136.198601, -124.869128, -467.933475
GOTO/ -143.179740, -120.204480, -467.933475
PTMEAS/CART, -151.414555, -130.560082, -467.933475, 0.000000, 1.000000, 0.000000
GOTO/ -159.649370, -120.204480, -467.933475
GOTO/ -166.630509, -124.869128, -467.933475
GOTO/ -171.295157, -131.850267, -467.933475
PTMEAS/CART, -160.939555, -140.085082, -467.933475, -1.000000, 0.000000,$
0.000000
GOTO/ -171.295157, -148.319897, -467.933475
GOTO/ -166.630509, -155.301037, -467.933475
GOTO/ -159.649370, -159.965685, -467.933475
PTMEAS/CART, -151.414555, -149.610082, -467.933475, 0.000000, -1.000000,$
0.000000
GOTO/ -151.414555, -159.965685, -459.698660
GOTO/ -151.414555, -155.301037, -452.717520
GOTO/ -151.414555, -148.319897, -448.052872
GOTO/ -151.414555, -140.085082, -447.408475
ENDMES
$$
$$ Reset sensor setting for measurement
SNSET/APPRCH, 10.000000
SNSET/RETRCT, 10.000000
SNSET/SEARCH, 10.000000
$$
F(CIR1) = FEAT/CIRCLE,OUTER,CART, -275.737450, -205.022592, -465.408182,$
  0.000000, 0.000000, 1.000000, 149.842175
$$ Measurement points are created through actual points
MEAS/CIRCLE, F(CIR1), 4
  PTMEAS/CART,   -278.737474, -130.161593, -465.408182,   -0.040042, 0.999198,$
  0.000000
  GOTO/   -365.640559, -112.868151, -465.408557
  PTMEAS/CART,   -350.609048, -202.299885, -465.408182,   -0.999339, 0.036341,$
  0.000000
  GOTO/   -365.359059, -300.155651, -465.407557
  PTMEAS/CART,   -276.577172, -279.938973, -465.408182,   -0.011208,$
  -0.999937, 0.000000
  GOTO/   -171.271559, -293.402151, -465.408057
  PTMEAS/CART,   -200.863760, -207.687143, -465.408182,   0.999367, -0.035565,$
  0.000000
ENDMES
GOTO/-186.633559, -207.711651, -405.920557
GOTO/-265.119559, -156.447651, -374.224057
F(LN1) = FEAT/LINE,BND,CART, -218.484944, -190.104623, -454.588139,$
  -341.715864, -189.926109, -454.588640, 0.001449, 0.999999, 0.000000
$$ Measurement points are created through actual points
MEAS/LINE, F(LN1), 3
  PTMEAS/CART,   -218.484944, -190.104623, -454.588139,   0.001449, 0.999999,$
  0.000000
  PTMEAS/CART,   -280.345949, -190.015010, -454.588391,   0.001449, 0.999999,$
  0.000000
  PTMEAS/CART,   -341.715864, -189.926109, -454.588640,   0.001449, 0.999999,$
  0.000000
ENDMES
D(CRD1) = DATSET/FA(CIR1), ZDIR, ZORIG, FA(LN1), -XDIR, YORIG, FA(LN1), XORIG
D(CRD1) = TRANS/ZORIG, -0, YORIG, -0, XORIG, -0
D(CRD2) = TRANS/XORIG, FA(CIR1), YORIG, FA(CIR1), ZORIG, FA(CIR1)
GOTO/-66.016433, 25.629358, 105.934875
GOTO/-3.170471, -12.613147, 104.864875

JUMPTO/(BBB)

ENDIF

(BBB)

IF/(PPP2.EQ.1)

WRITE/DID(DEFAULTSCREEN),'2.0'
RECALL/D(MCS)

$$ Sensor::ROOTSN1 calibration
CALL/M(EASI_CLEARMNT_GOTO), 124.179786, 58.297879, 71.148033, -0.000039,$
-0.056904, 0.998380
SNSLCT/S(ROOTSN1)
GOTO/ 124.183655, 63.997544, -28.851986
CALIB/SENS, S(ROOTSN1), F(123), 5
GOTO/ 124.181877, 65.108668, -27.820348
PTMEAS/CART, 124.183234, 65.108632, -38.820348, -0.000123, 0.000003, 1.000000
GOTO/ 132.417800, 65.120906, -28.461225
GOTO/ 139.400386, 65.131268, -33.125599
GOTO/ 144.066479, 65.138178, -40.107042
PTMEAS/CART, 133.709399, 65.122757, -48.344173, 0.999999, 0.001486, 0.000123
GOTO/ 144.055255, 73.373995, -48.342923
GOTO/ 139.379647, 80.349073, -48.343523
GOTO/ 132.390703, 85.003926, -48.344401
PTMEAS/CART, 124.170253, 74.633590, -48.345381, -0.001486, 0.999999, -0.000003
GOTO/ 115.919015, 84.979446, -48.346433
GOTO/ 108.943938, 80.303838, -48.347279
GOTO/ 104.289084, 73.314893, -48.347830
PTMEAS/CART, 114.659420, 65.094444, -48.346523, -0.999999, -0.001486, -0.000123
GOTO/ 104.313565, 56.843206, -48.347773
GOTO/ 108.989172, 49.868129, -48.347173
GOTO/ 115.978117, 45.213275, -48.346296
PTMEAS/CART, 124.198566, 55.583611, -48.345315, 0.001486, -0.999999, 0.000003
GOTO/ 124.212944, 45.225542, -40.109427
GOTO/ 124.205149, 49.890796, -33.127424
GOTO/ 124.194196, 56.872822, -28.462212
GOTO/ 124.181877, 65.108668, -27.820348
ENDMES
$$
$$ Reset sensor setting for measurement
SNSET/APPRCH, 1.000000
SNSET/RETRCT, 1.000000
SNSET/SEARCH, 1.000000
$$
F(CIR1) = FEAT/CIRCLE,OUTER,CART, -275.737450, -205.022592, -465.408182,$
  0.000000, 0.000000, 1.000000, 149.842175
$$ Measurement points are created through actual points
MEAS/CIRCLE, F(CIR1), 4
  PTMEAS/CART,   -278.737474, -130.161593, -465.408182,   -0.040042, 0.999198,$
  0.000000
  GOTO/   -365.640559, -112.868151, -465.408557
  PTMEAS/CART,   -350.609048, -202.299885, -465.408182,   -0.999339, 0.036341,$
  0.000000
  GOTO/   -365.359059, -300.155651, -465.407557
  PTMEAS/CART,   -276.577172, -279.938973, -465.408182,   -0.011208,$
  -0.999937, 0.000000
  GOTO/   -171.271559, -293.402151, -465.408057
  PTMEAS/CART,   -200.863760, -207.687143, -465.408182,   0.999367, -0.035565,$
  0.000000
ENDMES
GOTO/-186.633559, -207.711651, -405.920557
GOTO/-265.119559, -156.447651, -374.224057
F(LN1) = FEAT/LINE,BND,CART, -218.484944, -190.104623, -454.588139,$
  -341.715864, -189.926109, -454.588640, 0.001449, 0.999999, 0.000000
$$ Measurement points are created through actual points
MEAS/LINE, F(LN1), 3
  PTMEAS/CART,   -218.484944, -190.104623, -454.588139,   0.001449, 0.999999,$
  0.000000
  PTMEAS/CART,   -280.345949, -190.015010, -454.588391,   0.001449, 0.999999,$
  0.000000
  PTMEAS/CART,   -341.715864, -189.926109, -454.588640,   0.001449, 0.999999,$
  0.000000
ENDMES
D(CRD1) = DATSET/FA(CIR1), ZDIR, ZORIG, FA(LN1), -XDIR, YORIG, FA(LN1), XORIG
D(CRD1) = TRANS/ZORIG, -0, YORIG, -0, XORIG, -0
D(CRD2) = TRANS/XORIG, FA(CIR1), YORIG, FA(CIR1), ZORIG, FA(CIR1)
GOTO/-66.016433, 25.629358, 105.934875
GOTO/-3.170471, -12.613147, 104.864875

JUMPTO/(CCC)

ENDIF

(CCC)

------------------------------------------------------------------------
我是初学者，大哥们，请多多指教，谢谢了

验证标准球是什么意思?

------------------------------------------------------------------------
爱科腾瑞（北京）有限公司

校验探针,每次开机时都要校验一次，因为我这里用的是卡盘，所以想校验的时候，顺便把卡盘中心的坐标建好。

还想问个问题： 宏程序能在高级语言里运行吗？

------------------------------------------------------------------------
我是初学者，大哥们，请多多指教，谢谢了

程序中间倒是有校验的程序,但是全部的程序能不能正常运行需要联机看看.

宏可以在高级语句里调用,但是最好不要穿插跳转.

------------------------------------------------------------------------
爱科腾瑞（北京）有限公司

哦哦，有空再验证 验证，哈哈、

谢谢，版主

------------------------------------------------------------------------
我是初学者，大哥们，请多多指教，谢谢了