我们在自动测量铸铁件或较厚压铸铝件的时候，经常会遇到砂孔，直接影响了测量的准确性。通常情况我们是在自动测量结束后再对这些元素进行手动补测，既增加了劳动量，又会因为测量结果的顺序发生变化，无法用VB进行电子表格处理。 下面的一段小程序较好的解决了这个问题，如下： ... !判断基准孔O1可信度 e5=memory[7] mtt=e5|f utt=0.03 decl2="基准孔O1圆度误差为: ,此偏差将直接影响测量结果!" stri ques AAA： ... 如果测头测到砂孔，圆度会变大，用（mtt=e5|f）将孔的圆度引出，子程序（ques）的功能是将此圆度和预定值（utt=0.03）进行比较并进行处理，处理过程如下：A，圆度值小于预定值，跳过处理程序继续进行测量（JUMP AAA）。B，圆度大于预定值，让测点旋转45度再次测量此孔。然后重复上次比较过程进行再处理：1，圆度小于预定值 JUMP AAA，2，圆度仍然大于预定值，进入MANMOVE状态，手动测量此孔，然后再进入自动测量状态。 stri是字符串处理子程序，用叠代法显示“decl2”字符串，其中的空格部分将被替换为圆度值。 其实我的“ques"子程序远比这复杂，能最大程度的让开影响圆度的因素，为表达清楚而简化了，有兴趣的朋友可以发一下自己的处理方法。 （附：看贴要回贴，不然影响积极性哦 ^_^ ） 何必呢 何苦呢...