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)
