见参考程序
********************************************************************************
*                                                                              *
*                        P R O G R A M   -  L I S T I N G                      *
*                                                                              *
********************************************************************************
 !****************************************************************************!
 ! Notation ........:                     Inspector........: QUINDOS          !
 ! Drawing no. .....:                     Date ............:  2-DEC-02        !
 ! Workpiece name ..: BS_2D_C                                                 !
 !****************************************************************************!
1:STOP
START    (WKP=BS_2D_C, INS=CP, RPO=N, TOP=N, EDT=N)
USECMM   (NAM=SAVE$CMM)
USEPRB   (NAM=PRB(1))
! MANUAL ALIGNMENT
MEPLA    (NAM=M_PLN(1), CSY=CSY, MOD=NOE, CPY=DEF$PLA3, ITY=GSS, DEL=N)
MECIR    (NAM=M_CIR(1), CSY=CSY, PRO=M_PLN(1), MOD=NOE, CPY=DEF$CIR5, INO=I, ITY
          <  =GSS, DEL=N)
MECIR    (NAM=M_CIR(2), CSY=CSY, PRO=M_PLN(1), MOD=NOE, CPY=DEF$CIR5, INO=I, ITY
          <  =GSS, DEL=N)
DIPNTPNT (NAM=M_AXI, TYP=DIS, CSY=CSY, CNN=DIS, EL1=M_CIR(1), DF1=X.$PT, EL2=M_C
          <  IR(2), DF2=X.$PT, CPY=DEF$DIS1, MOD=EVA)
BLDCSY   (NAM=M_CSY(1), TYP=CAR, SPA=M_PLN(1), SDR=+Z, PLA=M_AXI, PDR=+X, XZE=M_
          <  CIR(1), YZE=M_CIR(1), ZZE=M_PLN(1))
! 2D OPERATION
 ! Define circles and line of the slot
X=54.8
DFNCV2D   (SGM=SLOT, TYP=ARC, CEN=(0,0), PTS=50, LEN=10, ANG=(90,270), DIR=CCW, 
          <  DEL=Y, CSY=M_CSY(1))
DFNCV2D  (SGM=SLOT, TYP=LIN, STA=(0,-10), END=(X,-10), PTS=100, DEL=N, CSY=M_CSY
          <  (1))
DFNCV2D  (SGM=SLOT, TYP=ARC, CEN=(X,0), PTS=50, LEN=10, ANG=(270,90), DIR=CCW, D
          <  EL=N, CSY=M_CSY(1))
DFNCV2D  (SGM=SLOT, TYP=LIN, STA=(X,10), END=(0,10), PTS=100, DEL=N, CSY=M_CSY(1
          <  ))
 ! edit the segments of the slot
EDTSGM2D (NAM=SLOT)
 ! Caculate the Points (NPT) of the slot
GENCV2D  (NAM=NOM_SLOT, SGM=SLOT, DEL=Y, CLW=N, INO=I)
 ! Chechk in GRAPHIC mode of the NPT's
ME2DE    (NAM=NOM_SLOT, CSY=M_CSY(1))
EDTNPT   (NAM=NOM_SLOT)
 ! convert to APT's
EXCHNG NOM_SLOT, MOV
EDTAPT NOM_SLOT
SETFLD NOM_SLOT, Z, APT, -5
CURV2D NOM_SLOT, NOM_SLOT, N, , , , , , , , N
 ! HSS SCANNING
 ! DSBSYS S_STEP TO CHECK IN SINGLE STEP MODE
!ENBSYS (NAM=S_STEP)
!INDPRC   (NAM=HSS$SETPAR)
!LISREA
TA0=0.01
DIS=0.07
ACC=100
 ! CREATE THE PATH FOR HSS SCANNING
CRSCAPTS (NOM=NOM_SLOT, PTD=PTD_SLOT, PRB=PRB(1), DIS=DIS, VEL=5, ACC=ACC, TA0=T
          <  A0, OPN=N, P3D=Y, TYP=APT, A_O=XY, FAC=0.5, COR=Y, CRV=Y)
 ! TO CHECK THE PROBE VELOCITY
!HSSVEL   (PTD=PTD_SLOT, A_O=XY)
 !INPUT NAME NPT TYPE=HSS, SPA=PTD_SLOT, A=15 PNT/MM
ME2DE    (NAM=M_SLOT, CSY=M_CSY(1), MOD=NOE, INO=I)
 ! READ SCA PNT & BUILD THE ELE
RDSCAPTS  (PTD=M_SLOT, NOM=NOM_SLOT, RES=SLOT_M, OPN=N, PRB=PRB(1), FI1=0, FI2=0
          <  , DSN=N, DEN=10, TYP=APT, A_O=XY)
 ! RADIUS CORRECTION
RCOR2D   (SRC=SLOT_M, DST=SLOT_R, OPN=N, RAD=-5, ERR=ERR)
!EDTAPT   (NAM=SLOT_R)
 ! 2D ACT NOM COMPARISON
ACNO2D   (ACT=SLOT_R, NOM=NOM_SLOT, RES=ACN_SLOT, AOP=N, NOP=N, ERR=ERR)
 ! BESTFIT & ACT NOM COMPARISON
BFIT2D   (ACT=SLOT_R, NOM=NOM_SLOT, RES=BFT_SLOT, TRA=BFT_TRA, ORI=N, AOP=N, NOP
          <  =N, ACW=N, NCW=N)
ACNO2D   (ACT=BFT_SLOT, NOM=NOM_SLOT, RES=ACNB_SLOT, AOP=N, NOP=N, ERR=ERR)
 ! PLOTTING
CONDEVPL ''
CONDEVPL
~REM1=''
~REM2=BEFORE BESTFIT
CURVEQ_P (ELE=ACN_SLOT, OPN=N, FAC=300)
~REM2=AFTER BESTFIT
CURVEQ_P (ELE=ACNB_SLOT, OPN=N, FAC=300)
CUTDEVPL
 ! PRINT HELP OF COMMAND
CONDEVLP
HELP BFIT2D, LP
CUTDEVLP
 ! STANDARD SCANNING
ME2DE SLOT_SCA, , M_CSY(1), , NOE, , , , I
RCOR2D SLOT_SCA, SLOT_SCA_R, N, XY, N, , , ERR
EDTAPT SLOT_SCA_R
ACNO2D SLOT_R, NOM_SLOT, ACN_SLOT, , , , , N, N, , , , , , , ERR
BFIT2D   (ACW=N, NCW=N)
 ! FORMAT OBJECT TO ASCII
FMTOBJ BS_NOM_SLOT.APT, NOM_SLOT, , , , , ELE, NPT, (X,Y,Z)
 ! CONVERT ASCII DATA TO QUINDOS OBJECT
CNVFIL BS_NOM_SLOT.APT
SAVE , , , , , , , QDS_LIB:BS_2D_C.WDB
DELAPT ELE:*(), N
GENPTS
REDUCPTS
GENBSPTS
ECON2D