相关文章，在仿真秀官网搜索：

RationalDMIS 2020一平面与两偏置圆找正（原点不在偏置圆上）

RationalDMIS 2020 自学习编程详解

RationalDMIS 2020 编程测量（脱机编程+在线编程）2021）

RationalDMIS 2021 Version高级教程（技术大全） 山涧果子

DMIS5.2标准如下：

使用DO循环语句可以多次反复执行同一段程序，执行的次数可以是设定的数字、变量。

DO…ENDDO语句块

DO…ENDDO语句块以DO开头，ENDDO结尾，可以反复多次执行一组程序行，支持嵌套。

格式如下：

DO/变量, 初始值, 结束值, 步长

$$ DMIS语句

ENDDO

变量：已定义的整数型变量

初始值：循环开始后变量开始计数的数值，为整数值

结束值：变量达到这个值后循环停止，为整数值

步长：变量每循环一次的增加值，可选项，不写默认为1

 DO循环在DMIS语句编程中是常用的语句，其语法为：

      DO/index,initial,limit,increment

      循环体

      ENDDO

语句中，index是一个整型变量,initial是这个变量的起始值,limit是这个变量的结束值,increment是这个变量的增幅。

从一个简单常用的例子说起,循环可能是我们在高级应用服务中运用最多的语句,DMIS标准中的循环语句为主字DO

语法格式为：

DO/变量,启始值,终止值,步幅

那么一个语句如果为DO/I,1,10,1的意义就为,执行一个循环,I的值+1,增加10次之后,循环结束。

来看一个实例。

假设我的工件有一个孔,名为CIR1,我需要把它测量5次,取其中的最小值.那么测量部分的循环语句即为

AUTO/AUTO,PROG,MAN

DO/I,1,5

MEAS/CIRCLE,CIR1,4

ENDMES

ENDDO

运行这段语句,测量机就会自动去测量圆CIR1,直到5次结束后位置。

需要注意的地方: 

1.所有的变量在使用前都必须声明,上面的I是一个整型变量,每循环一次,I+1

2.每一个DO语句都必须跟一个ENDDO表示该循环的结束.

3.步幅表示每次循环I的增量,如果步副是2,那么下次I就为3,再循环一个为5,以此类推.

示例1：

DO/I,2,30,3

      循环体

      ENDDO

意义即为 I开始的值为2,运行第一遍循环后I的值变为5,第2遍后变为8,第三遍后变为11…………，到I的值大于30后结束循环

      最后一个参数increment可以不写，默认为1。

循环，DO/I，1，10

 ENDDO

作用：将DO和ENDDO中间的过程重复10次。如果把测量孔的语句放进去，结果即为连续10次测量该孔。

广泛用在有规则分布的小孔、特征点的检测方面，根据一个特征点，可以对其它所有的特征点进行检测。

关键字：DO

示例2：

下面的例子将提示语句循环执行4次，每次提示循环到第几遍

DO/KNPTN1,1,4,1

$$将数字转化为字符并与提示合并

KNPTC1=ASSIGN/CONCAT('这是第',STR(KNPTN1),'遍循环')

TEXT/OPER, KNPTC1

ENDDO

示例3：

下面的程序控制机器在500X500的范围内走S形轨迹

DECL/LOCAL,REAL,XPOS,YPOS

DECL/LOCAL,INTGR,XN,YN

DO/YN,0,500,100

   $$RL函数将整数转换为实数

   YPOS=ASSIGN/RL(YN)

     DO/XN,0,500,100

       XPOS=ASSIGN/RL(XN)

       GOTO/XPOS,YPOS,50

     ENDDO

ENDDO

示例4：提取数据

把一个变量赋值为任何一个参数的定义。不要忘了“F”和“FA”、“S”、“SA”的区别：

语句中的序号代表元素定义中数据位置：

F(POI_1)=FEAT/POINT,CART, 1.111,2.222,3.333, 0,0,0

F(POI_2)=FEAT/POINT,CART, 4.444,5.555,6.666, 0,0,0

F(POI_3)=FEAT/POINT,CART, 7.777,8.888,9.999, 0,0,0

FA(POI_1)=FEAT/POINT,CART, 1.111,2.222,3.333, 0,0,0

FA(POI_2)=FEAT/POINT,CART, 4.444,5.555,6.666, 0,0,0

FA(POI_3)=FEAT/POINT,CART, 7.777,8.888,9.999, 0,0,0

DECL/INTGR,i

DECL/CHAR,20,elnm

DECL/DOUBLE,xx,yy,zz

DO/i,1,3

elnm=ASSIGN/CONCAT('poi_',STR(i))

xx=OBTAIN/FA(@elnm),3

yy=OBTAIN/FA(@elnm),4

zz=OBTAIN/FA(@elnm),5

elnm=ASSIGN/CONCAT('newpoi_',STR(i))

F(@elnm)=FEAT/POINT,CART, xx,yy,zz, 0,0,0

FA(@elnm)=FEAT/POINT,CART, xx,yy,zz, 0,0,0

ENDDO

使用“EVAL”而不是使用“OUTPUT”时，可以在不输出该数据的情况下，得到需要的数据。

DECL/DOUBLE,tol_value

T(TP)=TOL/POS,2D,1.0000

EVAL/FA(COORD3),TA(TP)

tol_value=OBTAIN/TA(TP),3

示例5;

DECL/INTGR,i

DECL/CHAR,20,elnm

DECL/DOUBLE,xx,yy,zz

DO/i,1,3,1

elnm=ASSIGN/CONCAT('poi_',STR(i))

xx=OBTAIN/FA(@elnm),3

yy=OBTAIN/FA(@elnm),4

zz=OBTAIN/FA(@elnm),5

elnm=ASSIGN/CONCAT('newpoi_',STR(i))

F(@elnm)=FEAT/POINT,CART, xx,yy,zz, 0,0,0

FA(@elnm)=FEAT/POINT,CART, xx,yy,zz, 0,0,0

ENDDO

示例6：

M(FIND_NOM) = MACRO/'PT_P'

      DECL/LOCAL,DOUBLE,NOMPT[6],ACTPT[6]

      DECL/LOCAL,INTGR,I           

      CONST/POINT,F(@PT_P),PROJPT,FA(PT_P),F(CADM_1)

      DO/I,1,6

          NOMPT[I] = OBTAIN/F(@PT_P),I+2       

          ACTPT[I] = OBTAIN/FA(@PT_P),I+2

      ENDDO

      F(@PT_P)=FEAT/POINT,CART,ACTPT[1],ACTPT[2],ACTPT[3],ACTPT[4],$

                                ACTPT[5],ACTPT[6]

      FA(@PT_P)=FEAT/POINT,CART,NOMPT[1],NOMPT[2],NOMPT[3],NOMPT[4],$

                                NOMPT[5],NOMPT[6]

ENDMAC

示例7：

MODE/AUTO,PROG,MAN

DECL/COMMON,INTGR,i

DECL/COMMON,CHAR,20,K,TEMPSTRING

DO/i,1,10,1

  k = assign/str(i)

  tempstring = assign/concat('cir',k)

  F(@tempstring) = Feat/circle,outer,cart,0,0,0,0,0,1,25

  MEAS/circle,F(@tempstring),4

  ENDMES

ENDDO

RationalDMIS程序编辑区右键模版里面——其他——高级语言——DO循环 ，里面有DO语句的模版供拖放参考

MODE/PROG,MAN

DO/KNPTN1, 1, 5 , 1

F(CIR1)=FEAT/CIRCLE,INNER,CART,31.5000,31.5000,-3.0000,0.0000,0.0000,1.0000, 20.0000

$$ Measurement points are created through nominal points

MEAS/CIRCLE, F(CIR1), 4

  GOTO/CART,   38.5000, 31.5000, 18.0000

  GOTO/CART,   38.5000, 31.5000, 17.0000

  PTMEAS/CART, 41.5000, 31.5000, -3.0000, -1.0000,  0.0000, 0.0000

  GOTO/CART,   37.9672, 28.8212, -3.0000

  GOTO/CART,   36.4497, 26.5503, -3.0000

  GOTO/CART,   34.1788, 25.0328, -3.0000

  PTMEAS/CART, 31.5000, 21.5000, -3.0000,  0.0000,  1.0000, 0.0000

  GOTO/CART,   28.8212, 25.0328, -3.0000

  GOTO/CART,   26.5503, 26.5503, -3.0000

  GOTO/CART,   25.0328, 28.8212, -3.0000

  PTMEAS/CART, 21.5000, 31.5000, -3.0000,  1.0000,  0.0000, 0.0000

  GOTO/CART,   25.0328, 34.1788, -3.0000

  GOTO/CART,   26.5503, 36.4497, -3.0000

  GOTO/CART,   28.8212, 37.9672, -3.0000

  PTMEAS/CART, 31.5000, 41.5000, -3.0000,  0.0000, -1.0000, 0.0000

  GOTO/CART,   31.5000, 38.5000, 17.0000

ENDMES

ENDDO

  DECL/COMMON, INTGR, VAR1,VAR2

  VAR2 = PROMPT/'请输入循环次数'

  DO/VAR1,1,VAR2

F(CIR2)=FEAT/CIRCLE,INNER,CART,52.4500,11.5500,-3.0000,0.0000,0.0000,1.0000, 6.7960

$$ Measurement points are created through nominal points

MEAS/CIRCLE, F(CIR2), 4

  PTMEAS/CART, 50.3645, 14.2328, -3.0000,  0.6137, -0.7895, 0.0000

  PTMEAS/CART, 49.7672,  9.4645, -3.0000,  0.7895,  0.6137, 0.0000

  PTMEAS/CART, 54.5355,  8.8672, -3.0000, -0.6137,  0.7895, 0.0000

  PTMEAS/CART, 55.1328, 13.6355, -3.0000, -0.7895, -0.6137, 0.0000

ENDMES

  $$请插入要循环的内容

  ENDDO