RationalDMIS类似PC DMIS变量数组(ARRAY）功能

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

UNITS/MM, ANGDEC

WKPLAN/XYPLAN

PRCOMP/ON

TECOMP/ON

FLY/1.0

MODE/PROG, MAN

SNSET/APPRCH, 2.000000

SNSET/RETRCT, 2.000000

SNSET/DEPTH, 0.000000

SNSET/SEARCH, 10.000000

SNSET/CLRSRF, 10.000000

RECALL/D(CRD1)

SNSLCT/S(20-30X2)

GEOALG/CIRCLE, LSTSQR

GEOALG/ARC, LSTSQR

GEOALG/PLANE, LSTSQR

$$

$$

MODE/AUTO,PROG,MAN

DECL/COMMON,INTGR,I

I = ASSIGN/1

DECL/COMMON,CHAR,255,C1

DECL/COMMON,CHAR,255,C2

DECL/COMMON,CHAR,255,C3

DECL/COMMON,DOUBLE,L1

DECL/COMMON,DOUBLE,L2

DO/I,1,5,1

C1 = ASSIGN/ELEMNT(I,',','0,75,125,235,315')

C2 = ASSIGN/ELEMNT(I,',','8,4,14,12,6')

L1 = ASSIGN/VAL(C1)

L2 = ASSIGN/VAL(C2)

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

F(@C3) = FEAT/CIRCLE,INNER,POL, 32.000000,L1,-2.000000, 0,0,1, L2

$$ Empty Meas Block

MEAS/CIRCLE, F(@C3),4

ENDMES

ENDDO

F(CIR_BF1) = FEAT/CIRCLE,OUTER,POL, 0.000000, 0.000000, -2.000000, 0.000000,$

 0.000000, 1.000000, 64.000000

CONST/CIRCLE,F(CIR_BF1),BF,FA(J-1),FA(J-2),FA(J-3),FA(J-4),FA(J-5)

OUTPUT/FA(CIR_BF1)