RationalDMIS循环测量案例

提示：

$ $声明中使用跳转语句“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