$$/*  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.