$$/* Header
DMISMN/'Created by [山涧果子] on 星期一, 六月 13, 2022', 4.0
UNITS/MM, ANGDEC, MMPS
WKPLAN/XYPLAN
PRCOMP/ON
TECOMP/ON
FLY/1.0000
MODE/MAN
SNSET/APPRCH, 2.0000
SNSET/RETRCT, 2.0000
SNSET/DEPTH, 0.0000
SNSET/SEARCH, 10.0000
SNSET/CLRSRF, 20.0000
RECALL/D(MCS)
SNSLCT/S(D2L30)
GEOALG/BF, LSTSQR
GEOALG/ANGLB, DEFALT
GEOALG/CIRCLE, MINMAX
GEOALG/ARC, LSTSQR
GEOALG/PLANE, LSTSQR
$$
$$
$$*/
MODE/PROG,MAN
$$
$$/*
DECL/COMMON, INTGR, KNPTN1
KNPTN1 = PROMPT/'请输入测量次数!', 99999, 1
DECL/COMMON,INTGR,CUNT
CUNT = ASSIGN/0
(L1)
IF/(CUNT.LT.KNPTN1)
$$*/
GOTO/31.5000, 31.5000, 50.0000
F(CIR1)=FEAT/CIRCLE,INNER,CART,31.5000,31.5000,-3.0000,0.0000,0.0000,1.0000, 20.0000
$$ Measurement points are created through nominal points
MEAS/CIRCLE, F(CIR1), 4
PTMEAS/CART, 41.5000, 31.5000, -3.0000, -1.0000, 0.0000, 0.0000
GOTO/CART, 37.9672, 34.1788, -3.0000
GOTO/CART, 36.4497, 36.4497, -3.0000
GOTO/CART, 34.1788, 37.9672, -3.0000
PTMEAS/CART, 31.5000, 41.5000, -3.0000, 0.0000, -1.0000, 0.0000
GOTO/CART, 28.8212, 37.9672, -3.0000
GOTO/CART, 26.5503, 36.4497, -3.0000
GOTO/CART, 25.0328, 34.1788, -3.0000
PTMEAS/CART, 21.5000, 31.5000, -3.0000, 1.0000, 0.0000, 0.0000
GOTO/CART, 25.0328, 28.8212, -3.0000
GOTO/CART, 26.5503, 26.5503, -3.0000
GOTO/CART, 28.8212, 25.0328, -3.0000
PTMEAS/CART, 31.5000, 21.5000, -3.0000, 0.0000, 1.0000, 0.0000
ENDMES
T(TCOR1)=TOL/CORTOL,XAXIS,-0.0500,0.0500
OUTPUT/FA(CIR1),TA(TCOR1)
T(TCOR2)=TOL/CORTOL,YAXIS,-0.0500,0.0500
OUTPUT/FA(CIR1),TA(TCOR2)
T(TDM1)=TOL/DIAM,0.0000,0.0210
OUTPUT/FA(CIR1),TA(TDM1)
CUNT = ASSIGN/CUNT+1
TEXT/OPER, CONCAT('已测量',STR(CUNT),'次,','共',STR(KNPTN1),'次')
JUMPTO/(L1)
ENDIF
- 1.
- 2.
- 3.
- 4.
- 5.
- 6.
- 7.
- 8.
- 9.
- 10.
- 11.
- 12.
- 13.
- 14.
- 15.
- 16.
- 17.
- 18.
- 19.
- 20.
- 21.
- 22.
- 23.
- 24.
- 25.
- 26.
- 27.
- 28.
- 29.
- 30.
- 31.
- 32.
- 33.
- 34.
- 35.
- 36.
- 37.
- 38.
- 39.
- 40.
- 41.
- 42.
- 43.
- 44.
- 45.
- 46.
- 47.
- 48.
- 49.
- 50.
- 51.
- 52.
- 53.
- 54.
- 55.
- 56.
- 57.
- 58.
- 59.
- 60.
- 61.
- 62.