短圆弧测量方法

短圆弧的测量,下面给出测量方法:
! Define the curve segment
DFNCV2D (SGM=SGM1,TYP=ARC,STA=(..),END=(...),PTS=20,DEL=Y,CSY=CSY,OFS=5)
! Check/edit the curve segment
EDTSGM2D (NAM=SGM1)
! Generate probing points of the complete contour
GENCV2D (NAM=SCAN1,SGM=SGM1,DEL=Y,CLW=N,INO=O)
! Check the probing points
EDTNPT (NAM=SCAN1)
! Create a norminal element for comparsion
EXCHNG (NAM=SCAN1,TYP=MOV)
! The actual points are copied to a new element
CPYAPT (FRM=SCAN1,TO=SCAN$NOM,DEL=Y)
! Mesure contour
ME2DE (NAM=SCAN1)
! Calculate contour
RCOR2D (SRC=SCAN1,DST=SCAN2...)
! Bestfit the actual points
BFITPT（ACT=SCAN1，NOM=SCAN$NOM，RES=SCAN3，TRA=TRA$SGM，ETY=PD，MXI=100）
! Compare the mesured profile
ACNOPT (ACT=SCAN3,NOM=SCAN$NOM,RES=RES1,ETY=PD)
!
GETVAL（NAM=REA1，OBJ=RES1.ACT，DST=E）
GETVAL（NAM=REA2，OBJ=RES1.ACT，DST=F）
GETVAL（NAM=REA3，OBJ=RES1.ACT，DST=D）
LISEXP (NAM=(REA1,REA2,REA3))
!
CVMSKTXT (MSK=PM$APTTT,TXT=TXT)
DELTXT (NAM=GDBSTA:PM$APTTT,CNF=Y)
EDTTXT TXT
CNVTXT TXT
SET (NAM=GDBSTA:PM$APTTT,STR=TXT)
!Output result points
LISAPT RES1