RationalDMIS应用技巧系列之注释应用

DMISMN/'Created by [山涧果子] on 星期四, 十月 19, 2017', 4.0

UNITS/MM, ANGDEC

WKPLAN/XYPLAN

PRCOMP/ON

TECOMP/ON

FLY/1.000

MODE/PROG, MAN

SNSET/APPRCH, 2.000

SNSET/RETRCT, 2.000

SNSET/DEPTH, 2.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/AUTO,PROG,MAN

DECL/COMMON,INTGR,I

DECL/COMMON,CHAR,255,C1

DO/I,1,10,1

C1 = ASSIGN/CONCAT('J','-',STR(I))

F(@C1) = FEAT/CIRCLE,INNER,CART, 40.000, 55.000, 35.000, 0.000, 0.000,$

1.000, 45.000

$$ Empty Meas Block

MEAS/CIRCLE, F(@C1), 4

ENDMES

C1 = ASSIGN/CONCAT('已测量',STR(I),'次!',',是否,继续测量!')

TEXT/OPER, C1

ENDDO

ENDFIL