应用实例（I）：齿槽 检测要求： 1.测量齿根圆、齿顶圆、直径。 2.测量测量齿槽分度误差。 检测要领 1.建立PCS时要用端面和两孔连线； 2.评价每齿分度时,需要求相邻两齿分度偏差。 I.齿槽：程序 DATE=09/10/04 TIME=16:14:29 零件名：SAMPLE1 修订号： 序号： 统计计数：1 STARTUP =建坐标系/开始,回调:, LIST= 是 建坐标系/终止 模式/手动 加载测头/WW 测尖/T1A0B0, 柱测尖 IJK=0, 0, 1, 角度=0 格式/文本,选项,标题,符号, ;测定值, , , , , , 注释/运算符,measure the top plane! PLN1 =特征/平面，直角 理论值/361.203,-387.648,-559.492,0.001,-0.001,0.999999 实际值/224.44,283.854,-717.738,-0.0017,-0.001,0.999997 测定/平面,7 终止测量/ A0 =建坐标系/开始,回调:STARTUP, LIST= 是 建坐标系/找平,Z 正,PLN1 建坐标系/终止 模式/手动 A2 =建坐标系/开始,回调:, LIST= 是 建坐标系/平移,Z 轴,PLN1 建坐标系/终止 注释/运算符,measure the top circle! I.齿槽：程序 CIR11 =特征/圆，直角,内,最小二乘方 理论值/362.085,-408.194,-4.67,0.0005359, -0.0012611,0.9999991,120.036 实际值/232.62,304.288,-3.7,0,0,1,120.04 测定/圆,4,工作平面 终止测量/ A1 =建坐标系/开始,回调:A2, LIST= 是 建坐标系/平移,X 轴,CIR11 建坐标系/平移,Y 轴,CIR11 建坐标系/终止 注释/运算符,Please take a hit on the top circle! 移动/点,-3.677,-22.909,17.48 注释/运算符,Please take a hit on the top circle! 移动/点,-3.677,-22.909,17.48 PNT1 =特征/点，直角 理论值/-4.735,59.822,-4.667,0,-1,0 实际值/-6.311,59.686,-3.699,0,-1,0 测定/点,1 终止测量/ A3 =建坐标系/开始,回调:A1, LIST= 是 建坐标系/旋转圆,Y 正,至,CIR11,AND,PNT1,关于,Z 正 建坐标系/终止 模式/DCC I.齿槽：程序 CIR_TOP =自动/圆, 显示所有参数=否, 显示触测=否 理论值/0,0,-4.5,0,0,1,120 实际值/0.005,0.008,-4.5,0,0,1,120.036 目标值/0,0,-4.5,0,0,1 格式/文本,选项,标题,符号, ;测定值,标称值,公差,偏差,超差, , 尺寸 LOC1= 圆 的位置CIR_TOP 单位=毫米 ,$ 图示=关 文本=关 乘数=1.00 输出=两者 轴 测定 标称值 正公差 负公差 偏差 超差 D 120.036 120.000 0.100 0.000 0.036 0.000 ---#----- 终止尺寸 LOC1 模式/手动 注释/运算符,take a hit on the root circle! PNT2 =特征/点，直角 理论值/4.082,61.824,-2.348,0,-1,0 实际值/4.088,61.83,-1.423,0,-1,0 测定/点,1 终止测量/ A4 =建坐标系/开始,回调:A3, LIST= 是 建坐标系/旋转圆,Y 正,至,CIR11,AND,PNT2,关于,Z 正 建坐标系/终止 模式/DCC CIR_ROOT =自动/圆, 显示所有参数=否, 显示触测=否 理论值/0,0,-2.3,0,0,1,124 实际值/-0.007,-0.03,-2.3,0,0,1,123.991 目标值/0,0,-2.3,0,0,1 I.齿槽：程序 尺寸 LOC2= 圆 的位置CIR_ROOT 单位=毫米 ,$ 图示=关 文本=关 乘数=1.00 输出=两者 轴 测定 标称值 正公差 负公差 偏差 超差 D 123.991 124.000 0.100 0.000 -0.009 0.009 <-------- 终止尺寸 LOC2 逼近距离/ 0.3 回退/ 0.3 赋值/ZZ1 = 0 移动/点,0,60.8,15 PNT3 =自动/曲面点, 显示所有参数=否 理论值/-1.138,60.7,-3-ZZ1,1,0,0 实际值/-1.393,60.698,-3.05,0.9811523,0.0082998,0.1930579 目标值/-1.138,60.9,-3-ZZ1,1,0,0 尺寸 LOC3= 点 的位置PNT3 单位=毫米 ,$ 图示=关 文本=关 乘数=1.00 输出=两者 轴 测定 标称值 正公差 负公差 偏差 超差 PR 60.714 60.711 0.100 0.000 0.003 0.000 #-------- PA 91.315 91.074 0.000 0.000 0.241 0.241 --------> Z -3.050 -3.000 0.100 0.000 -0.050 0.050 <-------- 终止尺寸 LOC3 赋值/ANG = LOC3.PA.MEAS PNT4 =特征/点，直角 理论值/0,0,0,0,0,1 实际值/0,0,0,0,0,1 构造/点,原点 I.齿槽：程序 LIN1 =特征/直线，直角,非定界 理论值/0,0,0,-0.0187477,0.9998242,0 实际值/0,0,0,-0.0229456,0.9997367,0 构造/直线,最佳拟合,2D,PNT4,PNT3,, A5 =建坐标系/开始,回调:A4, LIST= 是 建坐标系/旋转,X 正,至,LIN1,关于,Z 正 建坐标系/终止 赋值/VX = CROSS(MPOINT(LIN1.I,LIN1.J,LIN1.K),MPOINT(0,0,1)) 注释/文档,##############################! 注释/运算符,START FROM HERE! C1 =注释/输入,Please input the number of slots! 赋值/NUM1 = C1.INPUT 逼近距离/ 0.5 回退/ 0.5 赋值/DZ = 0 赋值/PA1 = 0 赋值/PA11 = 0 赋值/PR1 = 60.70 移动/点,60.7,0,15 FPTR =文件/打开,C:\1.TXT,写入 V1 =循环/开始, 标识 = 是, 编号 = NUM1, 开始 = 1, 跳过 = , 偏置: X 轴 = 0, Y 轴 = 0, Z 轴 = 0, 角度 = 0 I.齿槽：程序 PNT =自动/曲面点, 显示所有参数=否 理论值/PR1,PA1,-3-DZ,VX.I,VX.J,VX.K 实际值/60.7,0.007,-3.003,-0.0242157,-0.9798879,0.1980742 目标值/PR1,PA1,-3-DZ,VX.I,VX.J,VX.K 赋值/ZZ1 = PNT.Z 赋值/ZZ2 = -3 赋值/DZ = ZZ1-ZZ2 REPEAT =标号/ PNT_T =自动/矢量点, 显示所有参数=否 理论值/PR1,PA1,-3-DZ,PNT.I,PNT.J,PNT.K 实际值/60.7,0.009,-2.999,-0.0241996,-0.9798837,0.1980967 目标值/PR1,PA1,-3-DZ,PNT.I,PNT.J,PNT.K 赋值/ZZ1 = PNT_T.Z 赋值/ZZ2 = -3 赋值/DZ = ZZ1-ZZ2 IF/ABS(DZ)>=0.01 转到/REPEAT END_IF/ ELSE/ 尺寸 LOC3= 点 的位置PNT_T 单位=毫米 ,$ 图示=关 文本=关 乘数=1.00 输出=两者 轴 测定 标称值 正公差 负公差 偏差 超差 PR 60.700 60.900 0.100 0.000 -0.200 0.200 <-------- PA 0.009 0.000 0.000 0.000 0.009 0.009 --------> Z -2.999 -2.991 0.100 0.000 -0.008 0.008 <-------- 终止尺寸 LOC3 I.齿槽：程序 赋值/ANG = LOC3.PA.MEAS 移动/点,PNT.X,PNT.Y,15 文件/写入行,FPTR,ANG 赋值/PA1 = PA1+9 赋值/PA11 = ANG+8.9 移动/点,PR1*COS(DEG2RAD(PA1)),PR1*SIN(DEG2RAD(PA1)),15 LIN2 =特征/直线，直角,非定界 理论值/0,0,0,0.8910345,0.4539357,0 实际值/0,0,0,1,0.0001583,0 构造/直线,最佳拟合,2D,PNT4,PNT_T,, 赋值/VX = CROSS(MPOINT(LIN2.I,LIN2.J,LIN2.K),MPOINT(0,0,1)) END_ELSE/ 循环/终止 文件/关闭,FPTR 注释/文档,calculate the angle offsets############################## 赋值/V11 = ARRAY(41) 赋值/V4 = 1 FPTR1 =文件/打开,C:\2.TXT,读取 DO/ V1 =文件/读取行,FPTR1,{line1} 赋值/V11[V4] = LINE1 赋值/V4 = V4+1 UNTIL/V1==“EOF“ 文件/关闭,FPTR1 赋值/V5 = 1 赋值/V8 = 1