测头校验程序
如果在程序中要完成对当前测头的校验,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 编辑过」