Do / Until 样例代码

参见以下示例,对特征测量测量例程用户指定的次数。该代码与 While / End While 主题中提供的示例类似,只是 PC-DMIS 在循环的结尾(而不是开头)测试条件。

C1= 注释/输入,键入 PC-DMIS 对 PNT1 特征应测量的次数:(只能键入整数)

ASSIGN/COUNT=0

DO/

PNT1=FEAT/POINT,RECT

ENDMEAS/

ASSIGN/COUNT=COUNT+1

COMMENT/OPER,"Measured "+COUNT+" out of "+C1.INPUT+" times."

UNTIL/COUNT==C1.INPUT

样例代码的说明

C1=COMMENT/INPUT

此行取用用户输入的整数并将其存储至变量 C1.INPUT

ASSIGN/COUNT=0

此行初始化用户定义的变量 COUNT,并为其分配初始值 0。代码使用此变量计算 PC-DMIS 测量循环内特征的次数。

执行/

开始 DO / UNTIL 循环。所有语句至少执行一次,表达式评估为 False 后测量程序流退出循环。

ASSIGN/COUNT=COUNT + 1

此行以 1 为增量递增 COUNT 变量,从而在不满足条件测试时最终退出循环。

COMMENT/OPER﹐“测量的”+ COUNT +“超出”+ C1.INPUT +“次数”。

此行显示一条表明循环运行次数超出总数的消息。

UNTIL/COUNT == C1.INPUT

此行在条件评估为 False 后结束执行 DO / UNTIL 循环内的命令。否则,在 PC-DMIS 遇到此命令时循环将返回 DO 语句。