$ $声明中使用跳转语句“JUMPTO”。
$ $
_____________________________________________
$ $
$ $这些代码 可以联机和离线运行。
DMISMN/'Created by [山涧果子] on 星期日, 十一月 05, 2017', 4.0
UNITS/MM, ANGDEC
WKPLAN/XYPLAN
PRCOMP/ON
TECOMP/ON
FLY/1.000
MODE/MAN
SNSET/APPRCH, 3.000
SNSET/RETRCT, 3.000
SNSET/DEPTH, 0.000
SNSET/SEARCH, 10.000
SNSET/CLRSRF, 30.000
RECALL/D(MCS)
SNSLCT/S(LENOVO)
GEOALG/CIRCLE, LSTSQR
GEOALG/ARC, LSTSQR
GEOALG/PLANE, LSTSQR
$$
$$
MODE/PROG,MAN
$$ Loop
DECL/COMMON,INTGR,I
DECL/COMMON,CHAR,255,C1
I=ASSIGN/0
(LOOP)
I=ASSIGN/I+1
IF/(I.GT.10)
TEXT/OPER,'测量圆结束,退出测量!'
JUMPTO/(END_LOOP)
ENDIF
C1 = ASSIGN/CONCAT('J','-',STR(I))
F(@C1) = FEAT/CIRCLE,INNER,CART, 40.000, 55.000, 33.000, 0.000, 0.000,$
1.000, 45.000
$$ Measurement points are created through nominal points
MEAS/CIRCLE, F(@C1), 4
PTMEAS/CART, 26.766, 36.803, 33.000, 0.588, 0.809, -0.000
GOTO/CART, 35.673, 37.013, 35.000
GOTO/CART, 42.885, 36.726, 35.000
GOTO/CART, 49.659, 39.222, 35.000
PTMEAS/CART, 58.197, 41.766, 33.000, -0.809, 0.588, -0.000
GOTO/CART, 57.987, 50.673, 35.000
GOTO/CART, 58.274, 57.885, 35.000
GOTO/CART, 55.778, 64.659, 35.000
PTMEAS/CART, 53.234, 73.197, 33.000, -0.588, -0.809, 0.000
GOTO/CART, 44.327, 72.987, 33.000
GOTO/CART, 37.115, 73.274, 33.000
GOTO/CART, 30.341, 70.778, 33.000
PTMEAS/CART, 21.803, 68.234, 33.000, 0.809, -0.588, 0.000
ENDMES
TEXT/OPER,CONCAT('已测量',STR(I),'次!')
JUMPTO/(LOOP)
(END_LOOP)
ENDFIL