RationalDMIS 7.1 计数统计 （元素合格数/总数统计）

圆计数代码：

DECL/COMMON,INTGR,I

DECL/COMMON,CHAR,255,C1

DECL/COMMON, INTGR, KNPTN3

DECL/COMMON,INTGR,KNPTN4

DECL/COMMON,INTGR,KNPTN5

DECL/COMMON,INTGR,KNPTN6

DO/I,1,5,1

C1 = ASSIGN/CONCAT('Φ13-',STR(I))

T(TCOR1)=TOL/CORTOL,XAXIS,-0.0200,0.0200

OUTPUT/FA(@C1),TA(TCOR1)

T(TCOR2)=TOL/CORTOL,YAXIS,-0.0200,0.0200

OUTPUT/FA(@C1),TA(TCOR2)

T(TDM1)=TOL/DIAM,0.0000,0.0200

OUTPUT/FA(@C1),TA(TDM1)

KNPTN3=VALUE/TA(TCOR1),INTOL

KNPTN4=VALUE/TA(TCOR2),INTOL

KNPTN5=VALUE/TA(TDM1),INTOL

IF/(KNPTN3.EQ.0).OR.(KNPTN4.EQ.0).OR.(KNPTN5.EQ.0)

KNPTN6 = ASSIGN/1+KNPTN6

ENDIF

ENDDO