DECL/CHAR,20,Cir_name
DECL/INTGR,kk
DECL/DOUBLE,step
kk=ASSIGN/80
Step=ASSIGN/(360/80)
DO/1,kk,1
Cir_name=ASSIGN/CONCAT('Cir_name',STR(kk))
F(@Cir_name)=FEAT/CIRCLE,INNER,POL,32.0423,360,-4.6346,0.00000000,0.00000000,1.00000000,13.9566
MEAS/CIRCLE,F(@Cir_name),4
ENDMES
D(DAT_2) = ROTATE/ZAXIS,step*kk
ENDDO