AC-DMIS 5.6 叶片测量程序

接触式程序示例


INIT



!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>设置表头
INPUT-STR(S$9,"输入叶片序号：")
SET-TITLE("8,"+S$9)

!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>做准备工作
CLEAR-RESULT
VANE-INIT
LOAD-PROBE-FILE("DEFAULT")
PROBE-NO("A90B180")
V86=PROBE-RADIUS
PROBE-CENT-COOR(ON)
LOAD-COORSYS("VANE-1")

!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>开始测叶型

SET-VANE-TYPE(3) !设置叶片类型
GET-SECTION-NR !得到本次测量的截面数，值赋给V89，是固定的
V86=3 !法矢量辅助点距离
V79=1 !1表示叶盆，2表示叶背
FOR(V1,1,V89)
    V85=V1 !本次测量第V85截面，共有V89个截面
    SET-NEW-CURVE !读本次截面盆或叶背的理论数据，拟合曲线
    GET-PNT-COUNT !所拟合曲线的点数，值赋给V90，是固定的
    FOR(V88,1,V90)
        GET-HELP-PNT !获得辅助点(V91,V92,V93)
        GET-TOUCH-PNT !获得探测点(V81,V82,V83)
        MOVE-TO(V91,V92,V93) !要根据实际情况来处理安全位置
        READ-PROBE(V81,V82,V83) 
    NEXT
    MOVE-TO(V91,V92,V93) !要根据实际情况来处理安全位置

 SEG-FILE-ADD !添加数据记录位置
NEXT




 

!测量叶背
V79=2
FOR(V1,1,V89)
    V85=V1
    SET-NEW-CURVE
    GET-PNT-COUNT
    FOR(V88,1,V90)
       GET-HELP-PNT
       GET-TOUCH-PNT
       MOVE-TO(V91,V92,V93)
       READ-PROBE(V81,V82,V83)
    NEXT
    MOVE-TO(V91,V92,V93)

SEG-FILE-ADD !添加数据记录位置
NEXT
SEG-FILE-WRITE("VANE_RES.VSACT") !写全部的实测数据，文件名称不能修改。




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