测头校验程序
如果在程序中要完成对当前测头的校验,DMIS语句如下
MODE/AUTO,PROG,MAN
      
      DECL/DOUBLE, POS_CA[4]
      DECL/CHAR,20,SS_LAB
      
      SS_LAB = VALUE/SNSLCT
      
      TEMPSTR = PROMPT/TEXT,'X',EDIT,POS_CA[1],TEXT,'Y',EDIT,POS_CA[2],$
                               TEXT,'Z',EDIT,POS_CA[3],TEXT,'D',EDIT,POS_CA[4]
                  
      F(CALIB_SPH) = FEAT/SPHERE,OUTER,CART,POS_CA[1],POS_CA[2],$
                                                               POS_CA[3],POS_CA[4]
      
      MEAS/SPHERE,F(CALIB_SPH),5
      ENDMES
      
      POS_CA[1] = OBTAIN/FA(CALIB_SPH),4
      POS_CA[2] = OBTAIN/FA(CALIB_SPH),5
      POS_CA[3] = OBTAIN/FA(CALIB_SPH),6
      
      F(CALIB_SPH) = FEAT/SPHERE,OUTER,CART,POS_CA[1],POS_CA[2],$
                                                               POS_CA[3],POS_CA[4]
      
      CALIB/SENS,S(@SS_LAB),F(CALIB_SPH),5
      ENDMES
MODE/PROG,MAN
提示输入标准球的球心坐标,也可以通过手动测量球来替代
SS_LAB = VALUE/SNSLCT
的作用是取得当前使用测头的标签名称
整个程序前面的内容都是精确找寻标准球的球心位置,真正实现测头校验只是最后面的
CALIB/SENS,S(@SS_LAB),F(CALIB_SPH),5
      ENDMES
其中5为校验时的测量点数,可以任意更改为所需要的点数。
「该帖子被 zlzl521521 在 2009-6-10 9:12:31 编辑过」