曲線方程：輪廓度評價
測量出每個點之後，要評價整個曲線的輪廓度，我們就需要構造。根據PC-DMIS評價輪廓度的特性，我們把所有的點構造成“特徵組”。
而在測量中使用的是循環，程序中不會出現每一個點特徵，這種類型的構造方法是：
FSET1 =FEAT/SET,RECT
THEO/0,0,-5,0,0,1
ACTL/-0.005,0.01,-5,0,0,1 CONSTR/SET,BASIC,POINT1[0..359],,
爲了更加準確地檢測曲線方程，需要在不同的截面深度檢測，考慮到測針對測量結果的影響，所以採用了立式裝夾。這樣分別從量變採用兩個測頭角度檢測不同深度的截面，避免了測杆的影響。
DATE=2004-9-24 TIME=16:02:18
PART NAME : DINGZI
REV NUMBER :
SER NUMBER :
STATS COUNT : 1
STARTUP =ALIGNMENT/START,RECALL:, LIST= YES
ALIGNMENT/END
MODE/MANUAL
LOADPROBE/DZ
TIP/T1A90B90, SHANKIJK=-1, 0, 0, ANGLE=90
FORMAT/TEXT,OPTIONS, ,HEADINGS,SYMBOLS, ;
NOM,MEAS,DEV, , , ,
PLA1 =FEAT/PLANE,RECT,TRIANGLE
THEO/10,0,-350,0,0,1
ACTL/196.025,277.783,-587.813,-1,0,0
MEAS/PLANE,4
ENDMEAS/
A1 =ALIGNMENT/START,RECALL:STARTUP, LIST= YES
ALIGNMENT/LEVEL,ZPLUS,PLA1
ALIGNMENT/TRANS,ZAXIS,PLA1
ALIGNMENT/END
CIR1 =FEAT/CIRCLE,RECT,IN,LEAST_SQR
THEO/-0.1,50,0,0,0,1,6
ACTL/-561.24,279.73,-0.955,0,0,1,5.257
MEAS/CIRCLE,4,WORKPLANE
ENDMEAS/
CIR2 =FEAT/CIRCLE,RECT,IN,LEAST_SQR
THEO/0.1,-50,0,0,0,1,6
ACTL/-616.831,280.515,-1.882,0,0,1,5.028
MEAS/CIRCLE,4,WORKPLANE
ENDMEAS/
POINT2 =FEAT/POINT,RECT
THEO/-0.1,50,0,0,0,1
ACTL/-561.24,279.73,0,0,0,1
CONSTR/POINT,PROJ,CIR1,PLA1
POINT3 =FEAT/POINT,RECT
THEO/0.1,-50,0,0,0,1
ACTL/-616.831,280.515,0,0,0,1
CONSTR/POINT,PROJ,CIR2,PLA1
POINT4 =FEAT/POINT,RECT
THEO/0,0,0,0,0,1
ACTL/-589.035,280.123,0,0.999,0,-0.005
CONSTR/POINT,MID,POINT2,POINT3
A2 =ALIGNMENT/START,RECALL:A1, LIST= YES
ALIGNMENT/TRANS,XAXIS,POINT4
ALIGNMENT/TRANS,YAXIS,POINT4
ALIGNMENT/END
CIR3 =FEAT/CIRCLE,RECT,IN,LEAST_SQR
THEO/24.95,25.05,0,0,0,1,10
ACTL/28.154,-28.936,-2.714,0,0,1,10.505
MEAS/CIRCLE,4,WORKPLANE
ENDMEAS/
A0 =ALIGNMENT/START,RECALL:A2, LIST= YES
ALIGNMENT/ROTATE_CIRCLE,XPLUS,TO,POINT4,
AND,CIR3,ABOUT,ZPLUS
ALIGNMENT/END
MODE/DCC
COMMENT/OPER,NO,move to center!
ASSIGN/ANG = 0
ASSIGN/ANG2 = ANG
ASSIGN/HH = -5
ASSIGN/VV = 1
STAR =LABEL/
IF/ANG2<=18
ASSIGN/R = 20.840
END_IF/
IF/ANG2>18 AND ANG2<=45
ASSIGN/R = 20.840+(((ANG2-18)^2)/486)
END_IF/
IF/ANG2>45 AND ANG2<=72
ASSIGN/R = 23.840-(((72-ANG2)^2)/486)
END_IF/
IF/ANG2>72 AND ANG2<=90
ASSIGN/R = 23.840
END_IF/
ASSIGN/ANG1 = DEG2RAD(ANG)
ASSIGN/VI = -1*COS(ANG1)
ASSIGN/VJ = -1*SIN(ANG1)
POINT1 =AUTO/SURFACE POINT,SHOWALLPARAMS = YES
THEO/R,ANG,-5,VI,VJ,0
ACTL/20.849,-1.021,-5.006,-0.999,0.017,0
TARG/R,ANG,-5,VI,VJ,0
THEO_THICKNESS = 0,POLAR,SNAP = NO,$
AUTO MOVE = NO,DISTANCE = 25， $
INIT = 3,PERM = 3,SPACER = 0.5
DIM LOC1= LOCATION OF POINT POINT1 UNITS=MM ,$
AX NOMINAL MEAS DEV
PR R 20.849 0.009 -------->
PA ANG -1,01,14 -0,01,14
END OF DIMENSION LOC1
ASSIGN/ANG = ANG+VV
IF/ANG<=90
ASSIGN/ANG2 = ANG
END_IF/
IF/ANG>90 AND ANG<=180
ASSIGN/ANG2 = 180-ANG
END_IF/
IF/ANG>180 AND ANG<=270
ASSIGN/ANG2 = ANG-180
END_IF/
IF/ANG>270 AND ANG<360
ASSIGN/ANG2 = 360-ANG
END_IF/
IF_GOTO/ANG<360,GOTO = STAR
FSET1 =FEAT/SET,RECT
THEO/0,0.001,-5,0,0,1
ACTL/-0.005,0.01,-5,0,0,1
CONSTR/SET,BASIC,POINT1[0..359],,
A3 =ALIGNMENT/START,RECALL:A0, LIST= YES
ALIGNMENT/BF2D,ZPLUS,LEASTSQR,CREATE WEIGHTS=NO,ROTANDTRANS,-0.005,0.009,0,0.003
SHOWALLINPUTS=NO,SHOWALLPARAMS=NO
ALIGNMENT/END
DIM PROF1= PROFILE OF SURFACE OF SET FSET1 FORMONLY NO FIT UNITS=MM ,$
GRAPH=ON TEXT=OFF MULT=100.00 OUTPUT=BOTH
AX NOMINAL +TOL -TOL MEAS DEV OUTTOL
M 0.000 0.060 0.000 0.060 0.060 0.000 --------#
