一、有前后缘理论数据的叶片测量程序：
INIT !机器初始
VANE-INIT !叶片初始化
INPUT-STR(S$2,"刻号") !输入叶片序列号
SET-TITLE("7,"+S$2)
DISP("将要旋转测头~ 开始测量型线 ~方向A90B180")
PROBE-NO("A90B180")
PROBE-CENT-COOR(ON)
GET-SECTION-NR !得到测量截面数
IF(V78==2)!********************扫描式开始**********************************
! SET-SCAN-PARA(10,0.5)
V86=6 !法矢量辅助点距离
V10=10 !从点(V81,V82,V83) 沿着测头的反向移动的距离
V11=5 !从点(V81,V82,V83) 沿着测头的方向移动的距离
V79=1 !设置测量叶盆
FOR(V85,1,V89)
SET-NEW-CURVE !得到V85截面的理论数据
GET-PNT-COUNT !得到点数放置到 V90
V88=V90 !设置读取第V90点坐标值
GET-HELP-PNT !得到辅助点，根据V86计算结果 放置在 V91,V92,V93
MOVE-TO(V91-50,V92-80,V93)
GET-TOUCH-PNT !得到探测目标点，结果放置在 V81,V82,V83
VS-TOUCH-FINISH("X-10",V10,V11, V81,V82,V83) !探测结束位置
MOVE-TO(V91-50,V92-80,V93)
V88=1 !设置读取第一点坐标值
GET-HELP-PNT
MOVE-TO(V91+20,V92-80,V93)
VS-TOUCH-START("X+20",V10,V11, V81,V82,V83) !探测开始位置，详细参见说明书
!WAIT(5) !有的控制器在探测到扫描时需要等待。
VS-RUN-SCAN !用‘探测开始位置’作为起始点，用‘探测结束位置’作为扫描的结束点，开始扫描
V88=V90 !设置读取第V90点坐标值
GET-HELP-PNT
MOVE-TO(V91-50,V92-80,V93)
SEG-FILE-ADD !添加数据记录位置
NEXT
MOVE-TO(V91-50,V92-80,V93+200)
MOVE-TO(V91-50,V92+280,V93+200)
PROBE-NO("A90B0")
MOVE-TO(V91+100,V92+80,V93+200)
V79=2 !设置测量叶背
FOR(V85,1,V89)
SET-NEW-CURVE
GET-PNT-COUNT
V88=V90!设置读取第V90点坐标值
GET-HELP-PNT
GET-TOUCH-PNT
MOVE-TO(V91+30,V92+100,V93)
VS-TOUCH-FINISH("X+20",V10,V11, V81,V82,V83) !探测结束位置
MOVE-TO(V91,V92,V93)
MOVE-TO(V91+20,V92+100,V93)
V88=1!设置读取第一点坐标值
GET-HELP-PNT
MOVE-TO(V91-10,V92+100,V93)
VS-TOUCH-START("X-10",V10,V11, V81,V82,V83) !探测开始位置
!WAIT(5)
VS-RUN-SCAN
V88=V90
GET-HELP-PNT
MOVE-TO(V91+80,V92+80,V93)
SEG-FILE-ADD !添加数据记录位置
NEXT
MOVE-TO(V91+80,V92+80,V93+200)
ENDIF
SEG-FILE-WRITE("VANE_RES.VSACT") !写全部的实测数据，文件名称不能修改。
VANE-END
PROBE-CENT-COOR(OFF)
!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>开始测基本尺寸
MOVE-TO(0,0,10)
READ-PROBE(0,0,0)
TOL("X",0,0.1,-0.1)
TOL("Y",0,0.1,-0.1)
SET-OUTPUT("X,Y")
POINT("")
OUTPUT-DIM("喉道点","X,Y")
VANE-END !传递数据，将所测数据传给专用程序处理
END
二.无前后缘数据的叶片测量程序：
INIT !机器初始
VANE-INIT !叶片初始化
INPUT-STR(S$2,"刻号") !输入叶片序列号
SET-TITLE("7,"+S$2)
DISP("将要旋转测头~ 开始测量型线 ~方向A90B180")
PROBE-NO("A90B180")
PROBE-CENT-COOR(ON)
GET-SECTION-NR !得到测量截面数
IF(V78==2)!********************扫描式开始**********************************
! SET-SCAN-PARA(10,0.5)
V86=6 !法矢量辅助点距离
V79=1 !设置测量叶盆
FOR(V85,1,V89)
SET-NEW-CURVE !得到V85截面的理论数据
GET-PNT-COUNT !得到点数放置到 V90
V88=V90 !设置读取第V90点坐标值
GET-HELP-PNT !得到辅助点，根据V86计算结果 放置在 V91,V92,V93
MOVE-TO(V91-50,V92-80,V93)
GET-TOUCH-PNT !得到探测目标点，结果放置在 V81,V82,V83
MOVE-TO(V91,V92,V93)
READ-PROBE(V81,V82,V83)
MOVE-TO(V91-50,V92-80,V93)
V88=1 !设置读取第一点坐标值
GET-HELP-PNT
MOVE-TO(V91+20,V92-80,V93)
RUN-SCAN(1,V90) !开始扫描本截面,从第1点到第V90点
V88=V90 !设置读取第V90点坐标值
GET-HELP-PNT
MOVE-TO(V91-50,V92-80,V93)
SEG-FILE-ADD !添加数据记录位置
NEXT
MOVE-TO(V91-50,V92-80,V93+200)
MOVE-TO(V91-50,V92+280,V93+200)
PROBE-NO("A90B0")
MOVE-TO(V91+100,V92+80,V93+200)
V79=2 !设置测量叶背
FOR(V85,1,V89)
SET-NEW-CURVE
GET-PNT-COUNT
V88=V90!设置读取第V90点坐标值
GET-HELP-PNT
GET-TOUCH-PNT
MOVE-TO(V91+30,V92+100,V93)
MOVE-TO(V91,V92,V93)
READ-PROBE(V81,V82,V83)
MOVE-TO(V91,V92,V93)
MOVE-TO(V91+20,V92+100,V93)
V88=1!设置读取第一点坐标值
GET-HELP-PNT
MOVE-TO(V91-10,V92+100,V93)
RUN-SCAN(1,V90)
V88=V90
GET-HELP-PNT
MOVE-TO(V91+80,V92+80,V93)
SEG-FILE-ADD !添加数据记录位置
NEXT
MOVE-TO(V91+80,V92+80,V93+200)
ENDIF
SEG-FILE-WRITE("VANE_RES.VSACT") !写全部的实测数据，文件名称不能修改。
VANE-END
PROBE-CENT-COOR(OFF)
END