RationalDMIS 2020 高级编程之有限循环（DO）

DECL/REAL, rHDia,StepX,StepY
DECL/INTGR,I,J,LOOPX,LOOPY
DECL/CHAR,10,HOLENUM,PREFIX

PREFIX = "HOLE"

I=ASSIGN/1
J=ASSIGN/1
LOOPX=ASSIGN/10
LOOPY=ASSIGN/20

rHDia = ASSIGN/x.xxxx           $$Set the diameter here...not specified
StepX=ASSIGN/1.969
StepY=ASSIGN/1.969

DO/I,1,LOOPX,1

   DO/J,1,LOOPY,1

      GOTO/StepX*I,StepY*J,1.000

      HOLENUM = CONCAT(PREFIX,I,J)

      MODE/AUTO,PROG,MAN

      F(HOLENUM) = FEAT/CIRCLE, INNER, CART, 0.000, 0.000, -0.2500,$
      0.000000, 0.000000, 1.000000,rHDia
      MEAS/CIRCLE, F(HOLENUM), 6
      ENDMES      

      IF/J=LOOPY
      J=ASSIGN/1
      ENDIF

   ENDDO

ENDDO